Label Control

[Mus986]

Hello,
I have a form with labels that represent each letter of the alphabet that I intend to use as a way of filtering a listbox. So far I have created a class module called clsSimple and a Procedure called basTest with a function called TestSimple and i'm able to pass the value of the label I click. I'm just not sure what to do on the form end without coding each label's click event to pass the label value. Thank you in advance.


clsSimple
Public Letter As String


Public Function TestSimple(sLetter As String)
Dim oSim As clsSimple
Set oSim = New clsSimple

oSim.Letter = sLetter

MsgBox oSim.Letter

End Function

 

[MajP]

Use a command button instead of a label if you can.
A label can not be the "active control"
Select all your command buttons at one time and in the event
type "= testSimple()". Do not select "[Event Procedure]".

Public Function TestSimple()
Dim oSim As clsSimple
Set oSim = New clsSimple
oSim.Letter = me.activecontrol.caption
MsgBox oSim.Letter
End Function

 

[MajP]

Also take a look at Faq702-6904