' 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 'Declaramos la variable. Dim r As Rectangle = My.Computer.Screen.WorkingArea 'Se asigna la localizacion de la ventana. Location = New Point((r.Width - Width) - 10, r.Height - Height) 'Se asigna el fondo a la ventana Me.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\fondo.png") 'Tamaño minimo del objeto Progressbar. cargador.Minimum = 0 'Tamaño maximo del objeto Progressbar. cargador.Maximum = 200 'Activamos el Timer1 para que empieze a funcionar. Timer1.Enabled = True '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 'Evento de Timer1 (Al activarlo ira apareciendo las ventana). Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'Try para evitar errores en la compilacion. Try 'Condicion: Si el valor de cargador mayor igual a 200. 'Punto donde se modifica cuanto tiempo va durar la ventana abierta hasta que se cierre automaticamente. If cargador.Value >= 100 Then 'Se ejecutara el Timer2. Timer2.Enabled = True 'Se desactivara el Timer1. Timer1.Enabled = False 'Condicion: Mientras el valor de Opacity no llegue a cero. If Not (Me.Opacity = 0) Then AddHandler Timer1.Tick, AddressOf TickTiempo2 'iniciar el temporizador. End If Else 'Se utiliza cargador como un contador y empieza a acumular +1. cargador.Value = cargador.Value + 1 'Actualizamos. Me.Refresh() 'Condicion: Mientras el valor de Opacity no llegue a uno. If Not (Me.Opacity = 1) Then AddHandler Timer1.Tick, AddressOf TickTiempo 'iniciar el temporizador. End If End If '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 '#2'") End Try End Sub 'Evento de Timer1 (Al activarlo se ira desvaneciendo las ventana). Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick 'Try para evitar errores en la compilacion. Try 'Condicion: Si el valor de cargador es igual a 0. If cargador.Value = 0 Then 'Condicion: Mientras el valor de Opacity no llegue a 0. If Not (Me.Opacity = 0) Then AddHandler Timer2.Tick, AddressOf TickTiempo2 'iniciar el temporizador. End If Else 'Se utiliza cargador como un contador y empieza a restar -1. cargador.Value = cargador.Value - 1 End If '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 '#3'") End Try End Sub 'Preceso para que se visualize ventana con efecto desvanecimiento. Private Sub TickTiempo(ByVal sender As System.Object, ByVal e As System.EventArgs) 'Try para evitar errores en la compilacion. Try 'Se declara variable que va ser el contador. Static i As Double = 0 'Se va acumulando variable "i". 'En este punto se puede modificar la velocidad del desvanecimiento al momento de abrir la ventana. i += 0.001 'Se asigna la trasparencia. Me.Opacity = i 'Condicion: Detectar si el formulario es ya visible. If Me.Opacity = 100 Then 'Detener el temporizador. CType(sender, Timer).Stop() 'Se desactivara el Timer1. Timer1.Enabled = False Exit Sub End If '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 '#4'") End Try End Sub Private Sub TickTiempo2(ByVal sender As System.Object, ByVal e As System.EventArgs) 'Try para evitar errores en la compilacion. Try 'Se declara variable que va ser el contador. Static i As Double = 1.0 'Se va restando variable "i". 'En este punto se puede modificar la velocidad del desvanecimiento al momento de cerrar la ventana. i -= 0.01 'Se asigna la trasparencia. Me.Opacity = i 'Condicion: Si el formulario es ya invisible. If Me.Opacity = 0 Then 'Detener el temporizador. CType(sender, Timer).Stop() 'Se cerrara la ventana. Me.Close() End If '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 '#5'") End Try End Sub 'Evento al hacer clic sobre la imagen. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pbximg2.Click 'Try para evitar errores en la compilacion. Try 'Ejecuta el comando de cmd y abre una pagina web con el navegador predeterminado. Shell("cmd /c start " & "www.google.com") '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 '#5'") End Try End Sub 'Evento al hacer clic al boton cerrar Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncerrar.Click 'Try para evitar errores en la compilacion. Try 'Se procede a cerrar la ventana ' Me.Close() '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 '#5'") End Try End Sub End Class
No hay comentarios:
Publicar un comentario