[已解决]与类有关的一个初级代码问题。

silenthunter · 发表于 2014-2-19 23:41

本帖最后由 silenthunter 于 2014-2-22 08:57 编辑

类模块按钮.rar (11.3 KB, 下载次数: 4)

2014-2-19 23:45 上传

点击文件名下载附件

请教，我不太理解窗体模块中这一句Set Buttons(ButtonCount).ButtonGroup = Ctl，把Control控件对象赋值给类模块中的ButtonGroup属性？那又怎么样？单步运行到窗体模块结束时，ctl为什么是空值？

窗体模块：
Dim Buttons() As New BtnClass

Private Sub UserForm_Initialize()
Dim ButtonCount As Integer
Dim Ctl As Control
ButtonCount = 0
For Each Ctl In Me.Controls
If TypeName(Ctl) = "CommandButton" Then
   If Ctl.Name <> "OKButton" Then
      ButtonCount = ButtonCount + 1
      ReDim Preserve Buttons(1 To ButtonCount)
      Set Buttons(ButtonCount).ButtonGroup = Ctl
   End If
End If
Next
Stop
End Sub

类模块：
Public WithEvents ButtonGroup As MSForms.CommandButton

Private Sub ButtonGroup_Click()
Dim Msg As String
Msg = "你单击了" & ButtonGroup.Name & Chr(13)
Msg = Msg & "按钮是：" & ButtonGroup.Caption & Chr(13)
MsgBox Msg, vbInformation, ButtonGroup.Name
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-20 08:41

Dim Buttons() As New BtnClass
'动态数组，类型为BtnClass
'BtnClass类里声明ButtonGroup对象变量。
'ButtonGroup响应命令按钮触发的事件
'这样声明后，你可以在代码区的对象下拉列表中找到该变量，然后就可以写该对象的事件响应代码
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim ButtonCount As Integer
Dim Ctl As Control
ButtonCount = 0
For Each Ctl In Me.Controls
'遍历控件
If TypeName(Ctl) = "CommandButton" Then
'检测控件是否为命令按钮
If Ctl.Name <> "OKButton" Then
'排除名称为OKButton的命令按钮
ButtonCount = ButtonCount + 1
'ButtonCount为计数器
ReDim Preserve Buttons(1 To ButtonCount)
'数组扩容，保留原有值
Set Buttons(ButtonCount).ButtonGroup = Ctl
'设置ButtonGroup引用
'ButtonGroup变量是为响应命令按钮的事件
End If
End If
Next
End Sub

复制代码

跳转到最佳答案楼层

hetianjun888 · 发表于 2014-2-20 08:06

学习了

苗凱 · 发表于 2014-2-20 08:36

编写大量具有相同事件的同类控件时,用类模块能够简化代码

hwc2ycy · 发表于 2014-2-20 08:41

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

Dim Buttons() As New BtnClass
'动态数组，类型为BtnClass
'BtnClass类里声明ButtonGroup对象变量。
'ButtonGroup响应命令按钮触发的事件
'这样声明后，你可以在代码区的对象下拉列表中找到该变量，然后就可以写该对象的事件响应代码
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim ButtonCount As Integer
Dim Ctl As Control
ButtonCount = 0
For Each Ctl In Me.Controls
'遍历控件
If TypeName(Ctl) = "CommandButton" Then
'检测控件是否为命令按钮
If Ctl.Name <> "OKButton" Then
'排除名称为OKButton的命令按钮
ButtonCount = ButtonCount + 1
'ButtonCount为计数器
ReDim Preserve Buttons(1 To ButtonCount)
'数组扩容，保留原有值
Set Buttons(ButtonCount).ButtonGroup = Ctl
'设置ButtonGroup引用
'ButtonGroup变量是为响应命令按钮的事件
End If
End If
Next
End Sub

复制代码

hwc2ycy · 发表于 2014-2-20 08:45

苗凱 · 发表于 2014-2-20 09:49

为什么不用控件数组呢

silenthunter · 发表于 2014-2-20 23:41

本帖最后由 silenthunter 于 2014-2-20 23:50 编辑

hwc2ycy 发表于 2014-2-20 08:45

谢谢。我已经明白了是怎么回事。

Set Buttons(ButtonCount).ButtonGroup = Ctl 其实可以分解成：

Set Buttons(1).ButtonGroup = Me.CommandButton1
Set Buttons(2).ButtonGroup = Me.CommandButton2
Set Buttons(3).ButtonGroup = Me.CommandButton3
……
……

经过for each以后ctr已经储存了一个个按钮对象。通俗地说，让所有按钮都具备类模块中的属性。

silenthunter · 发表于 2014-2-20 23:42

苗凱发表于 2014-2-20 09:49
为什么不用控件数组呢

Dim Buttons() As New BtnClass

我不懂。这句不是控件数组吗？

		自动登录	找回密码
密码			注册

[已解决]与类有关的一个初级代码问题。

点评