如何用代码把控件“加到”另一个控件里？

[foko_zl]

在设计时，我们可以直接把文本框或者其他控件“画”到另一个控件里，在代码里（即运行时）怎么实现？

[rainstormmaster]

如果用controls.add动态添加控件的话，指定第3个参数就可以了，如果控件已经在窗体上了，可以考虑用api函数setparent实现

[华芸智森]

'在窗体上放一个PICTUREBOX 名称:Picture1
'一个按钮: 名称 Command1

Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal HwndChild As Long, ByVal HWndNewParent As Long) As Long
Dim WithEvents NewCommand As CommandButton

Private Sub Command1_Click()
Set NewCommand = Controls.Add("VB.CommandButton", "CommandAdd", Me)
SetParent NewCommand.hWnd, Picture1.hWnd
NewCommand.Move 100, 100
NewCommand.Visible = True
End Sub

Private Sub NewCommand_Click()
MsgBox NewCommand.Caption
End Sub

[华芸智森]

改一下:

Private Sub Command1_Click()
If NewCommand Is Nothing Then
Set NewCommand = Controls.Add("VB.CommandButton", "CommandAdd", Me)
NewCommand.Caption = "ADFASDF"
SetParent NewCommand.hWnd, Picture1.hWnd
NewCommand.Move 100, 100
NewCommand.Visible = True
End If
End Sub

[foko_zl]

谢谢两位，最近没时间测试，给分先！