office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access獲取被點擊的標簽控件標題

2018-10-12 16:57:00
roych
原創
1884
論壇有老用戶提問到關于顯示點擊的控件問題,即窗體中有若干標簽(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



獲取效果如圖所示:

    分享
    北京十一选五基本走势