Dibujo complejo
Publicado por josue (2 intervenciones) el 22/04/2008 04:15:14
Hola estoy tratando de hacer un programa para trasar un dibujo. pero me marca error, al poner line como opcional, haber si me pueden ayudar.
Private Sub Command1_Click()
Dim n As Integer
Dim a
If Val(Text2.Text) < 32 Then
a = 5160 / Val(Text2.Text)
Else
Print "Pon un número entre el 1 y el 32"
End If
Line1.X1 = (2880 + a)
Line1.X2 = 2880
Line1.Y1 = 6120
Line1.Y2 = 960
For n = 2 To a
linen.X1 = Line(n - 1).X1 + a
linen.Y1 = 6120
linen.X2 = 2880
linen.Y2 = Line(n - 1).Y2 + a
Next n
End Sub
al poner line(n-1).x1 me dice que el argumento no es opcional
gracias
Private Sub Command1_Click()
Dim n As Integer
Dim a
If Val(Text2.Text) < 32 Then
a = 5160 / Val(Text2.Text)
Else
Print "Pon un número entre el 1 y el 32"
End If
Line1.X1 = (2880 + a)
Line1.X2 = 2880
Line1.Y1 = 6120
Line1.Y2 = 960
For n = 2 To a
linen.X1 = Line(n - 1).X1 + a
linen.Y1 = 6120
linen.X2 = 2880
linen.Y2 = Line(n - 1).Y2 + a
Next n
End Sub
al poner line(n-1).x1 me dice que el argumento no es opcional
gracias
Valora esta pregunta


0