Modify_Menu

Синтаксис

Function Modify_Menu OverLoad(ByVal Soursenumber As Integer,ByVal menu As HMENU,ByRef sName As string, ByVal Newnumber As Integer=FB_IGNORE,ByVal flag As Integer=0) As Integer

Function Modify_Menu OverLoad(ByVal Soursenumber As Integer,ByVal menu As HMENU,ByVal iName As integer, ByVal Newnumber As Integer=FB_IGNORE,ByVal flag As Integer=MF_BITMAP) As Integer

Описание

Используется для изменения строк(элементов) или изображения существующего меню. В Linux меню всегда строковое , так что можно редактировать только строки.

Параметры

Soursenumber - пункт для редактирования

menu - меню, созданное функцией MenuTitle

sName или iName - новое название или (в случае с Windows) новый указатель на рисунок меню

Newnumber - новый номер(по умолчанию не меняется).Рекомендуется использование номеров от 2 до 65535. Использование 0 запрещено. Использование 1 может вызвать наложение некоторых событий.

flag - (только для windows); флаг, может быть:
MF_BYCOMMAND - Указывает, что параметр uPosition дает идентификатор пункта меню. Флажок MF_BYCOMMAND является значением по умолчанию, если ни флажок MF_BYCOMMAND ни флажок MF_BYPOSITION не установлен. MF_BYPOSITION - Указывает, что параметр uPosition дает отсчитываемую от нуля относительную позицию пункта меню.

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HMENU menu,MenName,MenName1,MenName2
OpenWindow("",10,10,400,400)
menu=Create_Menu()
MenName=MenuTitle(menu,"Файл")
MenName1=MenuTitle(menu,"Помощь")
MenuItem(1001,MenName,"1 меню")
ButtonGadget(1,10,40,110,30,"изменить меню")
Do
  Var event=WaitEvent
  If event=EventGadget then
     Select case EventNumber
        Case 1
           Modify_Menu(1001,MenName,"Изменено")
     End Select
  EndIf
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create iPhone documentation