vba窗体在运行的时候动态添加控件的代码
2012-06-03 09:04:21 来源:开发学院 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€n亜顒㈡い鎰Г閹便劌顫滈崱妤€骞婄紓鍌氬€瑰銊╁箟缁嬫鍚嬮柛顐線缂冩洟姊婚崒娆戭槮婵犫偓闁秵鎯為幖娣妼缁愭鏌″搴′簽濞戞挸绉甸妵鍕冀椤愵澀娌梺缁樻尪閸庣敻寮婚敐澶婂嵆闁绘劖绁撮崑鎾诲捶椤撴稑浜炬慨妯煎亾鐎氾拷

核心提示:在Excel的窗体里面,如何在窗体运行的情况下动态的添加控件呢?以下代码,vba窗体在运行的时候动态添加控件的代码,以动态添加控件为例子,希望对你有帮助
在Excel的窗体里面,如何在窗体运行的情况下动态的添加控件呢?
以下代码,以动态添加控件为例子,希望对你有帮助。
一、动态添加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
更多精彩
赞助商链接