VB问题,Dir1.Path= Drive1.Drive File1.Pah=Dir1.Path Debug.Print Fn 都是什么意思啊泪!

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的内容输出到立即窗口
温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网