在選單中加入圖示 (轉)

在選單中加入圖示 (轉)[@more@]'宣告 Option Explicit Private Declare Function GetMenu Lib "user32"(Byval hwnd As Long) _ As Long '取得視窗的選單控制程式碼,hwnd是視窗的控制程式碼 Private Declare Function GetSubMenu Lib "user32"(Byval hMenu As _ Long,Byval nPAs Long) As Long '取得子選單控制程式碼，nPos是選單的位置 Private Declare Function SetMenuItemBitmaps Lib "user32"(Byval _ hMenu As Long,Byval nPos As Long,Byval wFlags As Long,Byval _ hBitUnchecked As Long,Byval hBitChecked As Long) As Long '為選單設定相應的圖形 Const MF_BITMAP=&H400& '用image或picture或imagelist裝入圖形（必須是bmp格式）,16*16左右 '建好選單 Private Sub Form_Load() Dim hMenu,hSubMenu1,hSubMenu2 As Long hMenu=GetMenu(me.hwnd) hSubMenu1=GetSubMenu(hMenu,0) '取得第一項選單的子選單控制程式碼 SetMenuItemBitmaps hSubMenu1,0,MF_BITMAP,imagelist1.listimages(1) _ .picture,imagelist1.listimages(1).picture '為hSubMenu1的第一項設定圖形,假設用imagelist控制元件裝入圖形 SetMenuItemBitmaps hSubMenu1,1,MF_BITMAP,imagelist1.listimages(2) _ .picture,imagelist1.listimages(2).picture '設定第二項，同樣你還可以設定第xx項。

hSubMenu2=GetSubMenu(hMenu,1) '取得第二項選單的子選單控制程式碼

'也可用SetMenuItemBitmaps來設定它的圖形，只更改hSubMenu1為hSubMenu2 '即可 End Sub