Visual Basic - Mover formulario sin bordes...

Por: Alexi A.C.V

Cómo mover formularios sin bordes con VB.Net

Introducción

Hola, ahora veremos como crear un formulario sin bordes, ¿Por qué? 🤔, es muy lógica la respuesta, a los usuarios les gusta cada vez más los diseños modernos, he decidido empezar con esto, sobre todo porque le dará un mejor resultado a todos lo que hagamos. Además, nos será muy útil para las siguientes prácticas.

Agregaremos dos botones extras, la de salir y minimizar. Por tanto, si decidimos quitar los bordes que trae por defecto nuestros formularios nos quitarán esas funciones. Sobre todo, aprenderemos lo más básico en programación con Visual Basic .Net.

En primer lugar, creamos un nuevo proyecto y le asignamos un nombre, yo le pondré “visual basic”, le damos clic en “Aceptar”, muy bien, es momento de jugar con las propiedades de nuestro Formulario.

Diseño del formulario:

✔A nuestro Windows Form en la propiedad FormBorderStyle le cambiaremos de Sizable a None.

✔En segundo lugar, para que al momento de iniciar el programa, la pantalla nos aparesca en el centro, le cambiaremos la posición de inicio, por defecto lo trae como “WindowsDefaultLocation” y nosotros elegiremos “CenterScreen”.

✔Agregaremos un panel, en este caso será la de Guna, cambiamos el color, ustedes pueden eligir el que más les guste, yo lo dejaré en Azul, lo pueden hacer en el apartado de Apariencia y seleccionar “BackColor”.

✔Agregamos dos botones para cerrar y minimizar el formulario, recuerden hacerlo con Guna, de la misma manera, ustedes le pueden asignar el color que más les agrade, pero en este caso será con la propiedad FillColor.

✔A los botones le asignaremos un nombre, está será la que distinguirá a cada elemento de nuestro formulario y recuerden que no pueden tener dos elementos con los mismos nombres, yo al botón de salir le pondré “btnSalir” y el de minimizar lo dejaré como “Guna2Button1”, esto lo hago con la finalidad de que entiendan que es mejor asignarles un nombre a nuestros controles, ya que podremos tener confusiones al momento de querer programarlos, esto es solo una recomendación.

✔En la propiedad “Texto” de nuestros botones le pondremos “X” para el de salir y el signo “–” para el de minimizar, podemos cambiar el tamaño y tipo de letra de nuestros botones con la propiedad “Font”.

Programación de los elementos:

✔Empezaremos declarando tres variables, la primera será de tipo boleano, la iniciamos en “False”, ustedes pueden colocarle el nombre que más les guste, yo le pondré “valor”.

✔Después creamos las dos últimas de tipo entero, como ejemplo yo le he asignado a “moux” y “mouy” como una variable entera.

✔programamos el botón de salir o cerrar la ventana.

✔Posteriormente programamos el botón de minimizar ventana.

✔Ahora toca hacer que nuestra ventana se pueda mover cuando nosotros pongamos el mouse sobre ella, eso será lo último que haremos.

VB .Net

Public Class Form1

Dim valor As Boolean = False

Dim moux As Integer

Dim mouy As Integer

Private Sub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click

Me.Close()

End Sub

Private Sub Guna2Button1_Click(sender As Object, e As EventArgs) Handles Guna2Button1.Click

Me.WindowState = FormWindowState.Minimized

End Sub

Private Sub Guna2Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Guna2Panel1.MouseDown

valor = True

moux = Cursor.Position.X - Me.Left

mouy = Cursor.Position.Y - Me.Top

End Sub

Private Sub Guna2Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Guna2Panel1.MouseMove

If valor = True Then

Me.Top = Cursor.Position.Y - mouy

Me.Left = Cursor.Position.X - moux

End If

End Sub

Private Sub Guna2Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Guna2Panel1.MouseUp

valor = False

End Sub

Private Sub Guna2Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Guna2Panel1.Paint

End Sub

End Class

Public Class Form1 Dim valor As Boolean = False Dim moux As Integer Dim mouy As Integer Private Sub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click Me.Close() End Sub Private Sub Guna2Button1_Click(sender As Object, e As EventArgs) Handles Guna2Button1.Click Me.WindowState = FormWindowState.Minimized End Sub Private Sub Guna2Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Guna2Panel1.MouseDown valor = True moux = Cursor.Position.X - Me.Left mouy = Cursor.Position.Y - Me.Top End Sub Private Sub Guna2Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Guna2Panel1.MouseMove If valor = True Then Me.Top = Cursor.Position.Y - mouy Me.Left = Cursor.Position.X - moux End If End Sub Private Sub Guna2Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Guna2Panel1.MouseUp valor = False End Sub Private Sub Guna2Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Guna2Panel1.Paint End Sub End Class