Ejemplos usando el Api de windows para Visual basic

146 - Formulario Elíptico

Volver al Listado Api - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo que usa las funciones del Api CreateEllipticRgn y SetWindowRgn para crear un formulario en forma elíptica.

Hay una función de ajuste llamada Form_Redondo, al cual se le debe pasar el Formulario, las coordenadas x e y donde comenzar a crear la región, y el ancho y alto de la misma.

Estos valores luego los utiliza la función CreateEllipticRgn para crear un puntero o handle, que después utilizará SetWindowRgn para aplicar el cambio

vista de la ventana eliptica creada con el Api

Nota: Quitarle los bordes al formulario, es decir establecer en la propiedad BorderStyle el valor 0

Código fuente en el formulario

Option Explicit 'Deaclaraciones del Api 'Función que sirve para creae una región eliptica Private Declare Function CreateEllipticRgn Lib "gdi32" ( _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long) As Long ' SetWindowRgn signa la región anterior a la ventana Private Declare Function SetWindowRgn Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hRgn As Long, _ ByVal bRedraw As Long) As Long 'El primer parámetro es el objeto Formualario, luego las dimensiones Private Sub Form_Redondo( _ Objeto As Object, _ x As Long, y As Long, _ Ancho As Long, Alto As Long) ' Hnadle para la región devuelta por CreateEllipticRgn Dim Region As Long Objeto.BackColor = vbRed 'Crea la ergión elíptica Region = CreateEllipticRgn(x, y, _ Objeto.ScaleX(Ancho, Objeto.ScaleMode, vbPixels), _ Objeto.ScaleY(Alto, Objeto.ScaleMode, vbPixels)) ' Establece la región a la ventana Call SetWindowRgn(Objeto.hwnd, Region, True) With Objeto .Cls .AutoRedraw = True .FontSize = 26 .ForeColor = vbWhite .ScaleMode = 1 .CurrentX = (.Width - .TextWidth("..Wenas ")) / 2 .CurrentY = (.Height - .TextHeight("..Wenas ")) / 2 Objeto.Print "..Wenas " End With End Sub Private Sub Form_Load() Call Form_Redondo(Me, 5, 5, Me.ScaleWidth, Me.ScaleHeight) End Sub

Ejemplo 2

Este otro ejemplo también usa la función CreateEllipticRgn , para crear un form elíptico o redondo y animarlo ( el movimiento se realiza desde la posición superior izquierda de la pantalla, hacia el centro )

Al formulario quitarle los bordes ( BorderStyle con el valor 0)

Código fuente en el form

Private Sub Form_Click() End End Sub Private Sub Form_Load() Me.Width = 7000 Me.Height = 7000 Call Mover(Form1) End Sub

Código fuente en un módulo bas

Option Explicit ' declaraciones Api ''''''''''''''''''''''''''''''''''''''''' Private Declare Function CreateEllipticRgn Lib "gdi32" ( _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "User32" ( _ ByVal Hwnd As Long, _ ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long ' función que anima el formulario Sub Mover(frm As Form) frm.Show Dim a As Integer Dim b As Integer Dim C As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim w As Integer Dim x As Integer Dim Y As Integer Dim z As Integer Dim current As Double Call frm.Move(0, 0) w = frm.Height x = frm.Width Y = frm.Top z = frm.Left a = 0 b = 0 C = w d = x e = Y f = z Do While a < frm.Height / 15 Or b < frm.Width / 15 a = a + 25 b = b + 25 e = e + 70 f = f + 70 If a > frm.Height / 15 Then a = a - 24 If b > frm.Width / 15 Then b = b - 24 Call frm.Move(f, e, d, C) current = Timer Do While Timer - current < 0.01 DoEvents Loop Call SetWindowRgn(frm.Hwnd, CreateEllipticRgn(0, 0, b, a), True) Loop End Sub

Enlaces relacionados

Aplicar esquinas redondeadas a una ventana o formulario

Buscar en Recursos vb