Visual Basic 6.0 について

質問

①「読込み」ボタンを押すと、「読込みファイル」に指定されたファイルを読込む。
②「ファイル内容」のリストボックスに、ファイルから読み込んだ内容を出力する。

①、②をVB6で記述する書き方を教えてください。

回答No.2

imogasi

VB６レベルの文法で、エクセルVBAは作られているらしい、ので、参考にエクセルVBAでのコードを挙げてみます。VB6ではの、思わぬ思慮不足があるかもしれないので、その点すみません。
Googleで「vb6 ide」で照会し、出てくる記事にも目を通してください。
ユーザーフォームはUserForn１がForm１だったように思う。２０年前にVB.Netに進化しているのに
なぜ今更VB６か事情が分からない。旧作のコードの手直しの勉強なら、大変だ。
それに「指定されたファイルを読込む。」なんて、どんなファイル（形式の）か、書かないと正確な答えを出せないのでは？
全体が丸投げ的になっているが、回答のコピペだけで、走るように回答させるのはこの質問では、無理だろう。
ーーー
データファイルのレコードのフィールド数は３列と仮定する。
ファイルは、テキストのCSVファイルと仮定する。
ファイル名は、適当に質問者の実際に合わせてテストのこと。
Private Sub UserForm_Initialize()
UserForm1.TextBox1.Text = "C:\Users\XXX\Desktop\テストB.csv"
UserForm1.ListBox1.ColumnCount = 3
End Sub
ーーー
Private Sub CommandButton1_Click()
fn = UserForm1.TextBox1.Text
MsgBox fn
Open fn For Input As #1
i = 0
Do Until EOF(1)

Line Input #1, buf

MsgBox buf
x = Split(buf, ",")
UserForm1.ListBox1.AddItem x(1)
UserForm1.ListBox1.List(i, 0) = x(0)
UserForm1.ListBox1.List(i, 1) = x(1)
UserForm1.ListBox1.List(i, 2) = x(2)
i = i + 1
Loop
Close #1
End Sub
ーーー
'選択した行情報を表示
Private Sub ListBox1_Click()
MsgBox ListBox1.List(ListBox1.ListIndex, 0) & " " & ListBox1.List(ListBox1.ListIndex, 1)
End Sub

回答No.1

dell_OK

「読込みファイル」はテキストボックスだとして、こんな感じになると思います。
Private Sub 読込み_Click()
Dim fn As Integer
Dim lineText As String
fn = FreeFile()
Open Me.読込みファイル.Text For Input As #fn
Do Until EOF(fn)
Line Input #fn, lineText
Me.ファイル内容.AddItem lineText
Loop
Close #fn
End Sub