使用api函數SetParent可實現這一點如下:
建兩個form
form1 主窗體,放一按鈕,及PictureBox
form2 子窗體.
Option ExplicitPrivate Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Command1_Click()
SetParent Form2.hWnd, Picture1.hWnd
Form2.Show
End SubPrivate Sub Form_Load()
Load Form2
End Sub
建兩個form
form1 主窗體,放一按鈕,及PictureBox
form2 子窗體.
Option ExplicitPrivate Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Command1_Click()
SetParent Form2.hWnd, Picture1.hWnd
Form2.Show
End SubPrivate Sub Form_Load()
Load Form2
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货