VB6.0でwinsockの配列を作るには

質問

サーバプログラムを作ろうと思っているのですが、

サーバなので接続されるたびに
i = i + 1
Load wsock(i) 　　'wsockはwinsockコントロール
という風に増やしたいです。

しかし
Option Explicit
Dim wsock() As Winsock
このように宣言しても実行時に「インデックスが有効範囲にありません」とエラーが出ます。

かなり初歩的な質問だと思いますが、参考になるサイトまたはどのように書けば良いのか教えてください。

回答No.2

taka_tetsu · ベストアンサー

>フォームにwinsockを貼り付けた場合、winsock(1000)まで作る場合、1001個貼り付けないといけないのでしょうか？

>i = i + 1
>Load wsock(i) 　　'wsockはwinsockコントロール

これなんですけど・・・
自分で書いてますよね。

コントロールはひとつだけ貼り付けておいて、Indexプロパティを0にしておいてください。

お礼

Indexプロパティを0にしたら無事、思ったとおりのことができました。
まだまだ理解してない部分が多いのでくだらない質問をしてしまいましたが、
親切に教えてくださってありがとうございました。

回答No.1

taka_tetsu

フォームにwinsockコントロール貼り付けました？

貼り付けてるんでしたら
Dim wsock() As Winsock
なんて不要なんですけど。

補足

フォームにwinsockを貼り付けた場合、winsock(1000)まで作る場合、1001個貼り付けないといけないのでしょうか？

私がいつもやってるフォームに貼り付けて配列にする方法は、
1つ貼って、それをコピーしてもう一度貼って配列にする方法なのですが、他にやり方があるのでしょうか？