Imprimir Página - Opacity como en el KIMS

Creas un arreglo:

Código:

 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:

 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:

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:

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

Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: T_O_N_N_Y en 30 Septiembre 2006, 13:45 pm