透明窗口

最新推荐文章于 2023-05-30 15:02:30 发布

aqi947

最新推荐文章于 2023-05-30 15:02:30 发布

阅读量238

点赞数

文章标签： function command user

本文链接：https://blog.csdn.net/aqi947/article/details/5983111

版权

Private Declare Function PaintRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Command1_Click()
Dim hdcID As Long
BeginPath Form1.hdc
Form1.CurrentX = 600
Form1.CurrentY = 220
Form1.FontSize = 170
Form1.Print "Best"
EndPath Form1.hdc
hdcID = PathToRegion(Form1.hdc)
SetWindowRgn Form1.hwnd, hdcID, 1
DeleteObject hdcID
End Sub