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

猜你喜欢

  1. win7无法运行OCX控件,错误代码0x80040200

    1.首先同时按下win7旗舰版电脑键盘上的win+R快捷键打开电脑的运行窗口,在打开的运行窗口中,咱们输入cmd并单击回车,这样,咱们就可以打开win7旗舰版电脑的命令提示符窗口了,当然大家也可以直接 ...

  2. 怎样解决浏览器阻止activex控件运行

    1.打开浏览器,在菜单栏上选择"工具"选项,在弹出的下拉页面选择"Internet选项". 2.打开Internet选项的窗口后,在属性页面里找到安全选项卡,选 ...

  3. IE11网页加载项和控件不能运行怎么办

    打开加载项管理界面,看到很多加载项都被禁止了,这是为什么呢? 经过一番摸索,原来是可以设置是否启用增强性功能的,IE浏览器,自从win2003之后,就有了增强型功能,其目的是为了IE浏览器更安全的运行 ...

  4. excel2013怎样插入窗体单选框控件

    excel2013插入窗体单选框控件教程: 插入窗体单选框控件步骤1:由于单选框按钮一般成组出现,所以我们先加一个[分组框],以便把若干个单选框放在一起,并联动.如下图,修改分组框的名称"学 ...

  5. 浏览器禁止运行activex控件怎么办

    浏览器禁止运行activex控件怎么办,这种情况应该大家都曾经遇到过吧?当打开某一网站的时候,若是网站中有视频文件或者是flash文件,就会在上方地址栏那里出现一个提示,说浏览器禁止activex控件 ...