VBの色判定について

質問

初投稿の者ですがよろしくお願いします。

今、ＶＢでプログラムを作成しています。
そのプログラムというのが、色判定をさせるプログラムで、例えば　label　に文字で赤
ForeColorで青を設定したとします。

そして、ボタンの選択肢をいくつか作り、その中に乱数で、赤、青、黄色・・・という感じで、
文字を設定しておいて、　labelに表示された"文字の色"と同じ色をボタンの中から選択し
回答していくというプログラムなのですが、この色判定がなかなかうまくできません。

解かりにくい説明かもしれませんが、よろしければ、どなたか回答お願いします。

回答No.1

kiki_s

VBのバージョンが分かりませんが？

VB6ならば、labelの文字色は「ForeColor」で色値は取得出来ますので、
操作されたコマンドボタンで色値を比較すれば可能かと・・・
ただし、色値自体は数値ですので、比較はカラー定数か色値(RGB)にて指定する必要があります。

例えば、赤文字の場合

If Label1.ForeColor = vbRed Then

～処理～

End If

と書く事が出来ますし、比較部分は、

If Label1.ForeColor = 255 Then

とも書けます。

ともかく、どこまで動作しているのか分かりませんので、
何とも書きがたい（言い難い）です。