论坛有老用户提问到关于显示点击的控件问题，即窗体中有若干标签（label），如何能知道当前被点击的是哪个？

如下图所示，当点击标签时，显示点击到标签标题

版主roych在一番斥责后，给出了答案，用onclick对象返回“属性”窗口中“单击”框的值

Private Sub Form_Load() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acLabel Then ctl.OnClick = "=Label_Click([" & ctl.Name & "])" End If Next End Sub Function Label_Click(ByRef lbl As Label) MsgBox "你点击了" & lbl.Caption End Function

获取效果如图所示：

学习更多的Access源码技巧，请关注Office交流网：http://www.office-cn.net