VB中如何用代码添加命令按钮

我不想通过复制来添加命令按钮组`而是想只用一个按钮来添加` 通过循环语句来添加` 怎么实现,?
不要以为这不可能` 我自己都做过` 不过忘记了而已`

按以下步骤实现动态添加命令按钮

(1)新建一个VB6工程

(2)Form1窗体代码

Option Explicit

'定义要动态添加的命令按钮变量(带事件处理)
Dim WithEvents cmdX As CommandButton

'点击动态添加的按钮,弹出对话框
Private Sub cmdX_Click()
    MsgBox "动态添加的命令按钮!!!"
End Sub

'鼠标双击窗体,动态添加一个命令按钮
Private Sub Form_DblClick()
    If cmdX Is Nothing Then
        Set cmdX = Controls.Add("VB.CommandButton", "cmd1")
        cmdX.Caption = "点击我呀"
        cmdX.Width = 4500
        cmdX.Move 150, 150
        cmdX.Visible = True
    End If
End Sub

(3)运行

启动后

鼠标双击窗体

点击命令按钮,弹出一个对话框

温馨提示:内容为网友见解,仅供参考
第1个回答  2018-07-20

按以下步骤实现动态添加命令按钮

(1)新建一个VB6工程

(2)Form1窗体代码

Option Explicit

定义要动态添加的命令按钮变量(带事件处理)

Dim WithEvents cmdX As CommandButton

点击动态添加的按钮,弹出对话框

Private Sub cmdX_Click()

MsgBox "动态添加的命令按钮!!!"

End Sub

'鼠标双击窗体,动态添加一个命令按钮

Private Sub Form_DblClick()

If cmdX Is Nothing Then

Set cmdX = Controls.Add("VB.CommandButton", "cmd1")

cmdX.Caption = "点击我呀"

cmdX.Width = 4500

cmdX.Move 150, 150

cmdX.Visible = True

End If

End Sub(3)运行

启动后鼠标双击窗体点击命令按钮,弹出一个对话框

拓展资料

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

从任何标准来说,VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。

VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

主要优点:

1,简单易学。

2,开发速度快。

3,可读性很好。

本回答被网友采纳
第2个回答  2007-07-02
Private Sub Form_Load()
Controls.Add "VB.CommandButton", "cmdOk", Form1
Form1!cmdok.Visible = True
End Sub

添加控件数组的话,需要手动添加1个命令按钮,把index设置为0

Private Sub Command1_Click(Index As Integer)
Static s
If Index = 0 Then
s = s + 1
Load Command1(s)
Command1(s).Visible = True
Command1(s).Height = Command1(s - 1).Height + 500
End If
End Sub本回答被提问者采纳
第3个回答  2007-07-02
你都有做过了还上来问干嘛!傻子!语气还硬的很,不要忘了现在你是在求人,知道也不告诉你
第4个回答  2007-07-02
好像不行

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...

VB中如何用代码添加命令按钮
(1)新建一个VB6工程 (2)Form1窗体代码 Option Explicit'定义要动态添加的命令按钮变量(带事件处理)Dim WithEvents cmdX As CommandButton'点击动态添加的按钮,弹出对话框Private Sub cmdX_Click() MsgBox "动态添加的命令按钮!!!"End Sub'鼠标双击窗体,动态添加一个命令按钮Private Sub Fo...

如何给常用宏或vb添加执行按钮?
在“窗体”工具栏上选择“按钮”图标,并在表格空白处拖动出的按钮的大小。在弹出的“指定宏”窗口中,选择按钮对应要执行的宏。并将按钮的名称进行修改。最后单击表格空白处就可以退出窗体编辑状态。这个时候你只要点击这个按钮,就可以快速执行宏命令了。不用再找菜单了。

VB6.0里如何加代码
1. 首先,你需要在窗体上绘制一个命令按钮Command1。这可以通过工具栏上的"命令按钮"图标或者通过拖拽鼠标在窗体上绘制完成。2. 接下来,添加一个复选框Check1。同样,通过工具栏或鼠标在Command1旁边放置一个复选框,它会自动关联到Command1。3. 然后,复制这两个控件。在工具栏上找到"复制"按钮,...

VB如何实现窗体中添加按钮控件
1、打开VB6.0,新建一个工程,在窗体中添加一个命令按钮,caption分别改为“调用函数”,将窗体Form1的caption属性改为“VB6.0自定义函数”。2、双击窗体Form1,进入代码编辑窗口,单击左侧下拉三角形,选择通用。3、在通用段输入代码,并将Form_Load事件删除。4、双击“调用函数”命令按钮,进入代码编辑...

在VB中健个命令按钮和一个文本框单击按钮时文本框消失
1、首先,在窗体上面添加一个文本框。2、单击文本框,在属性窗口设置文本框的属性,清空文本内容。3、将文本框的enabled属性设置为False。4、在窗体上添加一个命令按钮,如下图所示。5、在属性窗口,设置命令按钮的Caption属性为“允许输入”。6、双击命令按钮,编辑其代码。7、运行程序,输入“百度”。

vb 按钮 打开网页
首先,打开你的VB项目,选择或创建一个适当的窗体,然后在窗体上添加一个命令按钮。通常,命令按钮可以使用快捷键“Alt + 1”快速访问。接着,双击命令按钮以跳转到代码编辑器。在代码编辑器中,输入以下代码:vba Private Sub Command1_Click() On Error Resume Next Dim o As Object Set o = ...

VB中,怎样能实现点击命令按钮,能打开一个软件?如:点击后,打开QQ_百 ...
这个完全可以的,有个调用外部程序的函数,在读取系统QQ注册表中记录的QQ路径就可以了.

VB编写按键程序.
1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用 WshShell.SendKeys "x" 即可.也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可.例如,要发送按键"cfan",可以使用" WshShell.SendKeys "cfan" ".2.特殊功能键 对于需要与Shift、Ctrl、...

vb如何加一个清除文本框内容的按钮
1、首先,在窗口中添加一个文本框,如下图所示,然后进入下一步。2、其次,单击文本框,在属性窗口中设置文本框的属性,清除文本,如下图所示,然后进入下一步。3、接着,将文本框的enabled属性设置为False,如下图所示,然后进入下一步。4、然后,在表单上添加一个命令按钮,如下图所示,然后进入下...

相似回答