TAB - Keep Select History

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compile Exe
#Dim All
Global hDlg, hTab1,hTab2,hTab3,hTab4,hTab5 As Dword, TABList$
%IDC_Tab = 2049
Function PBMain () As Long
    Dialog New Pixels, %HWND_Desktop, "Track TAB Selection", 300, 400, 500, 300 , %WS_OverlappedWindow To hDlg
    Control Add Tab, hDlg, %IDC_Tab, "", 0, 0, 500, 200
    Tab Insert Page hDlg, %IDC_Tab, 1, 0, "Tab1" To hTab1
    Tab Insert Page hDlg, %IDC_Tab, 2, 0, "Tab2" To hTab2
    Tab Insert Page hDlg, %IDC_Tab, 3, 0, "Tab3" To hTab3
    Tab Insert Page hDlg, %IDC_Tab, 4, 0, "Tab4" To hTab4
    Tab Insert Page hDlg, %IDC_Tab, 5, 0, "Tab5" To hTab5
    Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   Local iTab As Long
    Select Case Cb.Msg
       Case %WM_InitDialog
          TabList$ = " 1"
          Dialog Set Text Cb.Hndl, TabList$
       Case %WM_Notify
          Select Case Cb.NmId
             Case %IDC_Tab
                Select Case Cb.NmCode
                   Case %TCN_SelChange
                      Tab Get Select hDlg, %IDC_Tab To iTab
                      TabList$ += Str$(iTab)
                      Dialog Set Text Cb.Hndl, TabList$
                End Select
          End Select
    End Select
End Function
 
'gbs_01392
'Date: 10-17-2014        

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm