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. | ||||||||||
|
||||||||||
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 |
||||||||||