Ejemplos usando el Api de windows para Visual basic

201 - Ejemplo de las funciones api SetWindowRgn y CreatePolygonRgn

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo para crear una región poligonal y establecerla a una ventana

La función que crea la región es CreatePolygonRgn . La que establece dicha región a la ventana es La función SetWindowRgn

El siguiente ejemplo al hacer clic en el formulario, se abre un inputBox para ingresar un número que indicará la cantidad de lados del polígono para aplicarla al formulario

La siguiente imagen muestra un form , al que se le estableció una región con 50 lados

Nota: quitarle los bordes al formulario

Option Explicit ' Declaraciones del Api '******************************************************** Private Declare Function CreatePolygonRgn Lib "gdi32" ( _ lpPoint As POINTAPI, _ ByVal nCount As Long, _ ByVal nPolyFillMode As Long) As Long Private Declare Function SetWindowRgn Lib "user32" ( _ ByVal hWnd As Long, _ ByVal hRgn As Long, _ ByVal bRedraw As Long) As Long Private Type POINTAPI X As Long Y As Long End Type Private Sub Establecer_Region(Hwnd_Ventana As Long, Lados As Integer) Const PI = 3.14159265 Const R1x = 100 Const R2x = 200 Const R1y = 75 Const R2y = 150 Dim i As Integer Dim cx As Integer Dim cy As Integer Dim puntos() As POINTAPI Dim theta As Single Dim dtheta As Single Dim region As Long Dim ret As Long ' La cantidad de puntos ReDim puntos(0 To Lados - 1) cx = R2x cy = R2y dtheta = 2 * PI / Lados theta = PI / 2 For i = 0 To Lados / 2 - 1 puntos(i * 2).X = cx + R1x * Cos(theta) puntos(i * 2).Y = cy + R1y * Sin(theta) theta = theta + dtheta puntos(i * 2 + 1).X = cx + R2x * Cos(theta) puntos(i * 2 + 1).Y = cy + R2y * Sin(theta) theta = theta + dtheta Next i ' Crea la la región region = CreatePolygonRgn(puntos(0), Lados, 1) ' La aplica a la ventana ret = SetWindowRgn(Hwnd_Ventana, region, True) End Sub Private Sub Form_Click() Dim puntos As Integer puntos = InputBox("Ingresar un número para indicar el número " & _ "de lados que tendrá el formulario") If (puntos Mod 2) = 0 Then ' Le pasa el Hwnd de la ventana y la cantidad de lados Call Establecer_Region(Me.hWnd, CInt(puntos)) Else MsgBox "El número debe ser par", vbExclamation End If End Sub Private Sub Form_Load() Me.Move 0, 0, 7000, 7000 MsgBox "Hacer clic en el formulario", vbInformation End Sub

Ejemplo 2

Este otro ejemplo le crea una región poligonal y la aplica a un control picturebox

Colocar un control Timer y un picturebox

Código fuente en el formulario

Option Explicit ' Declaraciones del Api '******************************************************** Private Declare Function CreatePolygonRgn Lib "gdi32" ( _ lpPoint As POINTAPI, _ ByVal nCount As Long, _ ByVal nPolyFillMode As Long) As Long Private Declare Function SetWindowRgn Lib "user32" ( _ ByVal hWnd As Long, _ ByVal hRgn As Long, _ ByVal bRedraw As Long) As Long Private Type POINTAPI X As Long Y As Long End Type Dim Puntos As Integer Private Sub Establecer_Region(Hwnd_Ventana As Long, Lados As Integer) Const PI = 3.14159265 Const R1x = 100 Const R2x = 200 Const R1y = 75 Const R2y = 150 Dim i As Integer Dim cx As Integer Dim cy As Integer Dim t_Puntos() As POINTAPI Dim theta As Single Dim dtheta As Single Dim region As Long Dim ret As Long ' La cantidad de Puntos ReDim t_Puntos(0 To Lados - 1) cx = R2x cy = R2y dtheta = 2 * PI / Lados theta = PI / 2 For i = 0 To Lados / 2 - 1 t_Puntos(i * 2).X = cx + R1x * Cos(theta) t_Puntos(i * 2).Y = cy + R1y * Sin(theta) theta = theta + dtheta t_Puntos(i * 2 + 1).X = cx + R2x * Cos(theta) t_Puntos(i * 2 + 1).Y = cy + R2y * Sin(theta) theta = theta + dtheta Next i ' Crea la la región region = CreatePolygonRgn(t_Puntos(0), Lados, 1) ' La aplica a la ventana ret = SetWindowRgn(Hwnd_Ventana, region, True) End Sub Private Sub Form_Click() Dim Puntos As Integer Puntos = InputBox("Ingresar un número para indicar el número " & _ "de lados que tendrá el formulario") If (Puntos Mod 2) = 0 Then ' Le pasa el Hwnd de la ventana y la cantidad de lados Call Establecer_Region(Picture1.hWnd, CInt(Puntos)) Else MsgBox "El número debe ser par", vbExclamation End If End Sub Private Sub Form_Load() Me.ScaleMode = vbPixels Picture1.BorderStyle = 0 Picture1.Move 0, 0, 500, 500 Puntos = 2 Timer1.Interval = 50 End Sub Private Sub Timer1_Timer() Static Flag As Boolean Select Case Flag Case False If Puntos = 100 Then Flag = True Picture1.BackColor = RGB(CInt(Rnd * 255), _ CInt(Rnd * 255), CInt(Rnd * 255)) End If Puntos = Puntos + 2 Case True If Puntos = 4 Then Flag = False Picture1.BackColor = RGB(CInt(Rnd * 255), _ CInt(Rnd * 255), CInt(Rnd * 255)) End If Puntos = Puntos - 2 End Select ' Le aplica la región al Picturebox Call Establecer_Region(Picture1.hWnd, CInt(Puntos)) End Sub

Enlaces relacionados

Buscar en Recursos vb