动态添加了按钮，但只有最后一个按钮响应。

恐龙哥

动态添加了几个按钮，分别以sheets名来作为caption，点击时跳转到相应的sheets上去，但只有最后一个按钮能跳转，请大家指导一下，谢谢。代码如下。
窗体代码
Public Sub UserForm_Click()
Dim i
For i = 1 To Sheets.Count
Set tjhm = New tjhman
Set tjhm.hman = Controls.Add(("Forms.CommandButton.1"))
tjhm.hman.Caption = Sheets(i).Name
tjhm.hman.Top = i * 25
Next i
End Sub＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
模块里的代码
Option Explicit
Public tjhm As New tjhman
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
类tjhman里的代码
Option Explicit
Public WithEvents hman As CommandButton

Private Sub hman_Click()
MsgBox tjhm.hman.Caption
Sheets(tjhm.hman.Caption).Select
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
4.rar (154.64 KB, 下载次数: 33)

2015-12-29 14:05 上传

点击文件名下载附件

wxhnr

窗体
Dim btns As New Collection

Public Sub UserForm_Click()
Dim i
Dim tjhm As New tjhman

For i = 1 To Sheets.Count
Set tjhm = New tjhman
Set tjhm.hman = Controls.Add(("Forms.CommandButton.1"))
tjhm.hman.Caption = Sheets(i).Name
tjhm.hman.Top = i * 25
btns.Add tjhm
Next i



End Sub

类模块
Option Explicit
Public WithEvents hman As CommandButton

Private Sub hman_Click()
MsgBox hman.Caption
Worksheets(hman.Caption).Select
End Sub


模块里的tjhm不要了。

恐龙哥

wxhnr 发表于 2015-12-29 16:08
窗体
Dim btns As New Collection

谢谢，可以用了。但为什么要用个collecition集合呢？

wxhnr

恐龙哥 发表于 2015-12-29 16:20
谢谢，可以用了。但为什么要用个collecition集合呢？

我认为这是可能是微软规定的。

xiaopeng3017

我写过类似的代码，不过跳转的是sheet里面的列，我的sheet有60列。。。

前面大家提到的编码架构和我了解的不一样。我说下自己的理解，不对的地方，请大家指正。
form响应button提交的事件（raise event），如果要写button_click()（事件处理），也应该写在form里面啊。为什么写到类模块里面去了？这个我不懂，也不是很了解。
我以为的简单流程：
form里面1.生成button（这里该是用designer.add）
2.写button_click()事件处理 实现按钮跳转sheet

3.没了

我以为的编码架构：
如果你有自定义类触发提交事件给form，按照你的编码思路，该是由button_click()触发该类的实例提交事件给form。
在form里面加了button会默认接受click事件的（我觉得这是vb默认写好，看不到代码的），不需要我们自己添加WithEvents的。
这个我稍微解释下，我动态加button就是不写withevents的，每个button都能用的。而且手动画个button在form里面，从来没见form的codemodule里面会出现“private withevents commandbutton1 as from.commandbutton”这样的语句吧。
而你的自定义类（button以外的类），提交事件给form，最好的办法就是按照button_click那隐形的“套路”来。
而且，这一实现的“入口”当然可以写在button_click()事件处理中（总要有个开始，或者写在form初始化中），在这里调用自定义类的成员函数，进而触发自定义类的raise event，并在form中接受这一event，然后编写事件处理。


form收到button的click事件A，form进行A事件处理时触发了自定义类的函数提交事件B给form，form处理事件B。

yyzh_god_2013

Dim tjhm As New tjhman
用户定义类型未定义。。。。失败、、、、