windowiv.pb

利用春节七天在家里写的PureBasic示例代码.基本按照C教程的章节编排.适合入门学习使用.还请大家多多提出宝贵意见 Email:[e-mail] QQ:254082

;//////////////////////////////////
; Amlinger
;                   by 2008 02 11
;描述:创建一个菜单项
;目标:可以自行创建常用菜单   
;//////////////////////////////////
;////    Menu&PopUpMenu        ////
;这一个我讲不好,也不知道如何讲给大家,所以只好只加一些
;中文的注解了.
;

Enumeration
  #Menu
  #PopUpMenu
  
  #Menu_File_Open
  #Menu_File_Save
  #Menu_File_Sub_A
  #Menu_File_Sub_B
  #Menu_File_Close
  #Menu_File_Exit
  #Menu_File_Edit
  #Menu_File_Find
  #Menu_File_About

  #PopUpMenu_Project
  #PopUpMenu_Open
  #PopUpMenu_Save
  #PopUpMenu_Save_As
  #PopUpMenu_Exit
  #PopUpMenu_Edit
  #PopUpMenu_Option
  
  #Menu_End
EndEnumeration

;显示PureBasic创建的窗口
OpenWindow(0, 325, 185, 600, 330, "Proper Dialogs", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar ) 
;显示Win Api创建的窗口
;这个DialogBoxIndirectParam 函数参考MSDN里的说明吧
;DialogBoxIndirectParam (0,窗口结构,父窗口句柄,回调过程处理过程,初始化消息值)
;CreateMenu 初始化菜单条
;MenuTitle  设置菜单首要
;MenuItem   设置菜单详细内容
;MenuBar    创建一个水平线 分隔条
;OpenSubMenu 建立一个子级菜单  与  CloseSubMenu 成对出现
;CloseSubMenu()    关于子级菜单
;CreatePopupMenu  建立一个弹出式菜单

If CreateMenu(#Menu, WindowID(0))
  MenuTitle("文件")
  MenuItem( #Menu_File_Open, "打开(&O)")
  OpenSubMenu("子菜单")
    MenuItem( #Menu_File_Sub_A, "子菜单A")
    MenuItem( #Menu_File_Sub_B, "子菜单B")
  CloseSubMenu()
  MenuItem( #Menu_File_Close, "关闭(&C)")
  ;横条
  MenuBar()
  MenuItem( #Menu_File_Exit, "退出(&X)")
  MenuTitle("编辑")
  MenuItem(#Menu_File_Find,"查找")
  MenuTitle("关于")
  MenuItem(#Menu_File_About, "关于")
EndIf

;创建一个 弹出式菜单
If CreatePopupMenu(#PopUpMenu)      
      MenuTitle("项目")     
        MenuItem(#PopUpMenu_Open, "打开")    
        MenuItem(#PopUpMenu_Save, "保存")
        MenuItem(#PopUpMenu_Save_As, "另存")
        MenuItem(#PopUpMenu_Exit, "退出")
        MenuBar()
        OpenSubMenu("历史文件")
          MenuItem(#Menu_End+1, "PureBasic.exe")
          MenuItem(#Menu_End+2, "Test.txt")
        CloseSubMenu()
      MenuTitle("编辑")
      MenuTitle("设置")
    EndIf


Repeat 
    event.l=WaitWindowEvent() 
    Select event 
        Case #PB_Event_Gadget 
            Debug EventGadget() 
        ;鼠标右键消息 
        Case #WM_RBUTTONDOWN
        ;显示弹出式菜单
            DisplayPopupMenu(#PopUpMenu, WindowID(0))  
        ;如果是菜单消息    
        Case #PB_Event_Menu
        ;进一步判断菜单消息
              Select EventMenu()  
              ;如果是点了关于....
              ;这里就是菜单消息的具体处理了
              ;对窗口事件有所了解的话这里是很容易的
                Case #Menu_File_About
                      MessageRequester("关于","你点了关于菜单",#PB_MessageRequester_Ok)          
                Case #PopUpMenu_Save_As      
                      MessageRequester("另存","你点了弹出式另存菜单",#PB_MessageRequester_Ok)                          
                Case #Menu_End+1
                      MessageRequester("PureBasic.exe","打开PureBasic.exe ???? ",#PB_MessageRequester_Ok)                                              
                Case #Menu_End+2                                      
                      MessageRequester("Test.txt","打开 Test.Txt",#PB_MessageRequester_Ok)                                          
                Case #Menu_File_Exit
                      CloseWindow(0)                      
              EndSelect
    EndSelect 
    
Until event=#PB_Event_CloseWindow 

End 

; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 81
; FirstLine = 48
; Folding = -
; EnableXP