【VB.NET】テキストボックスにフォーカスが移動すると、全選択されてしまいます。

いつもお世話になっております。

テキストボックスと50音のひらがなのボタンを用意して、
ボタンが押されたらその文字がテキストボックスに入力する
キーボードのような画面を作成しております。

以下のようなコードを書いています。
W_DATA：テキストボックス
KEY(Index)：かなボタン

　　W_DATA.Text = W_DATA.Text & KEY(Index).Text
　　Me.W_DATA.Focus()
　　System.Windows.Forms.SendKeys.SendWait("{END}")

この際、文字を入力し続けると、たまに全選択状態になってしまいます。
※ならない場合の方がほとんどですが。

絶対に全選択にならないように、何か回避策等ございましたら
ご教示お願い致します。

No.1 ベストアンサー 回答者： Wizard_Zero 回答日時： 2009/05/19 20:10

VB 2005で少し試してみました。

原因は、W_DATA.Text = W_DATA.Text & KEY(Index).Textですべてのテキストを一旦置き換えているためのようです。（Textプロパティに値を与えると内部で全選択される仕様かな？）
テキストボックスのAppendTextメソッドを使って追加すれば大丈夫みたいです。

W_DATA.AppendText(KEY(Index).Text)
W_DATA.Focus()

またテキストボックスへの文字列の追加も、こちらの方がちらつきもなく動作が速いことが私の過去のアプリで実証済みです。

他にも方法はあるかと思いますが、ひとまずご希望の動作が出来るので回答をあげておきます。

この回答へのお礼

ありがとうございます！
試した所、無事に動きました！！
気になっていたちらつきも解消されました！
とても感激です。

お礼日時：2009/05/20 09:59