error al generar .exe en la propiedad index
Publicado por Miguel Angel (1 intervención) el 21/06/2010 01:36:17
Hola tengo un programa el cual arrasto unos controles, un command a un label ambos son arreglos, todo funciona bien pero al intentar generar el .exe me manda el error "Numero de argumentos erroneo o asignacion de la propiedad no valida", el error me lo manda en esta linea: Flag.Move Label3(Index).Left, Label3(Index).Top
Private Sub Label3_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Flag.Move Label3(Index).Left, Label3(Index).Top
d = Index
If a <> d Then
Flag.Move Label2(a).Left, Label2(a).Top
End If
If a = d Then
counter = counter + 1
End If
If counter = 12 Then
'l = MsgBox("CONGRATULATIONS!!", vbOKOnly, "VERY GOOD")
Beep
counter = 1
End If
If Label3.Caption = Label3 Then
MsgBox "hola"
Else
MsgBox "adios"
End Sub
Private Sub Label3_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Flag.Move Label3(Index).Left, Label3(Index).Top
d = Index
If a <> d Then
Flag.Move Label2(a).Left, Label2(a).Top
End If
If a = d Then
counter = counter + 1
End If
If counter = 12 Then
'l = MsgBox("CONGRATULATIONS!!", vbOKOnly, "VERY GOOD")
Beep
counter = 1
End If
If Label3.Caption = Label3 Then
MsgBox "hola"
Else
MsgBox "adios"
End Sub
Valora esta pregunta


0