RUI (ID:110032)

名前

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

本文 Private Sub Text1_GotFocus() Text1.BackColor = RGB(0, 0, 0) Text1.ForeColor = RGB(255, 255, 255) End Sub Private Sub Text1_LostFocus() Text1.BackColor = RGB(255, 255, 255) Text1.ForeColor = RGB(0, 0, 0) End Sub こんな感じで