---

hej
er det ikke muligt at lave
Labelnr(1).Visible = True
Labelnr(2).Visible = True

om til noget ligende det her
Labelnr(1,2).Visible=True

m.v.h
Henrik

---

"hom" <none@nowhere.dk> skrev i en meddelelse
news:3dcb12ba$0$49972$edfadb0f@dread13.news.tele.dk...
> hej
> er det ikke muligt at lave
> Labelnr(1).Visible = True
> Labelnr(2).Visible = True
>
> om til noget ligende det her
> Labelnr(1,2).Visible=True

Nej!

Men hvis du har en lang liste at gennemløbe, er der flere andre muligheder:

Dim x as Integer
Dim AntalLabels as Integer
AntalLabels = [dit antal]
For x = 1 To AntalLabels
Labelnr(x).Visilbe = True
Next

Eller

Dim l as Label
For each l In Labelnr
l.Visible = True
Next

--
mvh
Jens Vestergaard
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp

---

"hom" <none@nowhere.dk> wrote in message
news:3dcb12ba$0$49972$edfadb0f@dread13.news.tele.dk...
> hej
> er det ikke muligt at lave
> Labelnr(1).Visible = True
> Labelnr(2).Visible = True
>
> om til noget ligende det her
> Labelnr(1,2).Visible=True
>
> m.v.h
> Henrik
>

Sub Labelstatus (Status As Boolean)

Dim N as integer

For N = 0 to Controls.Count - 1
If TypeOf Controls(N) Is Label Then
Controls(N).Visible = Status
End If
Next

End Sub

Sub Main

Labelstatus (True)

End Sub


/Ove

---

tusind tak
det hele kunne bruges

m.v.h
henrik

---

hom skrev:
> det hele kunne bruges

Jeg vil nu alligevel godt komme med et forslag mere.

Når man benytter sig af 'control arrays', er det ikke altid at man vil
benytte fortløbende numre som index. Det kan være at index 1, 3, 5, 7
og 99 eksisterer, men ikke 0, 2, 4, 6, 8..98 og større end 99. Hvis
man gør det til en vane at se på den slags som 'collections', når man
behandle dem alle, istedet for at se på det som et antal enkeltstående
elementer, vil dette aldrig være et problem (hint: brug 'For Each').

Dim oLbl As Label
For Each oLbl In Labelnr
oLbl.Visible = True
Next

-------
Tomas