Creas un arreglo:
Private Opacidad() As Double = {0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1}
y una variable contadora:
Private cont As System.Int16 = 1
pues el valor que tiene el opacity es en porcentaje allí tenemos de 10 a 100%
,,, luego ponemos un timer,, el value de este dependerá de que tan rápido quieras que sea la precarga por ejemplo le ponemos 100.
ahora esto dentro del timer1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity = Me.Opacidad(cont)
If cont < 9 Then
cont += 1
End If
End Sub
y para iniciar el efecto lo llamas desde una evento por ejemplo desde el load
Private Sub frmEntrada_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Timer1.Enabled = True
End Sub
Autor
En línea
