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

2016-02-19 14:04 53 1 收藏

在这个颜值当道，屌丝闪边的时代，拼不过颜值拼内涵，只有知识丰富才能提升一个人的内在气质和修养，所谓人丑就要多学习，今天图老师给大家分享vba窗体在运行的时候动态添加控件的代码，希望可以对大家能有小小的帮助。

【 tulaoshi.com - 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

来源:http://www.tulaoshi.com/n/20160219/1606090.html

上一篇： 7.2 用ASP构建音乐服务器
下一篇： 7.5 通过表单创建word的一个例子

看过《vba窗体在运行的时候动态添加控件的代码》的人还看了以下文章更多>>

android实现获取正在运行的应用程序

标签：编程语言网络编程

因为在framework中想添加这个功能，所以写了个appliction来实现一下获取正在运行的应用程序：还是先看图吧：这个app主要是简单的实现了获取非系统的应用程序和一些常用的系统应用程序，显示在一个listview中，并添加了点击（回复到你打开的界面）和长按事件（关闭应用程序）。看看代码吧：直接贴出来再加上注释吧（直接写在一个文件里...

excel按筛选颜色的VBA代码

标签：电脑入门

在excel中，使用可视化的简单操作方法，是很难根据颜色来筛选的，因此，我们只能使用VBA代码来实现。以下代码的功能是：除首行外，将当前单元格所在列数据与当前单元格不同颜色的行隐藏起来，数据首行为标题列。如果你有其它的需求，请自行修改代码。 Sub FilterColor() Dim UseRow, AC UseRow = Cells.SpecialCells(xlCellTypeLastCell...

Excel简体繁体转换的VBA代码

标签：电脑入门

在Excel中，没有简体和繁体文字之间的转换功能。但是Word却有此功能，因此，我们可以在Excel中通过VBA代码调用Word的繁体和简体功能，实现在Excel中的简体繁体转换的功能。下面就是与此相关的VBA代码，希望对你有帮助。 Sub JFZH() Dim wd As Word.Application Set wd = New Word.Application With wd.Documents.Add .Sections(1).Rang...

Jquery 动态添加按钮实现代码

标签： Web开发

点击添加动态添加两个文本框：分别表示x和y的值，点击取消删除本行的2个文本框记得要引入jquery.js 代码如下： script type="text/javascript" src="js/jquery.js"/script script type="text/javascript" $(function() { $("#btnMian").click(function() { //生成 0 到100000 随机数 Mapth.random产生 0到1的随机数然后乘以10000...

android ListView内数据的动态添加与删除实例代码

标签：编程语言网络编程

main.xml 文件：代码如下： ?xml version="1.0" encoding="utf-8"? LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" android:layout_width="fill_parent" android:layout_height="fill_parent" &n...

查看更多精彩>>