For each next statement

[qassim]

Hellofor each next statement)
what is this statement does and
how to use and plz example of if
Bye

[Syl]

Hi,
U usually use 'for' loops this way:

for iCounter=... to ...
'code to be repeated
Next i

This is especially useful when U know how many times U want to repeat some code and/or when the code is dependent on iCounter.

But in some cases U need to do some operation on every object in a collection, doesn 't matter how many objects are there

Then 'for each ...' statement is very helpful.
The syntax is:
For each (var1 - usually object type) in (collection of objects of var1 type)
'repeated code
next (var1)

Want an example? Here is one:

Dim rst As Recordset
Dim fld As Field

Set rst = New ADODB.Recordset
rst.OpenRecordset "Customers", dbOpenDynaset 'Customers is a name of a table in a database
'(A)
For Each fld In rst.Fields
MsgBox fld.Name
Next fld

rst.Fields.Delete rst.Fields(3).Name
'(B)
For Each fld In rst.Fields
MsgBox fld.Name
Next fld

in the example above, in part A, U get names of all fields in rst (columns' names);
then U remove one column, third one
and again U use for each statement to obtain names of all fields after deleting.

To do the same with 'for i = ... to ...' U should know how many fields there are in the recordset before and after deleting

The 'for each' statement is very nice, I think U'll like it

Best wishes,
Syl

[kedaman]

For each can also be used with arrays stored in variants.

For each item in VariantArray
...
Next item

[da_silvy]

Originally posted by kedaman
For each can also be used with arrays stored in variants.

For each item in VariantArray
...
Next item

i didn't know you could do that!

that helps me out with some other code too!

[kedaman]

Have fun

[da_silvy]

how would i go about setting values of an array?

[asabi]

Well guys, I really need your help..

I am looking for a way to do

for each ...


but for all the animations in a microsoft agent character.

any idea ?

[kedaman]

set YourArray(index)=yourobject
da_silvy, that's what you meant?

[da_silvy]

try this:

For Each AnimationName In Character.AnimationNames
        List1.AddItem AnimationName
Next

tell me if it works!

[da_silvy]

Originally posted by kedaman
set YourArray(index)=yourobject
da_silvy, that's what you meant?

yes, but it does not work for me

for i = 1 to 20
myArray(i) = i
next i

why not?

[asabi]

thank you da_silvy !!

I don't get it, this property does not appear in the drop down ..

anyway, thank you it is working.

[da_silvy]

that's a pleasure, but i don't know why it doesn't appear in the drop down box, must be a little secret of microsoft's

[asabi]

Well, probably, anyway good to have people like you around :-)

Thanks

[da_silvy]

what are you using the agent for?

[asabi]

just make a "virtual firend" on the desktop ..

It reads me stuff that I put in the clipboard, and from time to time do/say stuff randomly.

I have another question that I just posted, maybe you can help me, I need to know how to use the microsoft voice recognition .., I can't make it "listen" to me (I know that you can use the commands with the characters, but I want to use the voice recognition, it seems more flexible).

[kedaman]

dasilvy, it should. What type of array are you using?

[da_silvy]

i don't know anything about it???

[da_silvy]

my last message was for kedaman!

and now for asabi

Originally posted by asabi
just make a "virtual firend" on the desktop ..

It reads me stuff that I put in the clipboard, and from time to time do/say stuff randomly.

I have another question that I just posted, maybe you can help me, I need to know how to use the microsoft voice recognition .., I can't make it "listen" to me (I know that you can use the commands with the characters, but I want to use the voice recognition, it seems more flexible).

you could read up about recognition on the microsoft developers website, and i will try to put some code together for you. From memory, you have to add a function to the menu, then have code for it, and assign a voice command to it.

[da_silvy]

i would also suggest downloading the complete documentation, as that is very technical (too hard in some places) and will help you will an answer.

[kedaman]

Let's make a test da_silvy:

Dim A as variant, B() as byte, C as variant

A=Array(1,3,7)
Redim B(2)
B(2)=A(2)
C=B
Msgbox A(2) & "," & B(2) & "," & C(0)

does this work for you?

[asabi]

thanks guys .. :-)

[da_silvy]

that example works, but how do i fix this?

Dim A As Variant
Private Sub Command1_Click()
For Each Item In A
List1.AddItem A
Next
End Sub
Private Sub Form_Load()
For i = 0 To 20
A(i) = i
Next
End Sub

i want a(20) to = 20

but how?

[Syl]

try something like that:

Dim a(20) As Variant
For i = 0 To 20
   a(i) = i
Next i

or

Dim a() As Variant
ReDim Preserve a(1) As Variant
For i = 0 To 20
    ReDim Preserve a(UBound(a) + 1) As Variant
    a(i) = i
Next i

[da_silvy]

yes, thanks, that was what i was looking for

[kedaman]

That's an array of variants, not an array stored in a variant! not really what you wanted or?

Anyway here's the array variant, in your code:

Dim A As Variant
Private Sub Command1_Click()
For Each Item In A
List1.AddItem Item'not A
Next
End Sub
Private Sub Form_Load()
Dim B(20) as integer
For i = 0 To 20
B(i) = i
Next
A=B
End Sub

note, arrays of variants are really slow, don't use them, i made it a integer array for your purpose.

[da_silvy]

thanks kedaman