/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
[vb6] array list
Fra : hom


Dato : 08-11-02 02:27

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





 
 
Jens Vestergaard (08-11-2002)
Kommentar
Fra : Jens Vestergaard


Dato : 08-11-02 07:49

"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




Ove Hansen (08-11-2002)
Kommentar
Fra : Ove Hansen


Dato : 08-11-02 08:23


"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



hom (08-11-2002)
Kommentar
Fra : hom


Dato : 08-11-02 21:30

tusind tak
det hele kunne bruges

m.v.h
henrik



Tomas Christiansen (09-11-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 09-11-02 22:22

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


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste