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

2024-12-05 02:14:26
推荐回答(3个)
回答(1):

Private Sub File1_DblClick()
If UCase(Right(File1.FileName, 4)) = ".EXE"滚羡 Then
Shell File1.Path & "乱圆\"大陪拍 & File1.FileName
End If
End Sub

回答(2):

在百度搜索
vb shell 等待

回答(3):

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