|
bObjectError + 513, "cMenu", "菜单项别名相同." End If Next i With MyItemInfo(ID) Set .itemIcon = itemIcon .itemText = itemText .itemType = itemType .itemState = itemState .itemAlias = itemAlias End With '''' 获得菜单项数据 With ItemInfo .cbSize = LenB(ItemInfo) .fMask = MIIM_DATA Or MIIM_ID Or MIIM_TYPE End With GetMenuItemInfo hMenu, ID, False, ItemInfo '''' 设置菜单项数据 With ItemInfo .fMask = .fMask Or MIIM_TYPE .fType = MFT_OWNERDRAW End With SetMenuItemInfo hMenu, ID, False, ItemInfo '''' 菜单项ID累加 ID = ID + 1 End Sub '''' 删除菜单项 Public Sub DeleteItem(ByVal itemAlias As String) Dim i As Long For i = 0 To UBound(MyItemInfo) If MyItemInfo(i).itemAlias = itemAlias Then DeleteMenu hMenu, i, 0 Exit For End If Next i End Sub '''' 弹出菜单 Public Sub PopupMenu(ByVal x As Long, ByVal y As Long, ByVal Align As PopupAlign) TrackPopupMenu hMenu, Align, x, y, 0, frmMenu.hwnd, ByVal 0 End Sub '''' 设置菜单项图标 Public Sub SetItemIcon(ByVal itemAlias As String, ByVal itemIcon As StdPicture) Dim i As Long For i = 0 To UBound(MyItemInfo) If MyItemInfo(i).itemAlias = itemAlias Then Set MyItemInfo(i).itemIcon = itemIcon Exit For End If Next i End Sub '''' 获得菜单项图标 Public Function GetItemIcon(ByVal itemAlias As String) As StdPicture Dim i As Long For i = 0 To UBound(MyItemInfo) If MyItemInfo(i).itemAlias = itemAlias Then Set GetItemIcon = MyItemInfo(i).itemIcon Exit For End If Next i End Function '''' 设置菜单项文字 Public Sub SetItemText(ByVal itemAlias As String, ByVal itemText As String) Dim i As Long For i = 0 To UBound(MyItemInfo) If MyItemInfo(i).itemAlias = itemAlias Then MyItemInfo(i).itemText = itemText Exit For 上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
