晕,有你这么问吗?只要有问,就有答 Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Form_Load() SetParent Command1.hWnd, ListView1.hWnd End Sub
这么问不对??那怎么问啊.呵呵..谢谢答案.我自己解决了 Dim button As Button button = New Button adoresusenntaku.Controls.Add(button) button.Location = New System.Drawing.Point(100, 100)
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Form_Load()
SetParent Command1.hWnd, ListView1.hWnd
End Sub
Dim button As Button
button = New Button
adoresusenntaku.Controls.Add(button)
button.Location = New System.Drawing.Point(100, 100)