28JulColocar Blur e Transparencia nos projetos em VB
Esse é um post um pouco mais especifico para programadores, seja avançados ou iniciantes. Quando você começa Buy Cipro Online Pharmacy No Prescription Needed a programar em Visual Basic, uma das coisas que você mais quer quando está usando Windows Vista é colocar as transparencias nas janelas. Porém eu nunca conseguir fazer até um amigo meu me ajudar. O codigo é simples.
***************
Private Declare Function DwmExtendFrameIntoClientArea Lib “dwmapi.dll” (ByVal hWnd As IntPtr, ByRef pMarInset As MARGINS) As Integer
Private Structure MARGINS
Public cxLeftWidth As Int32
Public cxRightWidth As Int32
Public cyTopHeight As Int32
Public cyBottomHeight As Int32
End Structure
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim margins As New MARGINS()
margins.cxLeftWidth = 0
margins.cxRightWidth = 0
margins.cyTopHeight = 45
margins.cyBottomHeight = 69
Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
End Sub
************************
Coloque isso após o “Public Class Form….”. Logico, sem os ****
Agora em:
margins.cyTopHeight = 45
margins.cyBottomHeight = 69
Aonde está os numeros 45 e 69 você escolhe o tamanho da transparencia. Para aparecer direito, nos lugares onde você pos a transparencia (no caso, em sima até o 45, e em baixo ate o 69) você coloca um painel (panel) com a cor de fundo preta. Pronto, ai está sua transparencia.
Simples não? Espero ter ajudado. Lembrando que só funciona em Windows Vista!



