如何在VB中调用Windows中的应用程序

Question

大家好，如何在VB中调用Windows中的应用程序，哪位大虾知道请告知，先谢谢了！！！！

Answer 1

Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
调用这个API就行了

Answer 2

Private Sub Command2_Click()
Shell "c:\windows\calc.exe", 1
End Sub

Answer 3

可以 用 ole控件，或者直接调用应用程序，例如：word excel只要相关的对象库已经被选择，在应用程序中进行对象变量的赋值是可能的。Microsoft Excel 8.0对象库是相对于Excel的，而 Microsoft Word 8.0 对象库是为Word服务的。　　 在VB的IDE环境中，从“工程”菜单中选择“引用”，可以看到系统可用的所有库列表。Private Sub Command1_Click()
Dim xlsApp As Excel.Application
Set xlsApp = Excel.Application
With xlsApp
.Visible = True
.Workbooks.Add
.ActiveCell.Value = "Hi"
.Range("A3").Value = "This is an example of connecting to Excel"
End With
End Sub
　　 在上面的程序段中，我们在变量xlsApp中建立了一个对象，这样Excel就对用户可见了。当Excel象这样启动后，并不包含一个工作簿，所以必须创建或者执行打开操作。这里，我们建立了一个新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。

Answer 4

“Private Sub Command2_Click()
Shell "c:\windows\calc.exe", 1
End Sub”这是什么意思？“Shell "c:\windows\calc.exe", 1”就是在调用calc.exe这个程序吗？ 

Answer 5

right.
系统目录下可直接引用而不加路径：
Private Sub Command1_Click()
'Shell "calc.exe", vbHide
'Shell "calc.exe", vbMaximizedFocus
'Shell "calc.exe", vbMinimizedFocus
'Shell "calc.exe", vbMinimizedNoFocus
Shell "calc.exe", vbNormalFocus
'Shell "calc.exe", vbNormalNoFocus
End Sub