代码.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 Form_Load()
n = FindWindow(vbNullString, "Program Manager")
Call SetParent(Me.hWnd, n)
End Sub
代码.2
Option Explicit
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Const WS_EX_MDICHILD As Long = &H40&
Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_CHILD = &H40000000
Private Const WS_CHILDWINDOW = (WS_CHILD)
'把计算器作为子窗体
Private Sub Form_Load()
Dim lngCalculator As Long
Dim lngStyle As Long
Dim lngExStyle As Long
Shell "calc.exe", vbNormalFocus
lngCalculator = FindWindow(vbNullString, "计算器")
If lngCalculator > 0 Then
SetParent lngCalculator, Me.hwnd
SetWindowLong lngCalculator, GWL_EXSTYLE, WS_EX_MDICHILD
End If
End Sub