钓鱼岛是日本的吗:VB 题 !帮忙
来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 05:10:07
实现驱动器列表框,目录列表框和文件列表框的同步操作,在列表框中只显示后缀名为exe的文件。如果双击文件列表框中的文件,则执行该文件!
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Pattern = "*.exe"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
vbr = Shell(File1.FileName, 1)
End Sub
vbr = Shell(File1.FileName, 1) 是什么意思?
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Pattern = "*.exe"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
vbr = Shell(File1.FileName, 1)
End Sub
vbr = Shell(File1.FileName, 1) 是什么意思?
返回一个值给vbr,如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
判断是否正确执行Shell函数!!!
简单的事