よし
2021/01/13 (水) 00:02:09
d9508@7e9fa
年末年始の繁忙期のため、お礼が遅くなり申し訳ございません。
以前投稿されていた、詳細_paintイベントを使う方法でうまいこと動いてくれました。
お教え頂いた方に感謝申し上げます。
カラーコードのテキストボックスを txt_ColorCode、
色を表示したいラベルを Lbl_info とします。
Private Sub 詳細_Paint()
If Nz(Trim(txt_ColorCode), vbNullString) <> vbNullString Then
Me.Lbl_info.BackStyle = 1
Me.Lbl_info.BackColor = txt_ColorCode
Else
Me.Lbl_info.BackStyle = 0
End If
End Sub
これで色を表示させることが出来ました。ありがとうございました。
通報 ...