神马品牌网中天银都可靠吗:vb中调用外部程序的代码
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 13:36:18
你可以用SHELL函数。如调用Windows“计算器”程序:
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
说明：①将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
②第二个参数可为下列值：
0 窗口被隐藏，且焦点会移到隐式窗口。
1 窗口具有焦点，且会还原到它原来的大小和位置。
2 窗口会以一个具有焦点的图标来显示。
3 窗口是一个具有焦点的最大化窗口。
4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
可以将外部程序写到模块中，进行全局声明再调用啊
请说的清楚点！
使用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