钓鱼岛是日本的吗: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) 是什么意思?

返回一个值给vbr,如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。

判断是否正确执行Shell函数!!!

简单的事