テキストボックスにカーソルをもってきたいんです。

質問

プログラムを起動した時に、テキストボックスにカーソルを置くようにするには、どのようなプログラムになるのでしょうか？よろしくお願いします。

回答No.3

Kuppycat · ベストアンサー

カーソルを持って行きたいテキストボックスのTabIndexを０になるように設定してください。

もしくは。
Private LoadFlg As Boolean

Private Sub Form_Load()

LoadFlg = True

End Sub

Private Sub Form_Active()

If LoadFlg Then
(テキストボックス).SetFocus
LoadFlg = False
End If

End Sub

と、小細工。

お礼

出来ました☆ありがとうございます！あの、また質問なんですけど、今ソフトキーボードを作っていて、そこからメールやインターネットも起動させるようにしているんです。で、さっきのプログラム起動時に、テキストボックスにカーソルを置くことができたのですが、例えばワードを起動するとワードの方がアクティブになって、ソフトキーボードにあるテキストボックスのカーソルが消えてしまうんです。こっちをアクティブにするにはどうしたら良いのでしょうか。よろしくお願いします。

回答No.4

1050 円（@1050YEN）

前面にする方法で、標準のAppActivateがあります。
普通のヘルプに出ているし、履歴もいっぱいあります。
調べましょう。
ただし、同じキャプションが複数存在する場合もあるのでAPIを利用する方法をご照会。

http://okweb.jp/kotaeru.php3?q=164809
の中のAPIを二つ

※SetForegroundWindow
SetForegroundWindow フォームハンドル
で前面化

※SetWindowPos
HWND_TOPMOSTの組み合わせと組み合わせて、フォームを最前面表示
ただしフォーカスは失うので、要注意

回答No.2

1050 円（@1050YEN）

Form_Loadに

Me.Show
のあと
(テキストボックス).SetFocus

お礼

出来ました！ありがとうございました☆

回答No.1

thrush76

Form_Loadに(テキストボックス).SetFocusと書いてはどうですか。

補足

質問では言わなかったんですけど、Form_Loadにtext1.SetFocusとかいたんですけど、『プロシージャの呼び出し、または引数が不正です』と出るんです。どうしたら良いのでしょうか？