请教！如何简化双击事件的代码？（已解决）

sxgaobo

窗体中有若干标签都需要写双击事件，
Private Sub Label0_DblClick(Cancel As Integer)
MsgBox "我是0号标签！"
End Sub
Private Sub Label1_DblClick(Cancel As Integer)
MsgBox "我是1号标签！"
End Sub
Private Sub Label2_DblClick(Cancel As Integer)
MsgBox "我是2号标签！"
End Sub
Private Sub Label3_DblClick(Cancel As Integer)
MsgBox "我是3号标签！"
End Sub
Private Sub Label4_DblClick(Cancel As Integer)
MsgBox "我是4号标签！"
End Sub
Private Sub Label5_DblClick(Cancel As Integer)
MsgBox "我是5号标签！"
End Sub
Private Sub Label6_DblClick(Cancel As Integer)
MsgBox "我是6号标签！"
End Sub
这是7个标签的双击事件，可否用循环指令或其它办法简化其啊！？

koutx

一、建一公用模块函数：
Function msgb(ByVal nam As String)
    MsgBox "我是" & Right(nam, 1) & "号标签！"
End Function
二、在Label双击事件中：
msgb(me.你的标签名.name)

sxgaobo

我的意思是可不可以不用在每个标签里都写代码！
我想在窗体中放200多个标签

koutx

双击事件中如一句代码也没有，那就是说你双击它没任何响应的。

ACMAIN_CHM

在你的FORM LOAD中可以对所有的controls 的 OnClick 来赋值，设定事件响应代码过程。

sxgaobo

在你的FORM LOAD中可以对所有的controls 的 OnClick 来赋值，设定事件响应代码过程。
ACMAIN_CHM 发表于 2009-6-13 15:01

怎么做啊？

红尘如烟

Private Sub Form_Load()
    Dim ctl As Control
    For Each ctl In Me
        If TypeOf ctl Is Label Then
            ctl.OnDblClick = "=LabelDblClick([" & ctl.Name & "])"
        End If
    Next
End Sub

Public Function LabelDblClick(Label As Label)
    MsgBox "我是" & Val(Mid(Label.Name, 6)) & "号标签!"
End Function

sxgaobo

谢谢 红尘如烟！你真的是太帅了！
再麻烦您下，我用 Me.Controls("Label" & i).Tag = r("编号") 给标签附了值，怎么能再双击的时候调出来啊？
MsgBox Me.Label & Val(Mid(Label.Name, 6)).Tag
提示错误！！！

sxgaobo

等待......

sxgaobo

解决了！
MsgBox Me("Label" & Mid(Label.Name, 6)).Tag