VBのの文字挿入について

質問

VBで指定した場所にSendKeysで文字を挿入したいのですが

どのようにできますか？

SendKeys.send("挿入する文字")これはわかるんですが

何個も文字を挿入する枠があった場合

ボタンを使用してすべての枠に指定した文字を挿入したいんです

回答よろしくお願いします

回答No.1

Rilakkuma_san

こんにちわ。

開発環境は正確に明記してください。
VB6とVB.NETではコーディングに違いが出る時があります。

「枠」はコントロールの事ですかね？
（テキストボックスやラベルとか）

推測ですが
ボタンを押したらフォーム上の複数のテキストボックスにSendKeysするって事ですかね？

フォーム上のコントロールを
For Eachとかでループさせて処理すればできませんか？

For Each ct As Control In Me.Controls
If ct.GetType.Tostring = "TextBox" Then
ct.Focus()
SendKeys.send("挿入する文字")
End If
Next

上記のソースではフォーム上に直接配置されているものしか対応できません。
グループボックスやタブなんかにあるようなものだと再帰的に処理する必要があります。