[已解决]类模块设置还是有点问题。求助。

jdong7

模块和类模块里有代码。

类模块：
Public WithEvents spb As MSForms.SpinButton
Dim num As Integer

Private Sub spb_SpinUp()

MsgBox 1

End Sub

模块：
Dim arr(12) As New SpbClass
Sub NewButton()
Dim i
    For i = 0 To 11
        Set arr(i).spb = UserForm1.Controls("SpinButton" & i + 1)
          arr(i).spb.Max = 10
         arr(i).spb.Min = 0
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-5-19 16:56

1楼只是当工作簿打开时显示窗体，但并没有“实例化旋转按钮”，所以类模块没起作用。


不换位置也行，但必须在应用之前，实例化。
回合制3.rar (19.3 KB, 下载次数: 4)

2015-5-19 16:55 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

回合制2.rar (18 KB, 下载次数: 1)

2015-5-19 16:39 上传

点击文件名下载附件


只是把代码的位置，放到窗体里。

jdong7

爱疯 发表于 2015-5-19 16:39
只是把代码的位置，放到窗体里。

OMG why。。 求科学的解释下为什么放窗体里不放模块里。
我放模块里是因为上次做的按钮是放模块里的。。

爱疯

1楼只是当工作簿打开时显示窗体，但并没有“实例化旋转按钮”，所以类模块没起作用。


不换位置也行，但必须在应用之前，实例化。
回合制3.rar (19.3 KB, 下载次数: 4)

2015-5-19 16:55 上传

点击文件名下载附件

jdong7

爱疯 发表于 2015-5-19 16:56
1楼只是当工作簿打开时显示窗体，但并没有“实例化旋转按钮”，所以类模块没起作用。

好像懂了呢。。谢谢！