Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
Dim s As String, Fn As String
Fn = Dir1.Path & "\" & File1.FileName
Debug.Print Fn
Open Fn For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & Chr(13) & Chr(10)
Loop
Close #1
End Sub
Private Sub Form_Load()
End Sub
里面的Chr(13)和Chr(10)都是什么意思? 主要是上面的 Dir1.Path = Drive1.Drive, File1.Path = Dir1.Path,Text1.Text = Text1.Text & s & Chr(13) & Chr(10),Debug.Print Fn这几句不懂,谢谢大神!
Chr(13)是回车,Chr(10)是换行,那么Chr(13) & Chr(10)就是回车换行的意思。可以用常数vbCrLf来代替,即
Text1.Text = Text1.Text & s & Chr(13) & Chr(10)
可改为
Text1.Text = Text1.Text & s & vbCrLf
Dir1.Path = Drive1.Drive 是把Dir1的路径设为Drive1中选定的驱动器的根目录
File1.Path = Dir1.Path 是把File1的文件列表设为Dir1中选定的文件夹里面的文件
以上两句结合就可以使这三个控件实现联动
Debug.Print Fn是把Fn的内容输出到立即窗口
Text1.Text = Text1.Text & s & Chr(13) & Chr(10)
可改为
Text1.Text = Text1.Text & s & vbCrLf
Dir1.Path = Drive1.Drive 是把Dir1的路径设为Drive1中选定的驱动器的根目录
File1.Path = Dir1.Path 是把File1的文件列表设为Dir1中选定的文件夹里面的文件
以上两句结合就可以使这三个控件实现联动
Debug.Print Fn是把Fn的内容输出到立即窗口
温馨提示:答案为网友推荐,仅供参考