Question

VB 6.0 如何在编写的程序内部打开EXE程序

比如在Form1中有一个按钮，点击后运行了“iexplore.exe”，但是在系统任务栏不显示，而是在程序中显示，即使最小化也是在Form1中，EXE最大化也只占满Form1。

EXE完全以Form1为外壳运行。

请说明需要的 默认 控件和完整代码。

启动按钮名称默认。

Answer 1

下面是以记事本为例：

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim h As Long
Shell "notepad", vbNormalNoFocus    '打开记事本
Do
    h = FindWindow(vbNullString, "无标题 - 记事本") '找到记事本的窗口句柄
    DoEvents
Loop While h = 0   '如果未找到就继续循环
SetParent h, Me.hWnd    '把记事本的窗口设为自身窗口的子窗口
End Sub

值得说明的是：运行后可能会一下子在Form1中看不到记事本的窗口，这是因为记事本窗口的初始位置不一定是在屏幕的左上角，所以到了Form1中它也会在窗体偏右和偏下的位置，只要把Form1最大化就看到了，再把记事本拖到适合的位置就行了。

追问

窗口句柄如果错误是不是就会导致效果失效？ txt赋值的就不用解释了，我会了