让文本框透明的模块

2024年4月3日发(作者：)

让文本框透明的模块

文本框透明效果，很好的美化方法。（搜集于网络 ）

调用方法 makeTransparentTextbox+文本框控件名称

效果图：

模块代码：

Option Explicit

' APIs to install our subclassing routines

Private Const GWL_WNDPROC = (-4)

Private Declare Function SetWindowLong Lib "user32" Alias

"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal

dwNewLong As Long) As Long

Private Declare Function CallWindowProc Lib "user32" Alias

"CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal

Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function DefWindowProc Lib "user32" Alias

"DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As

Long, ByVal lParam As Long) As Long

' These APIs are used to create a pattern brush for

Private 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

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As

Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long)

As Long