Make your own free website on Tripod.com

Rectangle

Declaración:
Declare Function Rectangle Lib "gdi32" Alias "Rectangle" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Descripción:
La función Rectangle dibuja un rectángulo en la ventana que le indiquemos y con las coordenadas que le indiquemos.
Parámetros:
ByVal hdc As Long
Aqui se coloca la ventana en la cual se dibujara el rectángulo.
ByVal X1 As Long
Aquí se coloca la coordenada X donde comienza el rectángulo.
ByVal Y1 As Long
Aquí se coloca la coordenada Y donde comienza el rectángulo.
ByVal X2 As Long
Aquí se coloca la coordenada X donde termina el rectángulo.
ByVal Y2 As Long
Aquí se coloca la coordenada Y donde termina el rectángulo.

Y1

X1

X2

Y2

Valor de retorno:
Se retorna cero (0) es por que hubo algún error, retorna 1 si se realizo bien.
Uso:
Dim ValorRetorno As Long 'Variable para el valor de retorno
ValorRetorno = Rectangle(Form1.hwnd, 50,50,100,100) 'En este caso dibuja un cuadrado de 50 x 50 en el Form1, que comienza en la coordenada 50,50 de la escala del Form1