窗口全透明完整代码
窗口全透明完整代码 Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As _ Long, lpRECT As RECT) As Long Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As _ Long, lpRECT As RECT) As Long Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As _ Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal _ nCombineMode As Long) As Long Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _ ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As _ Long, lpPoint As POINTAPI) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As _ Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Const RGN_AND = 1 Const RGN_COPY = 5 Const RGN_DIFF = 4 Const RGN_OR = 2 Const RGN_XOR = 3 Private Type POINTAPI x As Long Y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Sub DataSamp() Dim ad As Database Dim aserch As QueryDef End Sub