用户登陆
站点日历
站点统计
最新评论
VBA 使用控件组 [ 日期：2008-08-04 ] [ 来自： 在VBA窗体设计中，可将一些开发中使用的控件全部选择后，直接拖至工具箱中，工具箱会添加一个"控件组"，在窗体设计中可直接将该控件组放置于窗体，大大提高了效率(该特点为VBA所独有)。
如开发者需使用VBA标准控件箱未提供的其他控件，可右键单击工具箱，在出现的菜单中选择"附加控件"命令，在出现的对话框中进行选择即可。
在VBA窗体工具箱中附加控件中没有出现的控件，我们可以在vb的窗体中加入，然后在vba中导入该窗体，但是vbe不支持的控件就不能导入了。
如开发者需使用VBA标准控件箱未提供的其他控件，可右键单击工具箱，在出现的菜单中选择"附加控件"命令，在出现的对话框中进行选择即可。
在VBA窗体工具箱中附加控件中没有出现的控件，我们可以在vb的窗体中加入，然后在vba中导入该窗体，但是vbe不支持的控件就不能导入了。
[本日志由 田草 于 2008-08-10 11:11 AM 编辑]
|
|
Dim Ctrl() As Control
Private Sub UserForm_Click()
Dim i As Integer
For i = 0 To 2
'多控件组的各种操作
Next
End Sub
Private Sub UserForm_Initialize()
ReDim Ctrl(2)
Set Ctrl(0) = Me.CommandButton1
Set Ctrl(1) = Me.CommandButton2
Set Ctrl(2) = Me.CommandButton3
End Sub
Private Sub UserForm_Click()
Dim i As Integer
For i = 0 To 2
'多控件组的各种操作
Next
End Sub
Private Sub UserForm_Initialize()
ReDim Ctrl(2)
Set Ctrl(0) = Me.CommandButton1
Set Ctrl(1) = Me.CommandButton2
Set Ctrl(2) = Me.CommandButton3
End Sub
| 发表评论 - 不要忘了输入验证码哦！ |