带图标的菜单代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】带图标的菜单

作者:Dezai.CN / 发布于2013/6/18/ 750


	Option Explicit

	Private Declare Function GetMenu Lib "user32" _
	 (ByVal hwnd As Long) As Long

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

	Private Declare Function SetMenuItemBitmaps Lib "user32" _
	 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, _
	 ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

	Const MF_BYPOSITION = &H400&

	Private Sub Form_Load()
	 Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
	 mHandle = GetMenu(hwnd)
	 sHandle = GetSubMenu(mHandle, 0)
	 lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture)
	 lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
	 lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)
	 lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture)
	 sHandle = GetSubMenu(mHandle, 1)
	 sHandle2 = GetSubMenu(sHandle, 0)
	 lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)
	End Sub

	Private Sub munExit_Click()
	End
	End Sub

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　带图标的菜单　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)