Opacity como en el KIMS

[T_O_N_N_Y]

Buenas tardes!

Estoy con el vb.net 2003 intentando que el form cargue con el 50% de opacity y acabe (gradualmente) con el 100%, pero no consigo hacerlo.

Alguna idea?

PD: sería como el del programa KIMS.

Saludos.

[MaLkAvIaN_NeT]

Creas un arreglo:

Código [Seleccionar] Expandir

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:

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir


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

Código [Seleccionar] Expandir

Private Sub frmEntrada_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Timer1.Enabled = True
End Sub