Efeito Aero Glass no Windows Form

por **Vector** Dom maio 13, 2012 11:26 am

E aew Pessoal, Hoje Vou trazer o Efeito Aero Para Vocês, Vejam a Vídeo Aula!

Vídeo Aula em HD:

Tutorial em Texto:

OBS: É Necessário Ter Windows 7 ou Vista!
OBS²: Não Testei em Windows Vista!

Colem Isso Acima do Public Class Form1:

Código:
'By: Vector 'Acessem: www.umbrellasystem.com.br !!! Imports System.Runtime.InteropServices

Cole Isso Abaixdo do Public Class Form1:

Código:
<Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS Public LeftWidth As Integer Public RightWidth As Integer Public TopHeight As Integer Public Buttomheight As Integer End Structure <Runtime.InteropServices.DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer End Function

Criem A função Configurações:

Código:
Public Sub Configurações() 'Retire Isso caso Você use o Sistema Áero Transparente! 'Caso Ao Contrario isso fara o form1 ficar transparente! Me.Opacity = 0.9 Try Me.BackColor = Color.Black Dim margins As MARGINS = New MARGINS margins.LeftWidth = -1 margins.RightWidth = -1 margins.TopHeight = -1 margins.Buttomheight = -1 Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins) Catch ex As Exception MsgBox("Seu sistema operacional não tem o estilo aero!", MsgBoxStyle.Critical, "Erro Fatal") Application.Exit() End Try End Sub

Agora no Evento Form_Load Adicione Isso:

Código:
Configurações()

Pronto!

Código Completo:

Código:
'By: Vector 'Acessem: www.umbrellasystem.com.br !!! Imports System.Runtime.InteropServices Public Class Form1 <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS Public LeftWidth As Integer Public RightWidth As Integer Public TopHeight As Integer Public Buttomheight As Integer End Structure <Runtime.InteropServices.DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer End Function Public Sub Configurações() 'Retire Isso caso Você use o Sistema Áero Transparente! 'Caso Ao Contrario isso fara o form1 ficar transparente! Me.Opacity = 0.9 Try Me.BackColor = Color.Black Dim margins As MARGINS = New MARGINS margins.LeftWidth = -1 margins.RightWidth = -1 margins.TopHeight = -1 margins.Buttomheight = -1 Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins) Catch ex As Exception MsgBox("Seu sistema operacional não tem o estilo aero!", MsgBoxStyle.Critical, "Erro Fatal") Application.Exit() End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Configurações() End Sub End Class

Bom é Isso Pessoal até a próxima!

por **pDevice** Seg maio 14, 2012 11:17 am

Legal Mano será util para todos

Efeito Aero Glass no Windows Form

Efeito Aero Glass no Windows Form

Re: Efeito Aero Glass no Windows Form