Visual Basic - Dibujo complejo

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Dibujo complejo

Publicado por christian (6 intervenciones) el 22/04/2008 04:32:52
pasa que no veo que hayas creado un array de Line
por otro lado usa los metodos graficos y pintas sobre un form por ejemplo directamente un ejemplo seria

Form1.Line (10, 100)-(100, 1500), vbBlue
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Dibujo complejo

Publicado por josue (2 intervenciones) el 22/04/2008 18:08:13
muchas gracias, me resolviste muchas dudas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar