tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル PictureBox内の一部のBackColorを薄い青色にしたいんですが
投稿日: 2008/03/12(Wed) 16:37
投稿者tea
またお世話になります。
PictureBox内の一部の箇所のBackColorを白から薄い青(&h80000013&)に
変更したいのですが、DrawBox2の引数に
Optional ByVal backcolor As Variant = Empty
などと付け加えてみたのですが実行すると背景が黒になります。

.DrawBox2 makeRSPointRect(1, 1, iScore), , &H80000013
のBackColorのみを&H80000013で表示したいんです。

どうか教えてください。
よろしくお願いします。

PrintEngneクラス
Friend Sub DrawBox2(ByRef rect As UPrintRectangle, _
                    Optional ByVal Color As Variant = Empty, _
                    Optional ByVal backcolor As Variant = Empty)
    With rect
        drawBox .Left, .Top, .Right, .Bottom, Color, backcolor
    End With
End Sub

RScoreSheetCommanderクラス
drawRunnninngScore
'枠線は以下の部分
For iScore = 1 To rsMaxScore
    .DrawBox2 makeRSPointRect(0, 1, iScore)
        '背景を薄い青にするにはココ↓の調整が必要
        .DrawBox2 makeRSPointRect(1, 1, iScore), , &H80000013
        .DrawBox2 makeRSPointRect(ixTeam, 2, iScore)
        .DrawText2 makeRSPointRect(ixTeam, rsInCol(ixTeam), _
        iScore), CStr(iScore), eA33CenterCenter
Next

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。