windowv.pb

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

;//////////////////////////////////
; Amlinger
;                   by 2008 02 11
;描述:创建一个菜单项
;目标:可以自行创建常用菜单   
;//////////////////////////////////
;////    ToolBar&PopUpToolBar        ////
;这一个我讲不好,也不知道如何讲给大家,所以只好只加一些
;中文的注解了.
;CreateToolBar  PureBasic 创建 工具条的函数
;ToolBarStandardButton 设置工具条按钮属生的函数
;ToolBarToolTip  设置工具条按钮提示
;CreateToolbarEx Win Api 创建工具条的函数

;  #PB_ToolBarIcon_New 
;  #PB_ToolBarIcon_Open 
;  #PB_ToolBarIcon_Save 
;  #PB_ToolBarIcon_Print 
;  #PB_ToolBarIcon_Find 
;  #PB_ToolBarIcon_Replace 
; 
;  #PB_ToolBarIcon_Cut 
;  #PB_ToolBarIcon_Copy 
;  #PB_ToolBarIcon_Paste 
;  #PB_ToolBarIcon_Undo 
;  #PB_ToolBarIcon_Redo 
; 
;  #PB_ToolBarIcon_Delete 
;  #PB_ToolBarIcon_Properties 
;  #PB_ToolBarIcon_Help 


Enumeration
  #ToolBar1
    
  #ToolBar_File_New
  #ToolBar_File_Open
  #ToolBar_File_Save
  #ToolBar_File_Print
  #ToolBar_Custom_Button
  #ToolBar_End
EndEnumeration

Procedure msg(msg$)
  MessageRequester("菜单",msg$,#PB_MessageRequester_Ok)  
EndProcedure

;显示PureBasic创建的窗口
OpenWindow(0, 325, 185, 600, 330, "Proper Dialogs", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar ) 
 
 ;//////////////////////////////////////////////////////////////////
 ;Purebasic 创建工具条的过程
If CreateToolBar(#ToolBar1, WindowID(0))
  ToolBarStandardButton(#ToolBar_File_New, #PB_ToolBarIcon_New)
  ToolBarToolTip(#ToolBar1, #ToolBar_File_New, "新建")
  
  ToolBarStandardButton(#ToolBar_File_Open, #PB_ToolBarIcon_Open)
  ToolBarToolTip(#ToolBar1, #ToolBar_File_Open, "打开")

  
  ToolBarStandardButton(#ToolBar_File_Save, #PB_ToolBarIcon_Save)
  ToolBarToolTip(#ToolBar1, #ToolBar_File_Save, "保存")  
  ToolBarSeparator()
  ToolBarStandardButton(#ToolBar_File_Print, #PB_ToolBarIcon_Print)
  ToolBarToolTip(#ToolBar1, #ToolBar_File_Print, "打印")  
EndIf
;//////////////////////////////////////////////////////////////////

; ;下面是用Win APi CreateToolbarEx_创建一个工具条
; ;我对这个函数不了解,目前基本处于瘫痪状态,
; ;那一位同仁给完善一下.
; ;当然也包括消息部分了
; ;顺便还能学习一下,图片加载的技术
; Dim b.TBBUTTON(1)
; b(1)\iBitmap=0
; b(1)\idCommand=#ToolBar_Custom_Button; 
; b(1)\fsState=TBSTATE_ENABLED;
; b(1)\fsStyle=TBNF_IMAGE;
; b(1)\dwData=0; 
; b(1)\iString=0; 
; 
; 
; CreateToolbarEx_(WindowID(0),#WS_VISIBLE,2,1,NULL,IDB_BITMAP1,@b,1,200,20,10,10,SizeOf(TBBUTTON))

Repeat 
    event.l=WaitWindowEvent() 
    Select event 
        Case #PB_Event_Gadget 
            Debug EventGadget() 
        Case #PB_Event_Menu        
        ;菜单消息
            Select EventMenu()     
            ;具体消息处理
              Case #ToolBar_File_New : msg("Menu: 新建")
              Case #ToolBar_File_Open : msg("Menu: 打开")
              Case #ToolBar_File_Save : msg( "Menu: 保存 ")
              Case #ToolBar_File_Print : msg( "Menu: 打印")
            EndSelect
              
    EndSelect 
    
Until event=#PB_Event_CloseWindow 

End 

; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 77
; FirstLine = 67
; Folding = -
; EnableXP