起動直後、テキストボックスにカーソルがある状態にするには？ (ID:142507)

名前

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

本文 >> SetFocusではだめでしょうか？ > それ自体は良いのかもしれないけど、 良くないと思いますよ。 Load イベントの時点では、まだフォームが表示されていないので、 SetFocus メソッドを呼び出すと、実行時エラーになってしまうはずです。 Load イベント完了後(または、フォーム表示後)に呼び出すのであれば 動作するでしょうけれども。 >>> Form_Load()で >>> 1．画面上に表示する文言をLoadresstringで文字を読み込む。 >>> 2.中央表示、最上位表示に設定する。 >>> そうした場合、カーソルがあたりません。 各コントロールの GotFocus/LostFocus イベントを、Debug.Print 等を仕込んで 追跡してみてください。他のコントロールにフォーカスが遷移していませんか? もしくは、現在どのコントロールにフォーカスがあるのかを、 Timer で調べてみてはいかがでしょう。たとえば、こんな感じで。 Private Sub Timer1_Timer() If Me.ActiveControl Is Nothing Then Debug.Print "(Nothing)" Else Dim s As String s = Me.ActiveControl.Name Debug.Print TypeName(Me.ActiveControl); " - "; If Me.Controls(s) Is Me.ActiveControl Then Debug.Print s Else Debug.Print s & "(" & CStr(Me.ActiveControl.Index) & ")" End If End If End Sub