Sección de códigos , trucos y ejemplos para visual basic

70 - Como quitarle los bordes y la barra de título a un Formulario en tiempo de ejecución

Ejemplo que muestra como recortar el formulario para quitarle los bordes y la barra de título

Este código utiliza las funciones del Api CreateRoundRectRgn y SetwindowRgn para recortar un formulario

Nota: Otra forma mucho mejor que la vista en este ejemplo , la podés ver en este enlace: Quitar barra de título a una ventana en tiempo de ejecución , ya que le quita el TitleBar modificando el estilo de la misma

Controles :

Colocar un Command1

Código en un Form:

Option Explicit 'Funciones del Api '------------------------------------------------------------- Private Declare Function CreateRoundRectRgn Lib "gdi32" ( _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long, _ ByVal X3 As Long, _ ByVal Y3 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long Private Sub Command1_Click() Dim ret As Long Dim l As Long Dim Ancho_form As Long Dim Alto_form As Long Dim OldScale As Integer ' guarda el scale del form OldScale = ScaleMode ' cambia la escala ya que el api trabaja con pixeles ScaleMode = vbPixels 'Ancho y alto del form en pixeles Ancho_form = Me.ScaleWidth Alto_form = Me.ScaleHeight 'Crea la región ret = CreateRoundRectRgn(10, 35, Ancho_form, Alto_form + 25, 0, 0) 'Aplica la nueva región al formulario l = SetWindowRgn(Me.hwnd, ret, True) ' reestablece la escala que tenia el formulario ScaleMode = OldScale End Sub Private Sub Form_Load() Command1.Caption = " Quitar Barra y bordes " End Sub

Buscar en Recursos vb