vba窗体在运行的时候动态添加控件的代码
一、动态添加CommandButton命令按钮
Dim mc As CommandButton
Static k
k = k + 1
Set mc = Me.Controls.Add("Forms.Commandbutton.1")
mc.Caption = k
mc.Top = Me.Controls(k - 1).Top + Me.Controls(k - 1).Height
Me.Controls.Remove "Commandbutton1"
二、动态添加文本框
Set myText = Controls.Add( "VB.TextBox ", "myTextBox ")
With myText
.Visible = True
.Text = "这是加载的动态控件 "
.Width = 3200
End With
赞 (0)