テキストボックスの文字を消させない (ID:81972)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 始めに文字をどのようにセットするのか、仕様が分からないのですが テキストボックスとボタンを１つ用意して、 'ボタンを押すと変更モードと、非変更モードがトグルで変わる Private Sub Command1_Click() If Text1.ForeColor = RGB(255, 0, 0) Then Text1.ForeColor = RGB(0, 0, 0) Else Text1.ForeColor = RGB(255, 0, 0) End If End Sub Private Sub Text1_Change() Static TextBack As String If Text1.ForeColor = RGB(255, 0, 0) Then Text1.Text = TextBack Exit Sub End If TextBack = Text1.Text End Sub こんな感じでは。 一様フォントカラーで変更できる出来ないを決めていますが もちろんフラグで制御してもＯＫ。