/ 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
Omvendt For Each ... Next ?
Fra : Stefan Kristensen


Dato : 10-10-02 14:08

Hej NG.

Jeg har lavet en klasse bestående af et collection objekt og nogle
fuktioner, bl.a.

Public Function NewEnum() As IUnknown
Set NewEnum = colOUList.[_NewEnum]
End Function

hvilket lader mig bruge For Each ... Next på klassen. Det virker også fint,
men kan det lade sig gøre at gøre det baglæns? Altså starte med det element,
der blev tilføjet til sidst og slutte med det element, der blev tilføjet
først?

mvh
Stefan



 
 
b3nny pede (10-10-2002)
Kommentar
Fra : b3nny pede


Dato : 10-10-02 16:45

Du kan vel fylde dem på et array ved en eller anden initialition?
For eksempel:
Du kan stoppe det hele i et Classmodul, og lave i Private Sub
Class_Initialize() en array hvor alle elemeter i X bliver fyldt i...
og på den måde bare lave en for-lykke fra Ubound til Lbound?

mvh
/b3nny


"Stefan Kristensen" <stk@rus.dk> wrote in message
news:3da57bd2$0$18551$edfadb0f@dspool01.news.tele.dk...
> Hej NG.
>
> Jeg har lavet en klasse bestående af et collection objekt og nogle
> fuktioner, bl.a.
>
> Public Function NewEnum() As IUnknown
> Set NewEnum = colOUList.[_NewEnum]
> End Function
>
> hvilket lader mig bruge For Each ... Next på klassen. Det virker også
fint,
> men kan det lade sig gøre at gøre det baglæns? Altså starte med det
element,
> der blev tilføjet til sidst og slutte med det element, der blev tilføjet
> først?
>
> mvh
> Stefan
>
>



Peter Lykkegaard (10-10-2002)
Kommentar
Fra : Peter Lykkegaard


Dato : 10-10-02 19:10

Som svar på skriblerier forfattet af Stefan Kristensen

> Jeg har lavet en klasse bestående af et collection objekt og nogle
> fuktioner, bl.a.
>
> Public Function NewEnum() As IUnknown
> Set NewEnum = colOUList.[_NewEnum]
> End Function
>
> hvilket lader mig bruge For Each ... Next på klassen. Det virker også
> fint, men kan det lade sig gøre at gøre det baglæns? Altså starte med
> det element, der blev tilføjet til sidst og slutte med det element,
> der blev tilføjet først?

Ikke ved hjælp af For...Next

Lav en alm For løkke i stedet
For lngIdx = myCol.Count-1 To 0 Step -1
Set myField = myCol(lngIdx)
' Stuff in some more stuf
Next

mvh/Peter Lykkegaard



Stefan Kristensen (11-10-2002)
Kommentar
Fra : Stefan Kristensen


Dato : 11-10-02 07:56

> Ikke ved hjælp af For...Next
OK.

> Lav en alm For løkke i stedet
> For lngIdx = myCol.Count-1 To 0 Step -1
> Set myField = myCol(lngIdx)
> ' Stuff in some more stuf
> Next
Den havde jeg luret Jeg synes bare en omvendt For...Next ville være lidt
sejt

mvh
stefan



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste