Transparência com o glasser no windows vista (VB.NET)

|
Boas!
Já pensaste em desenvolver um programa que integrasse a interface visual do windows vista de modo a ficares com uma interface deste género:


Então dá uma vista de olhos neste código (VB.NET) que te vai ajudar a fazer isso:
Passos a seguir:
1-criar uma nova form
2-fazer clique duplo no espaço vazio da form e colar o código no form_load

If System.Environment.OSVersion.Platform = PlatformID.Win32NT And Environment.OSVersion.Version.ToString > 6 Then ' verifica se usa windows vista ou superior

Dim GRect As tRect
Dim lngReturn As Integer
GRect.m_Buttom = 0
GRect.m_Left = 0
GRect.m_Right = 0
GRect.m_Top = 50 '50 pixels de glass no topo da form
Me.BackColor = System.Drawing.Color.Black
lngReturn = ApplyGlass(Me.Handle.ToInt32, GRect)
End If
Depois, ainda no modo de edição de código deve encontrar nas primeiras linhas isto: Public Class (nome da form)
e logo a seguir a isso cole o código:
Private Declare Function ApplyGlass Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As Integer, ByRef rect As tRect) As Integer ' chama a libraria do windows

Private Structure tRect
Dim m_Left As Integer
Dim m_Right As Integer
Dim m_Top As Integer
Dim m_Buttom As Integer
End Structure
depois desenhe um panel com uma cor clara no espaço em que não vai aplicar o glasser (neste caso tem de estar a 50 pixels do topo) e desenhe os controlos que lhe apetecer no panel.
Atenção: pode por uma imagem por cima do espaço do glasser (mas não pode por label's)
Espero que tenham gostado da dica :D

0 comentários: