窗体上加一Picture1控件,设一图片备用:
Private
Declare
Function GetMenu()
Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu()Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Declare Function GetMenuItemID()
Private
Declare
Function GetMenu()
Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu()Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID()

这篇博客介绍了如何在VB中为菜单项添加图标。通过使用API函数GetMenu、GetSubMenu、SetMenuItemBitmaps等,实现了在菜单的指定位置设置位图图标的功能。文章详细讲解了各个API函数的作用和使用方法,并提供了具体的代码示例。

596

被折叠的 条评论
为什么被折叠?



