segunda-feira, 17 de setembro de 2012

on


Public Class frmOpacidade

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Opacity = Me.Opacity - 0.1
        If Me.Opacity <= 0 Then Me.Close()
    End Sub

    Private Sub hbarOpacity_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles ScrollBarOpacity.Scroll
        Me.Opacity = 0.1 + ScrollBarOpacity.Value / 100
        Me.lblOpacity.Text = Me.Opacity.ToString
    End Sub
End Class

 Espero ter ajudado, até mais, abraços.

Pegue o projeto neste link: http://www.mediafire.com/?azwsew16lh91n4d

0 comentários:

Postar um comentário