按摩里的皇家礼炮:在线等……vb编程人员请进%……%……%%

来源:百度文库 编辑:高考问答 时间:2024/05/01 04:18:06
我想编一个小程序,是这样的:
设计一个按钮,一单击就可以运行自己机器上已有的一个程序,
麻烦各路高手把语句给小弟写一下好吗。
俺是一只编程菜鸟,刚入门,望高手指点迷津

假如你想运行WORD:
Private Sub Command1_Click()
Dim abc
abc = Shell("D:\Program Files\Microsoft Office\OFFICE11\winword.exe", 1)
End Sub
注意代码中winword.exe的正确位置.

就是调用语句加按纽`\
Private Sub Command1_Click()
Dim abc
abc = Shell("D:\Program Files\QQ\QQ.exe", 1)
End Sub

'在窗口上添加一个 Command 控件。
'双击该控件添加如下代码:
Const Path="D:\test.exe"

Private Sub Command1_Click()
if dir(path)="" then:msgbox "没有找到'" & path & ".":exit sub
Shell Path
End Sub