关于使用类模块定义事件

悄无声息11 2013-06-12 12:31:11
谁帮我看看代码的问题
我现在在窗体中 有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

...全文
157 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
悄无声息11 2013-06-15
  • 打赏
  • 举报
回复
调试了 就是点击不触发 我放弃了 我写了96个程序
wwwwb 2013-06-13
  • 打赏
  • 举报
回复
分步调试,看看问题出在什么地方

7,732

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧