文件列表框中文件的内容为什么不在文本框中显示?
一下这段代码所完成的驱动器,目录和文件列表框操作中文件列表框中的内容为什么不能在text1中显示呢?(控件都加了) Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
Private Sub File1_Click() ChDrive Drive1.Drive ChDir Dir1.Path Text1.Text = "" Open File1.FileName For Input As #1 b = "" Do Until EOF(1) Line Input #1, nextline b = b & nextline & Chr(13) & Chr(10) Loop Close #1 Text1.Text = b
End Sub 谢谢帮助!