05. februar 2007 - 08:31Der er
10 kommentarer og 1 løsning
Køre 37 labels igennem og lave onclick
Hej Eksperter
Jeg har et problem. Jeg har lavet en kalender og vil nu gerne have sådan at man kan klikke på alle mine labels, som indeholder data. Jeg har fundet ud af at kører dem igennem og få skrevet i dem, men vil gerne have man kan klikke på dem også kommer dataen frem i min userform showdata.
Hvordan kan dette lade sig gøre? Jeg gider nemlig ikke sidde og lave click på dem manuelt, da det må kunne gøres nemmere.
Med kunstig intelligens skaber HP’s nye OmniBook X 14 en unik og skræddersyet brugeroplevelse målrettet dem, der ønsker høj ydeevne og intelligente funktioner
2 metoder alt efter humør :-) Metoden Label_Click håndtere så eventen
1: bemærk: Handles Label1.Click, label2.click Private Sub Label_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click, label2.click .... osv
for each l as label in labelArray AddHandler l.Click, AddressOf Label_Click next
Og så skal du lave en metode : Private Sub Label_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) dim l as label = sender showdata.datalabel.Text = l.text end sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.