button btn=new button()
btn.....
btn.name=""
....
父容器.controls.add(btn);
这样就可以撒。你不用的时候
父容器.controls.remove(btn);
假设你在窗体上添加一个PictureBox作为容器,添加一个按钮,代码如下:Option Explicit
'定义控件对象
Private WithEvents Text1 As TextBox
Private Sub Command1_Click()
'动态添加控件
Set Text1 = Me.Controls.Add("VB.TextBox", "Text1", Picture1)
'设置该对象为可见
Text1.Visible = True
Text1.Top = 200
Text1.Left = 300
Text1.Text = "您好!"
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)