将菜单项和子菜单添加到窗体的主菜单。
将一个图片框添加到窗体并将其可见属性设置为False。
将以下代码添加到常规模块(.BAS)。(API函数)
==================================================
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public 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 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
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
将此代码添加到表单加载事件。
=============================
Picture1.Picture = LoadPicture(app.path & "\" & "CUT.BMP")
Dim D As Long, DU as Long
Dim H As Long
D = CreateCompatibleDC(Picture1.hdc)
H = CreateCompatibleBitmap(Picture1.hdc, 16, 16)
Dim P As Long
P = SelectObject(D, H)
DU = BitBlt(D, 0, 0, 16, 16, Picture1.hdc, 0, 0, &HCC0020)
DU = SelectObject(D, P)
D = ModifyMenu(GetSubMenu(GetMenu(Me.hwnd), 0), 0, &H404, 0, H)
From: https://bytes.com/topic/visual-basic/insights/724429-adding-bitmap-menu