とりあえず、ミニマムテストからやって原因を探らないと...
多分、Parent が勝手にすりかえられて消えちゃうんだと思いますけど。
| |
<System.Runtime.InteropServices.DllImport("USER32.DLL", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
Private Shared Function FindWindow( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As System.IntPtr
End Function
<System.Runtime.InteropServices.DllImport("USER32.DLL", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
Private Shared Function SetParent( _
ByVal hWndChild As System.IntPtr, _
ByVAl hWndNewParent As System.IntPtr) As System.IntPtr
End Function
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim programManagerHandle As System.IntPtr = FindWindow(Nothing, "Program Manager")
If Not programManagerHandle.Equals(System.IntPtr.Zero) Then
SetParent(Me.Handle, programManagerHandle)
End If
End Sub
|
