文件名称:VB_Load
- 所属分类：
- Windows编程
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2012-11-26
- 文件大小：
- 5kb
- 下载次数：
- 0次
- 提 供 者：
- k**
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
Option Explicit
Private Sub Command1_Click()
Text1.Text = ""
Dim i As Single
For i = 0 To File1.ListCount
Text1.Text = Text1.Text & File1.List(i) & Chr(13) & Chr(10)
Next i
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Command1_Click()
Text1.Text = ""
Dim i As Single
For i = 0 To File1.ListCount
Text1.Text = Text1.Text & File1.List(i) & Chr(13) & Chr(10)
Next i
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
VB_Load\Form1.frm
.......\Project1.csi
.......\Project1.exe
.......\Project1.vbp
.......\Project1.vbw
VB_Load
.......\Project1.csi
.......\Project1.exe
.......\Project1.vbp
.......\Project1.vbw
VB_Load