quinta-feira, 30 de agosto de 2012

on


Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'Declara a variável Glass para ser usada
        Dim glass As New rtaGlassEffectsLib.rtaGlassEffect

        'Configura o tamanho do efeito no top
        glass.TopBarSize = 160

        'Mostra o efeito no formulátio
        glass.ShowEffect(Me)
        glass.BottomBarSize = 0
        glass.LeftBarSize = 0
        glass.HeaderLabel = Label2
        glass.ShowEffect(Me, Label1, PictureBox1)       

    End Sub
End Class

Para este projeto tive que adicionar a dll { rtaGlassEffectsLib.dll }e a mesma se encontra dentro do projeto na pasta bin.

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

Espero que gostem e até a próxima, abraços!

0 comentários:

Postar um comentário