Ejemplos usando el Api de windows para Visual basic

77 - Crear polígonos aleatorios con la función Polygon

Volver al Listado Api - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Este código es una función que crea polígonos en forma aleatoria utilizando el Api Polygon.

En el ejemplo hay una función llamada Crear_Poligono en la cual se le envía como parámetro el número de lados que tendrá dicho polígono que se dibujará una ves llamada en un control PictureBox

Controles

Colocar un Picture1 y un Command1

Código fuente en el formulario

Option Explicit 'Función Api Polygon Private Declare Function Polygon _ Lib "gdi32" ( _ ByVal hdc As Long, _ lpPoint As POINTAPI, _ ByVal nCount As Long) As Long 'Estructura POINTAPI Private Type POINTAPI x As Long y As Long End Type 'Función para crear polígonos. Pasar la cantidad de lados Private Sub Crear_Poligono(lados As Long) 'Arrar para las coordenadas de los lados Dim Poligono() As POINTAPI Dim k As Integer, j As Integer With Picture1 .BackColor = vbBlue 'Modo de escala en pixeles .ScaleMode = vbPixels 'Color de los polígonos .FillColor = vbYellow 'Refrescamos el Picture .Refresh k = Rnd * 17 + 5 'Redimensionamos el array ReDim Poligono(0 To lados) 'Valores aleatorios para los lados For j = 0 To lados Poligono(j).x = .ScaleWidth * Rnd Poligono(j).y = .ScaleHeight * Rnd Next j 'Creamos el polígono pasandole el array y la cantidad de lados al API Call Polygon(.hdc, Poligono(0), lados) End With End Sub Private Sub Command1_Click() 'Creamos un triángulo Crear_Poligono 3 End Sub Private Sub Form_Load() Command1.Caption = "Crear polígono " End Sub

Ejemplo 2

Este simple código fuente es similar al anterior, pero dibuja el polígono, en este caso un triángulo, utilizando el mouse. Es decir al hacer 3 clics en el picture para definir los puntos ( En el evento MouseDown), luego se llama a la función Polygon para dibujarlo:

Colocar en el Form:

Un picturebox ( Picture1)

Código fuente en el formulario

Option Explicit ' ---------------------------------------------------------------------------------- ' \\ -- Simple ejemplo para dibujar triángulos con el mouse -- Luciano Lodola -- http://www.recursosvisualbasic.com.ar/ ' ---------------------------------------------------------------------------------- ' -- Función Api Polygon Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long ' -- Estructura POINTAPI Private Type POINTAPI X As Long Y As Long End Type ' -- Variables Private Poligono() As POINTAPI Private Const COLOR_POINTS As Long = vbYellow Private Const COLOR_TRIANGLE As Long = vbGreen ' ---------------------------------------------------------------------------------- ' \\ -- Llamar al Api Polygon para dibujar el triángulo en los puntos indicados ' ---------------------------------------------------------------------------------- Private Sub Crear_Poligono() With Picture1 .ForeColor = COLOR_TRIANGLE ' -- Pasar el HDC y los valores del UDT Call Polygon(.hdc, Poligono(0), 3) ' -- Eliminar los valores para el próximo Call ResetPol End With End Sub ' ---------------------------------------------------------------------------------- ' \\ -- Inicio ' ---------------------------------------------------------------------------------- Private Sub Form_Load() ' -- Setear propiedades del objeto donde dibujar ( Picturebox ) With Picture1 .DrawWidth = 2 ' -- ancho del lapiz .ScaleMode = vbPixels ' -- Modo de escala en pixeles .BackColor = vbBlack End With Call ResetPol End Sub ' ---------------------------------------------------------------------------------- ' \\ -- resetear el UDT que guarda los valores del triángulo ' ---------------------------------------------------------------------------------- Private Sub ResetPol() ReDim Poligono(0 To 3) Dim i As Integer For i = 0 To 3 Poligono(i).X = -1 Poligono(i).Y = -1 Next End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' -- Punto actual del triángulo ( para dibujarlo con Print ) Dim xNumber As Integer ' -- Almacenar y guardar valores de acuerdo a donde hacemos click con el mouse If Poligono(0).X = -1 Then Picture1.Cls Poligono(0).X = X Poligono(0).Y = Y xNumber = 1 ElseIf Poligono(1).X = -1 Then Poligono(1).X = X Poligono(1).Y = Y xNumber = 2 ElseIf Poligono(2).X = -1 Then xNumber = 3 Poligono(2).X = X Poligono(2).Y = Y ' -- Dibujar triángulo Call Crear_Poligono End If ' -- Dibujar el punto actual With Picture1 .ForeColor = COLOR_POINTS .CurrentX = X - 10 .CurrentY = Y + 10 Picture1.Print xNumber End With 'Picture1.PSet (X, Y) End Sub

Enlaces relacionados

Buscar en Recursos vb