Caption = "Form1 "
ClientHeight = 3195
客戶端左側= 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1 "
ScaleHeight = 3195
縮放寬度= 4680
StartUpPosition = 3 'Windows默認值
結束
屬性VB_Name = "Form1 "
屬性VB_GlobalNameSpace = False
屬性VB_Creatable = False
屬性VB_PredeclaredId = True
屬性VB_Exposed = False
私有聲明函數GetWindowRect Lib“user 32”(ByVal hWnd為Long,lpRect為RECT)為Long
私有聲明函數GetClientRect Lib“user 32”(ByVal hWnd為Long,lpRect為RECT)為Long
私有聲明函數CombineRgn Lib " GDI 32 "(ByVal hDestRgn為Long,ByVal hSrcRgn1為Long,ByVal hSrcRgn2為Long,ByVal nCombineMode為Long)為Long
私有聲明函數createrctrgn Lib " GDI 32 "(ByVal x 1為長整型,ByVal Y1為長整型,ByVal X2為長整型,ByVal Y2為長整型)
私有聲明函數ScreenToClient Lib“user 32”(ByVal hWnd為Long,lpPoint為POINTAPI)為Long
私有聲明函數SetWindowRgn Lib " user 32 "(ByVal hWnd為Long,ByVal hRgn為Long,ByVal bRedraw為Boolean)為Long
Const RGN_AND = 1
Const RGN_COPY = 5
Const RGN_DIFF = 4
常量RGN_OR = 2
常量RGN_XOR = 3
私有類型POINTAPI
x壹樣長
只要
結束類型
私人型RECT
左等長
頂端壹樣長
壹樣長
底部壹樣長
結束類型
子數據存儲()
Dim ad作為數據庫
將搜索定義為查詢定義
末端接頭
公共Sub MakeTransparent(frm As Form)
Dim rctClient為RECT,rctFrame為RECT
Dim hClient壹樣長,hFrame壹樣長
獲取窗口的矩形面積
GetWindowRect frm.hWnd,rctFrame
GetClientRect frm.hWnd,rctClient
將窗口直角坐標轉換為屏幕坐標。
Dim lpTL作為POINTAPI,lpBR作為POINTAPI
lpTL.x = rctFrame。左邊的
lpTL。Y = rctFrame。頂端
lpBR.x = rctFrame。對吧
lpBR。Y = rctFrame。底部
ScreenToClient frm.hWnd,lpTL
ScreenToClient frm.hWnd,lpBR
rctFrame。Left = lpTL.x
rctFrame。Top = lpTL。Y
rctFrame。Right = lpBR.x
rctFrame。底部= lpBR。Y
rctClient。Left = Abs(rctFrame。左)
rctClient。Top = Abs(rctFrame。頂部)
rctClient。Right = rctClient。右+ Abs(rctFrame。左)
rctClient。Bottom = rctClient。底部+ Abs(rctFrame。頂部)
rctFrame。右= rctFrame。右+ Abs(rctFrame。左)
rctFrame。Bottom = rctFrame。底部+ Abs(rctFrame。頂部)
rctFrame。Top = 0
rctFrame。左= 0
h client = createrctrgn(RCT client。左,rctClient。Top,rctClient。好的,rctClient。底部)
h frame = createrctrgn(RCT frame。左,rctFrame。頂部,rctFrame。對,rctFrame。底部)
hFrame,hClient,hFrame,RGN_XOR
SetWindowRgn frm.hWnd,hFrame,True
末端接頭
私有子窗體_Click()
讓我透明
末端接頭