オブジェクト名

質問

複数のWinsockを使用したいです。
オブジェクト名Winsock1～Winsock6があるとします。
例えば
Dim i As Integer
Dim strWinsock As String

For i = 1 to 6
strWinsock = Winsock & i
//処理
Next
上記のようなループで文字列strWinsockを、オブジェクト名として使用することはできないのでしょうか？
また、もし他の方法があるようでしたら、教えて下さい。

回答No.1

xKENx · ベストアンサー

Winsock1～6の定義しだいですが、フォーム上にあるならばMe("Winsock1").GetDataのようにできると思います。
提示ソースでいうと処理部分に以下のように記述します。
Me(strWinsock).GetData
でもフォームにコントロール貼るなら、配列にすればいいような気もします。
そうすればWinsock(i).GetDataのようにできると思うのですが。