关于SHELL的问题！！

Question

可以考虑使用API把你的这个EXE文件放到最前面来，同时把父窗体隐藏！！！

Answer 1

Private Sub Command1_Click()
    Shell "C:\WINDOWS\MSHEARTS.EXE", vbNormalFocus
End Sub
这样能行吗？请试试
能对您有所帮助是我最大的快乐！！

Answer 2

Private Sub Command1_Click()
    Shell "Pbrush.exe", 1
End Sub

Answer 3

谢谢回答！！当时还是解决不了
-----只有子EXE文件的窗体被关闭有才能回到父程序窗体里希望大家再帮帮我！！！！！

Answer 4

用ShellExecute 吧
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9Public 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 Longsub Command_Click()
   ShellExecute Me.hwnd, "explore", _
                LocalDir, _
                vbNullString, vbNullString, _
                SW_SHOWNOACTIVATE
end sub