|
いつもお世話になっております。
下記のように、[Alt]+[A]でユーザーフォーム「MAIN_01」をアクティブにした際に、
フォーム上のテキストボックス「OP_03」の文字を全て選択した状態で
フォーカスを与えたいのですが、
「MAIN_01.Show」を実行した直後しかできません。
「MAIN_01」をアクティブにすることはできています。
またステップインモードで確認すると、ちゃんとすべて実行されてはいます。
が、フォーカスされてはいません。
どこが良くないのか、どうかご指摘ください。
よろしくお願い致します。
---------------------------
Sub SCkey()
Application.OnKey "%a", "myFORM_act"
End Sub
---------------------------
Sub myFORM_act()
AppActivate MAIN_01.Caption
With MAIN_01.OP_03
.SelStart = 0
.SelLength = Len(MAIN_01.OP_03.Text)
.SetFocus
End With
End Sub
---------------------------
|
|