• ベストアンサー

AccessVBAでオプションボタン・グループについて

複数のオプションボタンを1つのオプショングループに設定し、選択されたボタンによって変数を変えて処理を実行するツールを作成しています。 選択されたオプションボタンのラベル前景色を変更したいのですが、うまくいきません。 各オプションボタンのフォーカス取得時・喪失時に変更させると次の処理(コマンドボタン)に移ったときに色が変わってしまいます。 オプショングループのvalue値によってラベル色を指定することは可能でしょうか? 説明がわかりづらくてすみません。宜しくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • tiga-
  • ベストアンサー率19% (5/26)
回答No.2

あのー、よくわかっていないので申し訳ありませんが、 喪失時に変更させるため、次のコマンドボタンにフォーカスが移ったときに色が変わるのではないでしょうか? 各オプションボタンごとにしないで、 オプショングループの変更時イベントで、 どのオプションボタンが選択されたかで、 そのオプションボタンの前景色を変更したほうがいいのでは? ラベルにLbel1・Label2のようにしておけば、 "Label" & オプショングループ のようなコードで指定できると思うのですが。

pinopino77
質問者

お礼

ありがとうございます! 各ラベルに名前をつけていたのでオプショングループの値をどう反映させたら良いのか悩んでしまっていました。 おっしゃる通りラベルに数字を入れて無事に解決できました。 本当にありがとうございました。

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • -boya-
  • ベストアンサー率35% (176/494)
回答No.1

上手く理解していなかったらごめんなさい。 ラベルの前景色(ForeColor)プロパティを変更したあと、 Me.Repaint とか Forms!frmForm1.Repaint といった様に「repaintメソッド」を実行すると表示上も 変わると思います。

pinopino77
質問者

お礼

早々のご回答ありがとうございました。 私の説明不足だったようで。。。 No.2の方のご回答の通りでうまくいきました。

すると、全ての回答が全文表示されます。

関連するQ&A