Temas

En esta oportunidad quiero mostrarles un pequeño ejemplo en visual basic .net que me gustó mucho cuando lo hice por primera vez. No es algo que usemos todos los días pero estoy seguro que les gustará y ya encontrarán donde hacerlo. Particularmente me gusta usarlo cuando muestro el cuadro “Acerca de… ” en algunas de mis aplicaciones…
Se trata de la aparición gradual de un formulario, comienzatransparente hasta que se ve al 100%. Para realizarlo necesitamos utilizar un control timer y la propiedad Opacity del formulario.
En el ejemplo lo que haremos será crear dos formularios (Form1 y Form2), el Form1 con un botón y la acción de este botón es llamar al segundo formulario. El segundo formulario irá apareciendo gradualmente y hará lo mismo cuando lo cerremos. Debería verse como en laimagen siguiente:

Bueno, manos a la obra, jaja.
Primero el evento click del botón para que cargué el segundo formulario:
1.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2.Dim vForm2 As New Form2
3.vForm2.ShowDialog()
4.End Sub
En el segundo formulario insertaremos dos componentes Timer’s (Timer1 y Timer2). Luego copiamos elsiguiente código:
01.Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
02.Me.Opacity = 0
03.Timer1.Interval = 25
04.Timer1.Enabled = True
05.End Sub
06. 
07.Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
08.Timer2.Interval = 25
09.Timer2.Enabled = True
10.IfMe.Opacity > 0 Then
11.e.Cancel = True
12.End If
13.End Sub
14. 
15.Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
16.If Me.Opacity = 1 Then
17.Timer1.Enabled = False
18.Else
19.Me.Opacity = Me.Opacity + 0.02
20.Me.Refresh()
21.End If
22.End Sub
23. 
24.Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer2.Tick
25.If Me.Opacity = 0 Then
26.Timer2.Enabled = False
27.Me.Close()
28.Else
29.Me.Opacity = Me.Opacity - 0.02
30.Me.Refresh()
31.End If
32.End Sub
Voy a explicar en breves palabras que es lo que hace:
Los formularios windows tienen una propiedad llamada Opacity que almacena un valor que va de 0 hasta 1. Este valor indica el porcentaje de opacidad delformulario, siendo 1 el 100% opaco y 0 0% opaco, lo que sería lo mismo que decir 100% transparente. Por eso con un valor 0.5 tendriamos un formulario 50% opaco o 50% Transparente (como más te guste).
Lo que hace un control Timer es ejecutar el código del evento Tick miestras el Timer tenga la propiedad enable en True y cada un intervalo determinado por la propiedad Interval.
Entonces tenemos el Timer1para cuando se abre el formulario (por eso lo acrivo “Timer1.Enable = True” en el evento Load y Timer2 para cuando se cierra (Activado en el evento Closing del Formulario).
Bueno, no quiero abundar en explicaciones porque el código es breve y creo que no hay mucho más que aclarar.
Si te gustó este ejemplo deja un comentario. Me gustaría saber cuales son las preferencias de mis visitantes.Aplicando Skin En Visual .Net
1. Creamos Un nuevo proyecto

A nuestro formulario le asignamos las siguientes propiedades en la ventana de propiedades (esto esopcional)Ya que pueden poner cualquier nombre u otras características como Nombre le pondremos
frmMafia

3.- Tenemos que agregar el en control OCX actskin4.ocx para ello no vamos a:- Menú Proyecto --> Componentes o Simplemente Pulsamoslas teclas Ctrl + T4.- En esta Ventana nos muestra todos los controles agregados para agregar nuestro OCX actskin4.ocxle damos Click en botón Examinar

5.-Una ves encontrado el OCX le damos Click en el botón Abrir6.- Como vemos el actskin4.ocx ya se agrego a la lista de componentes ahora le damos clik en en botónAceptar

7.- Como observamos skin ya esta en el cuadro de herramientas y ya...