テキストボックスの反転させるには？ (ID:124434)

名前

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

本文 ガッさん返信有難う御座います。 >他のコントロールにフォーカスが移ったことを確認してから、textActiveを呼びましょう どうしたら移ったと確認してから呼べるのでしょうか ループを使ってコントロールの名前が変わるのを待って見ましたが 無限ループしてしまって... 度々すみません。どうしたらよいでしょうか？ Set txtControl1 = Me.ActiveControl Call PostMessage(Me.hWnd, WM_KEYDOWN, VK_TAB, ByVal 0&) '追加 Do While True Set txtControl2 = Me.ActiveControl If txtControl1.Name <> txtControl2.Name Then Exit Do Loop KeyAscii = 0 '音を消す '青く反転させる textActive Me