HideMenu

HideMenu

HideMenu(Hmenu,state)

Позволяет скрывать(отображать) меню

Hmenu - Хендл меню

State - 1 скрыть меню ;  0 - отобразить

Пример:

#Include "window9.bi"

Dim As HMENU hMessages,MenName,MenName1,MenName2

OpenWindow("",10,10,400,400)
hMessages=Create_Menu()
MenName=MenuTitle(hMessages,"Файл")
MenName1=MenuTitle(hMessages,"Помощь")
MenuItem(1001,MenName,"1 меню")
ButtonGadget(1,10,10,110,30,"скрыть меню")
ButtonGadget(2,150,10,110,30,"показать меню")

Do
 var event=WaitEvent
 If event=EventGadget then
  Select case EventNumber
   Case 1
    HideMenu(hMessages,1)
   Case 2
    HideMenu(hMessages,0) 
  End Select
 EndIf
 If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Full-featured multi-format Help generator