关于使用类模块定义事件
谁帮我看看代码的问题
我现在在窗体中 有96个label 我现在希望能对这96个共同建立一个事件 就是当他们某个被点击时运行某个程序
但是按网上的教程的修改后 如下
运行后 点击那些label 没有任何反应 也不促发事件啊
在窗体中的代码:
Dim co As Collection
Private Sub Form_Load()
Set co = New Collection
Me.查询 = ""
Dim myc As cmd
For i = 1 To 8
For t = 1 To 12
Me.Controls("Label" & i & t).Caption = ""
Set myc = New cmd
Set myc.cmd = Me.Controls("Label" & i & t)
co.Add myc
Next t
Next i
Me.com_up.Visible = False
Me.com_down.Visible = False
Set myc = Nothing
End Sub
在类模块 cmd中代码
Option Explicit
Public WithEvents cmd As Label
Private Sub cmd_Click()
If Not cmd.Caption = "" Then
X = Len(cmd.Name) - 6
X = Mid(cmd.Name, 7, X)
BM = Form("销售查询").Controls("Label1" & X).Caption
DoCmd.Close
Call 返回宏
End If
End Sub