' Programa y fuente 100% libre para su uso con licencia "Reconocimiento 4.0 Internacional". Web: https://creativecommons.org/licenses/by/4.0/ ' Muchos mas ejemplos en nuestra pagina buscanos en google como A.K.Freeman o AKF-GO ' Autor: A.K.Freeman Public Class Frmprincipal 'Evento al iniciar la aplicacion Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Try para evitar errores en la compilacion. Try 'Asigna el fondo que va ha tener la ventana Me.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\fondo.jpg") 'Mensaje que aparecera al colocar el cursor sobre el boton Me.ToolTip1.SetToolTip(Btninternet, "Acceso a Internet") 'Estilo de cuadro de mensaje que aparecera cuando se coloque el cursor sobre el boton Me.ToolTip1.IsBalloon = True 'Mensaje que aparecera al colocar el cursor sobre el boton Me.ToolTip1.SetToolTip(Btnpagina, "Pagina Web") 'Mensaje que aparecera al colocar el cursor sobre el boton Me.ToolTip1.SetToolTip(Btnaplicacion, "Aplicacion") 'Mensaje que aparecera al colocar el cursor sobre el boton Me.ToolTip1.SetToolTip(Btnaccesibilidad, "Accesibilidad") 'Asignando estilo normal al boton guardar Btnguardar.FlatStyle = FlatStyle.Standard 'Asignando estilo pop up a la ventana mensaje Btnmensaje.FlatStyle = FlatStyle.Popup 'Cambiando el tamaño de borde del boton ayuda Btnayuda.FlatAppearance.BorderSize = 3 'Cambiando el tamaño de borde del boton mas Btnmas.FlatAppearance.BorderSize = 2 'Se adigna el icono que tendra la ventana Me.Icon = New System.Drawing.Icon(Application.StartupPath & "\button_ok.ico") 'Catch de haber algo malo en el codigo saltara el mensaje. Catch ex As Exception 'Mensaje que aparecera al encontrar un error. MsgBox("Error codigo '#1'") End Try End Sub End Class
No hay comentarios:
Publicar un comentario