Cuadrado en V.B. 6.0

[david1981]

Buenas,
Una pregunta, como puedo dibujar un cuadrado dandole yo los valores "x" e "y" en un sistema de coordenadas que lo tengo dibujado.

O sea pa dibujar un cuadrado en la posicion (2,2) como se haria.

MUXAS GRACIAS!

[luciano]

una forma:

AutoRedraw = True
ScaleMode = vbPixels

AutoRedraw = True
ScaleMode = vbPixels

'con relleno
Line (2, 2)-Step(100, 100), vbRed, BF

'Sin relleno
Line (104, 104)-Step(100, 100), vbRed, B

dibuja dos cuadrados de 100x100 Pix.

saludos


------------------------------------------------

[david1981]

Y no hay otra manera, con un "for" o algo. Pq los valores se los pasa el usuario. Gracias
X cierto no lo dije, el eje de coordeenadas es de 100x100

[luciano]

Y si los pasas el usuario create una sub que reciba como parámetros el x y y y listo ..no veo cual es el problema.

saludos

-----------------------------------------

[david1981]

NO se si yo estoy haciendo algo mal, pero el cuadrado no me lo dibuja, yo hago lo siguiente.

Código PHP:

  'a1= 2 
'b1=2 
'a1 y b1 son las coordenadas (2,2), o sea el cuadrado se tendria  que  
'empezar a dibujar en las coordenadas anteriores.  
AutoRedraw = True 
ScaleMode = vbPixels 
Line (a1, b1)-Step(100, 100), vbGreen, BF  
   

[david1981]

xrdon si q me lo dibuja, pero en una esquinita... i a mi me gustaria que me lo dibujara donde le indico.