Control array help.....[RESOLVED]

[psycopatchet69]

[sigh] i need more help with control arrays, and cant find my answer anywhere.

private sub stuff
dim number as integer
     for number = 1 to shape1.ubound
         code
         code
         code
     next number
end sub

How would i go about setting up that code so that when the control array element doesnt exist it goes to "next number"

[David.Poundall]

You could try..

private sub stuff
dim number as integer
     for number = 1 to shape1.ubound
         On Error Goto  a1
         code
         code
         code
a1:
     next number
end sub

[MartinLiss]

Dim ctl As Shape1
 
For Each ctl In Shape1
    'blah
Next

[psycopatchet69]

No, that still doesnt work, David, i tried to do what you told me, martinliss, and i just dont know what youre even saying, and it didnt work....Here, ill be a little more specific with my code - try to help please.

Oh, mousex1 and mousey1 are just the mousex and y, i have my own system of getting the mouse x and y.

Private Sub Back_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim number As Integer

For number = 1 To Shape1.ubound
    If Mousex1 > Shape1(number).Left + 10 And Mousex1 < Shape1(number).Left + 78 Then
        If Mousey1 > Shape1(number).Top + 40 And Mousey1 < Shape1(number).Top + 98 Then
            Unload Shape1(number)
            Score = Score + 1
        End If
    End If
Next number

End Sub

[David.Poundall]

Martin means something like this....

Private Sub Back_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim number As Integer
Dim ctl As Shape1
 
For Each ctl In Shape1()
     number = ctl.Index
    If Mousex1 > Shape1(number).Left + 10 And Mousex1 < Shape1(number).Left + 78 Then
        If Mousey1 > Shape1(number).Top + 40 And Mousey1 < Shape1(number).Top + 98 Then
            Unload Shape1(number)
            Score = Score + 1
        End If
    End If
Next
 
End Sub

[psycopatchet69]

I just now tried that code, and now i get an error "User defined type not defined" in the line of "dim ctl as shape1"

[David.Poundall]

Oops - wrong type def for Shape1. here try this

Private Sub Back_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim number As Integer
Dim ctl As Shape
 
For Each ctl In Shape1()
     number = ctl.Index
    If Mousex1 > Shape1(number).Left + 10 And Mousex1 < Shape1(number).Left + 78 Then
        If Mousey1 > Shape1(number).Top + 40 And Mousey1 < Shape1(number).Top + 98 Then
            Unload Shape1(number)
            Score = Score + 1
        End If
    End If
Next
 
End Sub

[David.Poundall]

Or if that doesn't work, just use

Dim ctl

and let VB sort out the types for itself.

[psycopatchet69]

No, it worked, and thank you, it solved my problem

[David.Poundall]

It helps when actual code is posted. Don't forget to edit your first post and put the the tick in the message icon box for resolved