Ejemplos usando el Api de windows para Visual basic

103 - Dibujar círculos irregulares

Volver al Listado Api - Anterior - Siguiente

Dibujar con el Api Pie, circulos de forma irregular en un dispositivo de contexto, como un Picture o un Formulario

Este ejemplo muestra como usar esta simple función del Api. Colocar los siguientes controles como muestra esta captura:

EVista del ejemplo del Api Pie para dibujar en un Hdc circunferencias irregulares

Controles en el formulario :

Un text1 para la coordenada X1
Text2 para Y1
Text3 para X2
Text4 para Y2
Text5 para X3
Text6 para Y3
Text7 para X4
Text8 para Y4
Un CommonDialog para seleccionar el color del borde y del relleno
Un Check1 para limpiar la pantalla
Un Text9 para especificar el grosor del borde de la figura
Un Commnad1 para dibujar en el formulario
Un command2 para el Color de relleno
Un Command3 para el color del Borde

Nota: el Command2 y Command3 colocarle la propiedad Style en Graphical

Para dibujar en otro tipo de Dispositivo, por ejemplo un PictureBox, especificar el HDC del mismo en el primer parámetro de la Función Api Pie

Código fuente en Formulario:

Option Explicit 'Declaración del API Pie Private Declare Function Pie Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, _ ByVal Y1 As Long, ByVal X2 As Long, _ ByVal Y2 As Long, ByVal X3 As Long, _ ByVal Y3 As Long, ByVal X4 As Long, _ ByVal Y4 As Long) As Long 'Variables para los colores del borde y relleno Dim ColorBorde As Long Dim ColorRelleno As Long Private Sub Command1_Click() Dibujar 'refresca el Form Me.Refresh End Sub Private Sub Dibujar() If Check1 Then Me.Cls End If 'Grosor del borde Me.DrawWidth = Text9 'color del borde Me.ForeColor = ColorBorde Me.FillColor = ColorRelleno FillStyle = 0 'Sólido 'Dibuja pasandole los valores de los TextBox Pie hdc, Text1, Text2, Text3, Text4, _ Text5, Text6, Text7, Text8 End Sub 'Colores elegidos con el Commondialog para el relleno y el borde Private Sub Command2_Click() CommonDialog1.ShowColor ColorRelleno = CommonDialog1.Color Command2.BackColor = ColorRelleno End Sub Private Sub Command3_Click() CommonDialog1.ShowColor ColorBorde = CommonDialog1.Color Command3.BackColor = ColorBorde End Sub Private Sub Form_Load() AutoRedraw = True ScaleMode = vbPixels Command1.Caption = " Dibujar " Command2.Caption = " Backcolor " Command3.Caption = " BorderColor " Check1.Caption = " Limpiar pantalla " 'Colores por defecto ColorRelleno = &HC00000 ColorBorde = vbGreen 'Limpia la pantalla Check1.Value = 1 Me.Caption = " Ejemplo para dibujar circunferencias irregulares con el API " End Sub

Relacionados

Buscar en Recursos vb