テキストボックスクリック時に文字列反転するには？ (ID:112653)

名前

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

本文 Public FocusFlg As Integer Private Sub Text1_Click() If FocusFlg = 1 Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If FocusFlg = 0 End Sub Private Sub Text1_GotFocus() FocusFlg = 1 End Sub ではいかがでしょう？ GotFocusの後にClickが発生するのが原因だから、 GotFocusの後の初回Clickイベントだけ処理する ということで。