Trucos Varios II
VENTANA CON COLOR DE FILTRO
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Private Sub MakeTransparent(frmPass As Object, Optional tColor)
If IsMissing(tColor) Then tColor = RGB(170, 250, 250)
frmPass.AutoRedraw = True
frmPass.Hide
DoEvents
hw = GetDesktopWindow() 'Get Desktop window handle
ha = GetDC(hw) 'Get Desktop window hDC
dx1 = frmPass.Left / Screen.TwipsPerPixelX
dy1 = frmPass.Top / Screen.TwipsPerPixelY
wdth = frmPass.ScaleWidth 'width of form
higt = frmPass.ScaleHeight 'height of form
s = BitBlt(frmPass.hdc, 0, 0, wdth, higt, ha, dx1, dy1, SRCCOPY)
frmPass.Picture = frmPass.Image
frmPass.Show
Call ReleaseDC(hw, ha)
frmPass.DrawMode = 9
frmPass.ForeColor = tColor
frmPass.Line (0, 0)-(wdth, higt), , BF
End Sub
|
