如何在VB里加载其他应用程序，比如windows自带的计算器?

Question

Public 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
Dim b As Variant
    b = ShellExecute(Me.hwnd, vbNullString, "c:\windows\calc.exe", vbNullString, vbNullString, 1)

Answer 1

VB自已的方法
Shell “Calc.exe”，vbNormalFocus

Answer 2

shell"path"可以调用任何EXE文件

Answer 3

shell pathname
pathname 文件名(包含路径)当前目录除外
可以调用任何EXE文件

Answer 4

shell "calc.exe" 即可,不用第一个人写得那么麻烦!
用Shell语句只能调用可执行文件，即 exe、com、bat 和 pif 文件，
有时我们想要调用其他一 些系统功能该怎么办呢？此时，Windows提供的 Rundll32.exe可大显身手了。
试运行下列语句:
    Open App.Path & "\temp.lnk" For Output As #1 
　　Close #1 '以上两句在程序所在目录建立一个临时文件 
　　Shell "Rundll32.exe AppWiz.Cpl，NewLinkHere "& App.Path 
           & "\temp.lnk" 
Shell "Rundll32.exe Shell32.dll,Control_RunDLL Timedate.cpl"She11 "Rundll32.exe url.dll, FileProtocolHandler X" 
　　
shell "rundll32.exe shell32.dll OpenAs_RunDLL X"

Answer 5

找到想打开的程序所在目录。确定可执行文件的文件名。
用shell()函数就可以了。