Goedenavond,
Zit weer met een vraagje.
Gebruik Labels om bepaalde gegevens te tonen.
Gebruik hierbij ook kleuren voor de BackColor van de Labels.
Vroeg me af of er geen betere manier is met een loop of lus om al deze Labels weer hun standaard kleur te geven (grijs)
Heb nu het volgende:
met de optie
werkt dus niet.
ff een vb-tje bijgevoegd..
Vr. Gr.
Dutch
Zit weer met een vraagje.
Gebruik Labels om bepaalde gegevens te tonen.
Gebruik hierbij ook kleuren voor de BackColor van de Labels.
Vroeg me af of er geen betere manier is met een loop of lus om al deze Labels weer hun standaard kleur te geven (grijs)
Heb nu het volgende:
Code:
Private Sub Kleuren2TB()
If Label1 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label2 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label3 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label4 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label5 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label6 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label7 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label8 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label9 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label10 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label11 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label12 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label13 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label14 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label15 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label16 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label17 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label18 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label19 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label20 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label21 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label22 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label23 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label24 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label25 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label26 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label27 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label28 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label29 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label30 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label31 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label32 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label33 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label34 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label35 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label36 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label37 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label38 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label39 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label40 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label41 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label42 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label43 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label44 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label45 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label46 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label47 <> "" Then Label1.BackColor = RGB(192, 192, 192)
If Label48 <> "" Then Label1.BackColor = RGB(192, 192, 192)
End Sub
met de optie
Code:
For i = 1 To 3
Label(i).BackColor = RGB(192, 192, 192)
Next i
werkt dus niet.
ff een vb-tje bijgevoegd..
Vr. Gr.
Dutch
Bijlagen
Laatst bewerkt: