ソフトウェアキーボード使ってテキストボックスの文字列末尾に文字列追加

質問

VB.NET　WindowsMobile5.0にて開発してます。

Ａ～Ｚ、０～９までのソフトウェアキーボードをボタンコントロールで配置して作成してます。（WindowsMobileのPADではない）

テキストボックスに各ボタンクリックイベント（Ａ～Ｚ、０～９）毎に文字列を連結させながら表示させたいのですが
文字列の末尾に文字を追加したい場合どうすれば良いでしょうか？
各画面にソフトウェアキーボードがあるので
ファンクションを使ってクリックがある度に末尾に文字を追加していきたいので下記の様に書きクリックイベントで呼ぼうとしましたが駄目でした。
Public Function TextInsert(ByVal TI As Char)
Dim str1 As String
Dim str2 As String
str2 = str1　'前回文字列保存
str1 = TI　　'今回文字列格納
str1 = str1 & str2 '文字列連結
Return str1　　　　'結果を戻す
End Function
なにかもっと簡単で良い方法ありませんか？
ものすごく初歩的なことで申し訳ありませんがご教授お願いします。

回答No.1

redfox63 · ベストアンサー

末尾への追加なら

ボタンのクリックイベントで
TextBox1.SelectionStart = TextBox1.TextLength
TextBox1.Text &= CType( sender, Button).Text
といった具合でいいのでは …

複数のボタンの同一ハンドラの指定には handles句に複数のイベントを並べれば可能です

Private sub btn_Click(sender as Object, e as EventArgs) _
Handles Button3.Click, Button2.Click, Button1.Click
といった具合です

お示しのコードでは 前回のデータを記憶したいのであれば str1の宣言を
static str1 as String = ""
などとするかstr1自体を関数外部で宣言してグローバルスコープを持たせるなどが必要でしょう

お礼

ありがとうございます！
指示通りで出来ました。
いつもありがとうございます！