📄 module1.bas
字号:
Attribute VB_Name = "Module1"
Option Explicit
Public Direction As Integer
Public Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Type POINTAPI
X As Long
y As Long
End Type
Public Const LWA_COLORKEY As Integer = &H1
Public Const LWA_ALPHA As Integer = &H2
Public Const GWL_EXSTYLE As Integer = (-20)
Public Const WS_EX_LAYERED As Long = &H80000
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -