選択ラベル色の変更

フォームにテキストボックスがいくつか配置されているとき、そのテキストボックスを選択した時点で、同時にそのラベルの色を変えるという方法です。

まず、下のように任意にテキストボックスを２つ作成しました。これはいくつでもかまいません。

そして、テキスト0のフォーカス取得時とフォーカス喪失時のイベントプロシージャを下記のように記述します。

'--------------------------------------------------- Private Sub テキスト0_Enter() Me!ラベル1.ForeColor = 8454143 End Sub '--------------------------------------------------- Private Sub テキスト0_Exit(Cancel As Integer) Me!ラベル1.ForeColor = 0 End Sub '---------------------------------------------------

これで、テキスト0を選択するとラベルが「黄色」になり、別のものを選択すると黒くなります。いろいろな場面で応用ができますね。