PureBasic Forums - English

Code: Select all

Procedure WindowCallback(Window, Message, wParam, lParam) 
  Select Message 
    Case #WM_CLOSE 
      If MessageBox_(Window, "Exit program?", "EXIT", #MB_YESNO) = #IDYES 
        DestroyWindow_(Window) 
      Else 
        Result  = 0 
      EndIf 
    Case #WM_DESTROY 
      PostQuitMessage_(0) 
      Result  = 0 
    Default 
      Result  = DefWindowProc_(Window, Message, wParam, lParam) 
  EndSelect 
  ProcedureReturn Result 
EndProcedure 

#Style  = #WS_VISIBLE | #WS_BORDER | #WS_SYSMENU 
#StyleEx  = 0 ;| #WS_EX_OVERLAPPEDWINDOW 

WindowClass.s  = "TestClass" 
wc.WNDCLASSEX 
wc\cbsize  = SizeOf(WNDCLASSEX) 
wc\lpfnWndProc  = @WindowCallback() 
wc\hCursor  = LoadCursor_(0, #IDC_CROSS)
; #IDC_SIZEALL = Size Arrow 
; #IDC_CROSS   = Cross 
wc\hbrBackground  = #COLOR_WINDOW + 1 
wc\lpszClassName  = @WindowClass 
RegisterClassEx_(@wc) 

hWndMain  = CreateWindowEx_(#StyleEx, WindowClass, "Test-Window", #Style, 10, 10, 800, 600, 0, 0, 0, 0) 


       ; // Create TabControl
        
        hTabCntrl =  CreateWindowEx_(0, "systabcontrol32", "", #WS_VISIBLE|#WS_CHILD , 10, 10, 780, 550, hWndMain, #NUL, tab_hinst, #Null)
        
        TC_ITEM.TC_ITEM
        TC_ITEM\Mask=#TCIF_TEXT
        TC_ITEM\pszText=@"Tab 0"
        SendMessage_(hTabCntrl,#TCM_INSERTITEM,0,@TC_ITEM)
                
        TC_ITEM.TC_ITEM
        TC_ITEM\Mask=#TCIF_TEXT
        TC_ITEM\pszText=@"Tab 1"
        SendMessage_(hTabCntrl,#TCM_INSERTITEM,1,@TC_ITEM)
        
        TC_ITEM.TC_ITEM
        TC_ITEM\Mask=#TCIF_TEXT
        TC_ITEM\pszText=@"Tab 2"
        SendMessage_(hTabCntrl,#TCM_INSERTITEM,2,@TC_ITEM)
  
        CreateWindowEx_(0, "Button", "Button on Tab X", #WS_CHILD | #WS_VISIBLE, 50, 50, 200, 24, hTabCntrl, 0, 0, 0) 


ShowWindow_(hWndMain,  #SW_SHOWDEFAULT) 
UpdateWindow_(hWndMain); 

While GetMessage_(msg.MSG, #Null, 0, 0 ) 
  TranslateMessage_(msg) 
  DispatchMessage_(msg) 
Wend