Question

VB编程问题``请高手来指点

这个是本人自己编的 调用系统中的EXE格式文件

Private Sub File1_DblClick()
Shell ("D:\VB精简版\Vb6")
Shell ("D:\超级兔子\MagicSet\MagicSet")
End Sub

怎么分别运行
我现在做了随便点击哪个都运行...

哪位高手帮个忙指点下 用循环语句 运行一个另一个不运行 运行另一个前一个不运行

Answer 1

Private Sub File1_DblClick()
If UCase(Right(File1.FileName, 4)) = ".EXE" Then
Shell File1.Path & "\" & File1.FileName
End If
End Sub

Answer 2

在百度搜索
vb shell 等待

Answer 3

Private Sub File1_DblClick()
Shell iif(int(rnd*2)=1,"D:\超级兔子\MagicSet\MagicSet", "D:\VB精简版\Vb6")
End Sub