是将filelistbox里选的TXT文件的文件内容显示在textbox中吗?Private Sub File1_Click()Open File1.Path & "\" & File1.FileName For Binary As #1Text1.Text = Input(LOF(1), 1)Close #1End Sub
Private Sub File1_Click()Text1.Text = File1.FileNameEnd Sub