EXCEL VBA:窗体在运行的时候动态添加控件的代码
本文标签: 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
vba做excel窗体录入教程.Text = "这是加载的动态控件 "
.Width = 3200
End With
.Visible = True
vba做excel窗体录入教程.Text = "这是加载的动态控件 "
.Width = 3200
End With
转载请保留链接: EXCEL VBA:窗体在运行的时候动态添加控件的代码
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论