关于调用外部程序谢谢大家！！

Question

本人菜鸟一族！！问题如下：     如何在VB中调用外部程序，例如：*.ppt,*.doc这样的文件（直接打开），就是需要使用其他软件打开的文件，而不是用shell调用可执行文件，谢谢大家！还有如何在VB中嵌入其他例如：*.ppt,*.doc这样的文件。                                  十分感谢大家！！谢谢！！
                                 给分哟！！
                                 望球！

Answer 1

在模块中加入：
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", "aaa.doc",vbNull, vbNull, sw_shownormal
其中"calc.exe" 换成被调用程序的名称
可以用完整路径，如"D:\aaa.doc"
如果只用"aaa.doc", 就会先从工程所在路径下查找是否有该程序，如果没有就从系统目录下查找有没有该程序，如果没有就不能完成调用

Answer 2

模块：
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 LongPublic Const HWND_BOTTOM = 1
Public Const HWND_DESKTOP = 0
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOP = 0
Public Const HWND_TOPMOST = -1
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOCOPYBITS = &H100
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOOWNERZORDER = &H200
Public Const SWP_NOREDRAW = &H8
Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H4
Public Const SWP_SHOWWINDOW = &H40
程序
ShellExecute me.hwnd, "open", "File.doc",vbNull, vbNull, sw_shownormal

Answer 3

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
Private Sub Form_Load()ShellExecute Me.hWnd, "open", "C:\aaa.doc", vbNullString, vbNullString, SW_SHOWEnd Sub

Answer 4

在上面的调用中，前提是系统中要要有power point和word，在程序完成后，客户发行时，要注意这个问题