vb中调用外部程序的代码
展开全部
你可以用SHELL函数。如调用Windows“计算器”程序:
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
说明:①将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。
②第二个参数可为下列值:
0 窗口被隐藏,且焦点会移到隐式窗口。
1 窗口具有焦点,且会还原到它原来的大小和位置。
2 窗口会以一个具有焦点的图标来显示。
3 窗口是一个具有焦点的最大化窗口。
4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。
6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
说明:①将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。
②第二个参数可为下列值:
0 窗口被隐藏,且焦点会移到隐式窗口。
1 窗口具有焦点,且会还原到它原来的大小和位置。
2 窗口会以一个具有焦点的图标来显示。
3 窗口是一个具有焦点的最大化窗口。
4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。
6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
展开全部
很简单,比如你要启动C:\ABC.exe程序,代码这样写就可以了:
Private
Sub
Command1_Click()
Shell
("C:\ABC.exe")
End
Sub
Private
Sub
Command1_Click()
Shell
("C:\ABC.exe")
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
使用API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute Me.hWnd, "open", 程序地址, "", "", 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute Me.hWnd, "open", 程序地址, "", "", 1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以将外部程序写到模块中,进行全局声明再调用啊
请说的清楚点!
请说的清楚点!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询