picture1转移前:
picture1转移后:
要解决的问题:如题和上图(转移后图片)
代码:
'声明控件转移
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
'获取桌面句柄
Private Declare Function GetDesktopWindow Lib "user32 " () As Long
Private Sub Command1_Click()
Call SetParent(Picture1.hWnd, GetDesktopWindow)
End Sub
Private Sub Command2_Click()
Call SetParent(Picture1.hWnd, Form1.hWnd)
End Sub
找老久,不知道附件从哪能传上来?倒!