webBrowser変数Aじゃだめなの？

質問

例文
Dim filenumber As Integer
filenumber = FreeFile
Dim A As Integer
A = 1
Open "\accsess.dat" For Input As filenumber
Do Until EOF(filenumber)
Input #filenumber, accsess
WebBrowserA.Navigate accsess
A = A + 1
Loop

accsess.datからURLを読み込んでbrowserに表示したいのですが、webbrowserAの変数Aの部分が邪魔してうまくいきません。

表示するだけなら、他にも色んな方法があると思いますが
できれば変数としてBrowserをあやつりたいです。
どうすればいいのでしょうか？

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

"WebBrowserA"というのは、WebBrowserコントロールの名前ですよね。
それを変数で指定するということは、コントロールがフォームに複数あって、コントロールの数だけ、フォームに一度にWEBページを表示したいということですか？
それから、Doループで回しているということは、"access.dat"というファイルに複数のURLが書かれているということですよね。
それを、上記のようにいっぺんに表示させたいのでしょうか？
それとも順に表示させたいのでしょうか。

いっぺんに表示させるのでしたら、質問欄の書き方では出来ません。
方法としては、用意するWebBrowserコントロールをコントロール配列にして、

WebBrowser1(A).Navigate access
A = A + 1

みたいにすれば出来ます。（ちなみにAは0から始めます。）
とりあえず、質問欄のような書き方では出来ません。

あと、ファイルの読み込みは、Inputでなく、Line Inputの方がいいと思いますが。