vb中调用外部程序的代码
4个回答
展开全部
你可以用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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以将外部程序写到模块中,进行全局声明再调用啊
请说的清楚点!
请说的清楚点!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询