请问VB 中有没有命令按钮数组 怎么添加？？

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

命令按钮数组的代码都是写在一起的 而不是那种一个按钮一个代码的那种````

解析:

你可以在frm上面把你要设定的控件进行复制，然后在同一frm之中进行

复制，这时候系统就要进行询问是否建立按钮数组。确定即可，

控件数组是以每个控件的index来进行访问的。

VB6

VB2010等版本用法相同

步骤一：（鼠标左键）单击左侧工具条里按钮图标

步骤二：在窗体上点住鼠标左键不放，拖拽出按钮后再松开即可

工具条上其它控件的使用方法也一样的用法。祝你学习VB的旅程愉快顺利

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

（1）新建一个VB6工程

（2）Form1窗体代码

Option Explicit

'定义要动态添加的命令按钮变量（带事件处理）

Dim WithEvents cmdX As CommandButton

'点击动态添加的按钮，d出对话框

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

---