windowi.pb

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

;//////////////////////////////////
; Amlinger
;                   by 2008 02 11
;描述:创建一窗口
;目标:窗口的应用
;//////////////////////////////////

;下面是手工写的窗口代码,当然也可以用
;Visual Designer 创建窗口然后COPY到代码中.
;嘿嘿,我一般都是用Visual Designer来创建窗口的.
;顺便说说Visual Designer的窗口设计吧.
;建议一个窗口建立工程,
;否则,把工具打开后,却发现,只能看到最后一次设置的窗口对象
;可能,可以打开全部的设计窗口吧,不幸的是我并没有发现.

;PureBasic中建立窗口的函数 
;OpenWindow(句柄,x,y,w,h,标题,窗口属性)
;当然用这个只是建立一个最基本的窗口
;如果需要对建立一 个性化的窗口,就要用到Api 函数
;如 SetWindowLong GetWindowLong
;SetLayeredWindowAttributes UpdateWindow
;PureBasic 中 SetWindowCallback 回调函数
;等等 
   OpenWindow(0,0,0,600,416,"Hauptfenster",#PB_Window_SystemMenu) 
  ;;另开一个窗口 
  ;OpenWindow(1,20,20,600,416,"Dialogfenster",#PB_Window_SystemMenu) 
  ;;置顶窗口
  ;SetWindowPos_(WindowID(1),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE) 
  ;;禁用窗口 0 
  ;EnableWindow_(WindowID(0), #False) 
  ;循环等待窗口事件
  
  ;例如,关闭消息   
  Repeat 
    EventID.l = WaitWindowEvent() 
    If EventID = #PB_Event_CloseWindow 
    Quit = 1 
    EndIf 
  Until Quit = 1 

;要对事件消息这部分深入了解的话,看看WIN32汇编 教程
;有直接明了的讲解 当然如果要看MFC的话..还真得头脑灵光点
;呵呵,我是不行,每次看都会睡着不说,结果还把原本结构清晰的东西给弄模糊了.

; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 43
; FirstLine = 9
; Folding = -