EXCEL VBA:窗体在运行的时候动态添加控件的代码

2013-08-28 17:00 阅读 720 次 评论关闭

在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

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA:窗体在运行的时候动态添加控件的代码 | 猎微网

评论已关闭!