Option Explicit'****************** API函数区 ********************************* '指定一个窗口的新父 Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long '从指定窗口的结构中取得信息 Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long '在窗口结构中为指定的窗口设置信息 Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long'-------------------- 常数 ------------------------ Public Const GWL_STYLE = (-16) Public Const WS_CHILD = &H40000000 '*************************************************************'----------------- 公用函数模块 ------------------- Public Function GetHndle(ByVal hwnd As Long) SetWindowLong hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) Or WS_CHILD End Function 窗体调用,框架右边放一个picturebox控件,用于装载窗体 GetHndle form2.hwnd SetParent form2.hwnd, picture1.hwnd
2)自己实现 http://www.m5home.com/blog/article.asp?id=88
参考VB Splitter窗体分栏控件及使用示例
Option Explicit'****************** API函数区 *********************************
'指定一个窗口的新父
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
'从指定窗口的结构中取得信息
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
'在窗口结构中为指定的窗口设置信息
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long'-------------------- 常数 ------------------------
Public Const GWL_STYLE = (-16)
Public Const WS_CHILD = &H40000000
'*************************************************************'----------------- 公用函数模块 -------------------
Public Function GetHndle(ByVal hwnd As Long)
SetWindowLong hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) Or WS_CHILD
End Function
窗体调用,框架右边放一个picturebox控件,用于装载窗体
GetHndle form2.hwnd
SetParent form2.hwnd, picture1.hwnd