三九宝宝网宝宝百科宝宝知识

vb中如何通过代码创建控件

01月13日 编辑 39baobao.com

[创建powerpoint 2010演示文稿的常用方法有哪些]方法一: 1、首先在电脑的需要创建PPT的空白位置点击鼠标右键,在弹出的选项中点击“新建”按钮。 2、然后在“新建”的选项菜单中选择“Microsoft PowerPoint演示文稿”。 3...+阅读

Option Explicit

Private WithEvents NewButton As CommandButton

'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()

If NewButton Is Nothing Then

Set NewButton = Controls.Add("VB.CommandButton", "cmdNew", Form1)

'增加新的按钮cmdNew

NewButton.Move Command1.Left + Command1.Width + 240, Command1.Top

'确定新增按钮cmdNew的位置

NewButton.Caption = "动态添加的按钮"

NewButton.Visible = True

'显示该按钮

End If

End Sub

Private Sub Command2_Click()

If NewButton Is Nothing Then

Exit Sub

Else

Controls.Remove NewButton

Set NewButton = Nothing

End If

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 9

Set NewButton = Controls.Add("VB.CommandButton", "Cmd" & i, Form1)

'增加新的按钮cmdNew

NewButton.Move 100 + i * 500, 500, 500, 120

'确定新增按钮cmdNew的位置

NewButton.Caption = i

NewButton.Visible = True

Next i

End Sub

Private Sub NewButton_click()

MsgBox "这是动态增加的按钮,你可以单击“删除控件”按钮删除它", vbDefaultButton1, "Click"

End Sub

Private Sub cmd1_click()

End

End Sub

你参考一下,这是创建Command 的

以下为关联文档:

如何创建一个PowerPoint演示文稿求解答微软Powerpoint和左击。应用程序加载后,你有你自己的第一张幻灯片(标题幻灯片),也可以选择在左侧幻灯片布局。 第2步按“新幻灯片”在顶部的工具栏,另外幻灯片插入。在这个幻灯片...

如何创建一个Mysql数据库命令:create database例1:建立一个名为xhkdb的数据库 mysql>create database xhkdb; 例2:创建数据库并分配用户 ①CREATE DATABASE 数据库名; ②GRANT SELECT,INSERT,UPDATE,DELE...

如何创建一个SQL数据库Dim cn As Connection Dim str As String str = "CREATE DATABASE Sales " & _ "ON (NAME = Sales_dat," & _ "FILENAME = 'D:\saledat.mdf'," & _ "SIZE = 1MB,MAXSIZE = 5MB,FILE...

vb如何制作控件利用vb自制ocx控件 刘明 (07/15/1999) 如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。同时OCX控件还有利于主程序的简单化、功能...

vb中怎么添加控件1、首先打开VB6.0,选择“标准EXE”。 2、然后按下键盘上的“Ctrl+T”来选择部件。 3、在其中找到“Microsoft Multimedia Control 6.0”选项。 4、点击左侧的小框框来选中...

VB如何开发控件Tabstrip 应用实例:创建选项卡式对话框 TabStrip 控件用来创建包含多个选项卡的对话框。选项卡之间通常具有一定关系,属于某一大类,因此需要将它与其它选项卡放在同一对话框中...

vb如何实现在程序中一次生成大批控件sh(1).TextBox".Shape", "Shape_" & i) 用法如, "TextBox_" & I) '.Visible = True txtField(I).Enabled = True Next I 引用 txtField(I);设置控件的容器、位置、宽、高 Set txtFie...

如何在VB类模块中创建控件我是来混分的,也是为了以后遇到这种问题的人,能有个明确的知识可查。选不选我为标准答案不重要,重要的是,我看到这个了能解决我的问题。谢谢楼主分享。 这个问题已经解决了.发这...

在VB中如何动态创建控件讲话要文明点,特别是问问题时 给你两种方法 Option Explicit Dim oCtrl As Object '使得控件可以响应事件 Dim WithEvents MyBtn As CommandButton Private Sub Form_Load()...

推荐阅读
图文推荐