module1.bas

来自「很好的教程原代码！」· BAS 代码 · 共 55 行

Attribute VB_Name = "Module1"
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32" _
    (ByVal hMenu As Long, _
     ByVal nPos As Long _
     ) As Long
     
Declare Function GetMenuItemID Lib "user32" _
    (ByVal hMenu As Long, _
     ByVal nPos As Long _
    ) As Long
    
Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" _
    (ByVal hMenu As Long, _
    ByVal nPosition As Long, _
    ByVal wFlags As Long, _
    ByVal wIDNewItem As Long, _
    ByVal lpString As Any _
    ) As Long
    
Declare Function CreateCompatibleDC Lib _
"gdi32" (ByVal hdc As Long) As Long

Declare Function DeleteDC Lib _
"gdi32" (ByVal hdc As Long) As Long

Declare Function CreateCompatibleBitmap Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long _
    ) As Long
    
Declare Function SelectObject Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal hObject As Long _
    ) As Long
    
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

Public Const SRCCOPY = &HCC0020
Public Const MF_BYPOSITION = &H400&
Public Const MF_BITMAP = &H4&