Sección de ejemplos vb.net

16 - Transparencia en Windows Forms

Ejemplo para visual basic.net que hace un efecto Fade in Fade out a un formulario, modificando la propiedad Opacity de los mismos mediante un temporizador

El ejemplo se puede descargar desde este enlace : Transparencia a forms

Actualizado : También podés descargar este mismo proyecto realizado por Encore121, pero en ves de usar el módulo de clase , lo hace con un control : descargar

Cuando se carga un formulario se realiza el fade in, y cuando se descarga el Fade Out

Para usarlo en varios formularios, hay que crear una instancia de una simple clase que se encarga de aplicarle el incremento o decremento de la transparencia , en los eventos Shown y FormClosing

Nota. No se requiere colocar un control timer en cada formulario, ya que el timer está creado dentro del módulo de clase

Los únicos valores que hay que indicarle al módulo antes de cargarlo ( en el Load ) son:

El formulario
El valor máximo de transparencia ( el valor de transparencia puede ser un valor desde 0.0 hasta 1. esto en el evento de carga de cada form )
El intervalo en milisegundos.

Código fuente del módulo de clase

Option Explicit On Imports System Imports System.Threading Public Class Class1 Private tmr As Timer ' variable para el temporizazor Private WithEvents mForm As Form ' variable con evento para el formulario Private mAccion As Boolean ' Fade in - Fade out Private mIntervalo As Integer ' velocidad del timer Private mMaxTransparencia As Single ' valor de transparencia 'declaración del delegado Private Delegate Sub deleg_Valor(ByVal x As Double) 'función que utiliza el delegado Private Sub Transparencia(ByVal x As Double) Select Case mAccion Case True If mForm.Opacity >= mMaxTransparencia Then ' Termina el timer tmr.Dispose() Else mForm.Opacity += x ' incrementa el Opacity End If Case False ' fin del timer y descarga el formulario If mForm.Opacity <= 0 Then mForm.Close() tmr.Dispose() Else mForm.Opacity -= x ' incrementa la opcidad End If End Select End Sub ' recibe el formulario, el valor máximo de 'transparencia (0.1 - a 1.0), y el intervalo en milisegundos Sub Comenzar(ByVal frm As Form, _ Optional ByVal MaxTransparencia As Single = 1, _ Optional ByVal Intervalo As Integer = 50) If mForm Is Nothing Then mForm = frm mForm.Opacity = 0 mMaxTransparencia = MaxTransparencia mIntervalo = Intervalo End If End Sub ' Crea y comienza el timer Private Sub aplicar_Fade(ByVal Accion As Boolean) If Not tmr Is Nothing Then tmr.Dispose() tmr = Nothing End If mAccion = Accion tmr = New Timer(New TimerCallback( _ AddressOf TimerEvent), Nothing, 0, mIntervalo) End Sub ' timer Private Sub TimerEvent(ByVal o As Object) If mForm.IsHandleCreated = True Then mForm.BeginInvoke(New deleg_Valor(AddressOf Transparencia), 0.05) End If End Sub ' cuando carga le establece el valor de Opacity en 0 Private Sub mForm_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles mForm.Load mForm.Opacity = 0 End Sub ' cuando se muestra el form, le aplica el fade in Private Sub mForm_Shown(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles mForm.Shown aplicar_Fade(True) End Sub Private Sub mform_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles mForm.FormClosing If mForm.Opacity <> 0 Then e.Cancel = True ' cuando cierra el form le aplica la _ 'transparencia hsata desvanecerlo aplicar_Fade(False) End If End Sub Protected Overrides Sub Finalize() MyBase.Finalize() If Not mForm Is Nothing Then mForm = Nothing End If End Sub End Class

Código fuente en un form1 con un Button1

Public Class Form1 Dim oClass As Class1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load oClass = New Class1() oClass.Comenzar(Me, 0.6, 10) End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Form3.Show() End Sub End Class

Código fuente en form2

Option Explicit On Public Class Form2 Dim oClass As Class1 Private Sub Form2_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load oClass = New Class1 ' formulario, transparencia, intervalo oClass.Comenzar(Me, 0.8, 25) End Sub End Class

vb 6 - Enlaces relacionados

Aplicar transparencia a formularios en vb 6.0

Buscar en Recursos vb