For...each...next statement

[Kiteman - Canada]

I have the following:

a form called Form1
an image called Image1
twelve lines that have been drawn and superimposed on the image

I wish to have a command button that will toggle the lines on and off. I
am able to do this with a command for each of the twelve lines, but I
thought that I could use a For...Each...Next routine instead. For the
life of me I can't seem to get the correct syntax and/or I don't have the
twelve lines in (on top?) of a suitable container. A little assistance
would be most appreciated.

My idea is something along these lines......

Dim c as Line
For Each c in Image1
If c.Visible = True then
c.Visible = False
Else
c.Visible = True
End if

Next
Regards,
Tom White

[Rick Rothstein]

> I have the following:

a form called Form1
an image called Image1
twelve lines that have been drawn and superimposed on the image

I wish to have a command button that will toggle the lines on and off. I am able to do this with a command for each of the twelve lines, but I
thought that I could use a For...Each...Next routine instead. For the life of me I can't seem to get the correct syntax and/or I don't have the twelve lines in (on top?) of a suitable container. A little assistance would be most appreciated.

Before we can answer your question, you need to clarify some things for
us. I presume the 12 lines that are "drawn" on the ImageBox are Line
controls... are they in a control array (that is, do they all have the
same Name, with different Index values... if so, what is that name) or
does each Line control have its own name (such as Line1, Line2, etc.)?
If they each have their own Name, are there any other Line controls in
the project beside these 12? If yes, what are the names of the 12 Line
controls that appear over the ImageBox?

Rick - MVP

[Kiteman - Canada]

The twelve lines are Line controls and were drawn over the Image1 at design
time.
They all have the same name, so they are in a control array.
The name of the lines is "Line" - is that a problem?
There are zero other Line controls on this form.

Tom

I have the following:

a form called Form1
an image called Image1
twelve lines that have been drawn and superimposed on the image

I wish to have a command button that will toggle the lines on and off.

I

am able to do this with a command for each of the twelve lines, but I
thought that I could use a For...Each...Next routine instead. For

the

life of me I can't seem to get the correct syntax and/or I don't have

the

twelve lines in (on top?) of a suitable container. A little

assistance

would be most appreciated.

Before we can answer your question, you need to clarify some things for
us. I presume the 12 lines that are "drawn" on the ImageBox are Line
controls... are they in a control array (that is, do they all have the
same Name, with different Index values... if so, what is that name) or
does each Line control have its own name (such as Line1, Line2, etc.)?
If they each have their own Name, are there any other Line controls in
the project beside these 12? If yes, what are the names of the 12 Line
controls that appear over the ImageBox?

Rick - MVP

[Rick Rothstein]

Yes, I think naming your Line Controls "Line" is a problem. Try naming
them something else (like MyLine as I did in the code below). Here is
the code to put in your CommandButton's click event to toggle the Line
Control's visibility on and off.

Private Sub Command1_Click()
Dim ln As line
For Each ln In MyLine
ln.Visible = Not ln.Visible
Next
End Sub

Rick - MVP

"Kiteman - Canada" <-d*************@shaw.ca> wrote in message
news:Wv6_c.313919$gE.117876@pd7tw3no...

The twelve lines are Line controls and were drawn over the Image1 at design time.
They all have the same name, so they are in a control array.
The name of the lines is "Line" - is that a problem?
There are zero other Line controls on this form.

Tom

I have the following:

a form called Form1
an image called Image1
twelve lines that have been drawn and superimposed on the image

I wish to have a command button that will toggle the lines on and off.

I

am able to do this with a command for each of the twelve lines, but

I thought that I could use a For...Each...Next routine instead.

For the

life of me I can't seem to get the correct syntax and/or I don't

have the

twelve lines in (on top?) of a suitable container. A little

assistance

would be most appreciated.

Before we can answer your question, you need to clarify some things for us. I presume the 12 lines that are "drawn" on the ImageBox are Line
controls... are they in a control array (that is, do they all have the same Name, with different Index values... if so, what is that name) or does each Line control have its own name (such as Line1, Line2, etc.)? If they each have their own Name, are there any other Line controls in the project beside these 12? If yes, what are the names of the 12 Line controls that appear over the ImageBox?

Rick - MVP

[Rick Rothstein]

> For Each ln In MyLine

Wow! Does the font in my newsreader make the above look confusing. That
is a lower case "LN" immediately after the word "Each" and the word next
to the "LN" is "in" with the first letter upper cased.

Rick - MVP

[Kiteman - Canada]

I renamed all of the lines to an array called Vector
I used the following code and all works just excellent.
I used a label_click event instead of a "real" command button because I
needed a "button" whose colour I could customize.

Private Sub ToggleRFLines()
Dim RFLines As Line
For Each RFLines In Vector
RFLines.Visible = Not RFLines.Visible
Next
End Sub

Private Sub lblDisplayRFLines_Click()
Call ToggleRFLines

If Vector(0).Visible Then
lblDisplayRFLines.Caption = "HIDE REINFORCEMENT LINE"
Else
lblDisplayRFLines.Caption = "SHOW REINFORCEMENT LINE"
End If

End Sub

Thank you very much for the assistance Rick. You truly are a MVP.
I really like that NOT command to toggle the Visible state of the lines.
That really saves on code!
Is there an easier (cleaner) way for me to change the text of the click
button than checking for see if one of the lines "Vector(0)" is visible?
Tom

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:Gp********************@comcast.com...

Yes, I think naming your Line Controls "Line" is a problem. Try naming
them something else (like MyLine as I did in the code below). Here is
the code to put in your CommandButton's click event to toggle the Line
Control's visibility on and off.

Private Sub Command1_Click()
Dim ln As line
For Each ln In MyLine
ln.Visible = Not ln.Visible
Next
End Sub

Rick - MVP

[mickey]

On Sat, 04 Sep 2004 04:50:53 GMT, "Kiteman - Canada"
<-d*************@shaw.ca> you typed some letters in random order:

I renamed all of the lines to an array called Vector
I used the following code and all works just excellent.
I used a label_click event instead of a "real" command button because I
needed a "button" whose colour I could customize.

setting the 'style' property of a button to 'graphical' lets you
control it's colors

Groetjenz,

Mickey
--
#### gewoan skrieve su ast ut seist ####