Cancel action if array doesn't exist - Xtreme Visual Basic Talk

08-04-2004, 08:34 AM

boblav11

Regular

Join Date: May 2004

Location: Montreal

Posts: 52

Cancel action if array doesn't exist

Hi, i am doing a code that check if a case is busy (the label/case is busy when another label is on it) but when the timer starts, there's just one array and there will be 30. i want to know how to tell him to goto exitline2 if the array doesn't exists
HOW?????

I've tried this code: If not Yourlabelname(x) exists Then GoTo exitline2
But vb6 doesn't recongnize "EXISTS" as vbnet does

Code:

Private Sub timbusy_Timer()
Dim x As Integer
x = -1
Do Until x = Yourlabelname.Count
x = x + 1
If Yourlabelname(x).Left = Label4(x).Left And Yourlabelname(x).Top = Label4(x).Top Then busy(x) = True
exitline2: busy(x) = False
Loop
End Sub

By the way if you think of a better way to make cases without using tonnes of labels tell me

And if you think of how to set busy(x)=false when the label leaves his current place

E-MAIL me if you want

08-04-2004, 08:38 AM

Agent707

Retired Contributor

Join Date: Mar 2002

Posts: 1,829

Code:

If (Not MyArray) = -1 Then 'array does not exist

08-04-2004, 09:48 AM

boblav11

Regular

Join Date: May 2004

Location: Montreal

Posts: 52

Quote:

Originally Posted by Agent707

Code:

If (Not MyArray) = -1 Then 'array does not exist

can you explain a little bit more
don't understand
thanks

08-04-2004, 10:25 AM

Agent707

Retired Contributor

Join Date: Mar 2002

Posts: 1,829

No, I don't think I can explain that any plainer.

Quote:

I've tried this code: If not Yourlabelname(x) exists Then GoTo exitline2
But vb6 doesn't recongnize "EXISTS" as vbnet does

I am assumming Yourlabelname is a control array of labels?

Code:

If (Not Yourlabelname) = -1 Then 'array does not exist
    GoTo exitline2
End If

Are you trying to see if the array Element exist?

It's really hard to understand what you're trying to do anyway as the code example you posted doesn't make any sense to me.

Code:

Do Until x = Yourlabelname.Count
x = x + 1
If Yourlabelname(x).Left = Label4(x).Left And Yourlabelname(x).Top = Label4(x).Top Then busy(x) = True
'The following line is going to execute everytime regardless of the above lines results.
' so busy(x) will always be False
exitline2: busy(x) = False
Loop

I don't know what you mean by

Quote:

By the way if you think of a better way to make cases without using tonnes of labels tell me

cases of what?

I'm guessing what you're trying to do is something more like this?

Code:

Private Sub timbusy_Timer()
Dim x As Integer
For x = 1 To Yourlabelname.Count
    If Yourlabelname(x).Left = Label4(x).Left And Yourlabelname(x).Top = Label4(x).Top Then
        busy(x) = True
    Else
        busy(x) = False
    End If
Next
End Sub

Last edited by Agent707; 08-04-2004 at 08:25 PM.

08-04-2004, 12:16 PM

boblav11

Regular

Join Date: May 2004

Location: Montreal

Posts: 52

thanks a lot for the quick response

Code:

Load Me.Yourlabelname(x)
Me.Yourlabelname(x).Visible = True
Me.Yourlabelname(x).Move Label4(x).Left, Label4(x).Top, 975, 375

this copy an existing label with array but i cannot find the way to place vbBringtoFront help please

and if i dont bring it to front it goes behind the label4 and i cannot access to it

08-04-2004, 12:20 PM

boblav11

Regular

Join Date: May 2004

Location: Montreal

Posts: 52

Code:

Private Sub timbusy_Timer()
Dim x As Integer
For x = 1 To Yourlabelname.Count
If (Not Yourlabelname(x)) = -1 Then GoTo exitline2:
    If Yourlabelname(x).Left = Label4(x).Left And Yourlabelname(x).Top = Label4(x).Top Then
        busy(x) = True
    Else
        busy(x) = False
    End If
exitline2:
Next

End Sub

i've tried this as you tell me and still says: control array 1 doesn't exists