XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
TabControl erstellen (ab XProfan)
Lauffähig ab Profan-Version 5.0
 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.2d
DATUM  02.10.2005    um  13:09 Uhr
VERWENDETE PROFANVERSION IST 8.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE T&,TAB1&,TAB2&
DECLARE EDIT1&,EDIT2&,EDIT3&
DECLARE ELEMENT1&,ELEMENT2&,ELEMENT3&
WINDOWSTYLE 63
WINDOWTITLE Tabtest
WINDOW 209,169-500,250
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
T& = CREATE(TABCTRL,%HWND,Reiter1,0025,0027,0395,0172)
TAB1&=@InsertTab(T&,1,Reiter2)
TAB2&=@InsertTab(T&,2,Reiter3)
AUF ERSTEN TAB LEGEN: (Nicht an Edit stören, habs einfach so genannt!)
ELEMENT1&=Control(STATIC,,$54001106,10,30,200,100,t&,0,%hinstance,$0)
EDIT1&=Create(Edit,ELEMENT1&,TAB 0,10,10,100,18)
AUF ZWEITEN TAB LEGEN:
ELEMENT2&=Control(STATIC,,$54001106,10,30,200,100,t&,0,%hinstance,$0)
EDIT2&=Create(TEXT,ELEMENT2&,TAB 1,10,10,100,18)
AUF DRITTEN TAB LEGEN:
ELEMENT3&=Control(STATIC,,$54001106,10,30,200,100,t&,0,%hinstance,$0)
EDIT3&=Create(BUTTON,ELEMENT3&,TAB 3,10,10,100,18)
Zuerst nur das erste anzeigen:
Showwindow(Element1&,1)
Showwindow(Element2&,0)
Showwindow(Element3&,0)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT
    SETTEXT %HWND,Aktives Tab +STR$(GetActiveTab(T&))

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF TABCHANGED(T&) TABCTRL

        IF GetActiveTab(T&) = 0

            Showwindow(Element1&,1)
            Showwindow(Element2&,0)
            Showwindow(Element3&,0)

        ELSEIF GetActiveTab(T&) = 1

            Showwindow(Element1&,0)
            Showwindow(Element2&,1)
            Showwindow(Element3&,0)

        ELSEIF GetActiveTab(T&) = 2

            Showwindow(Element1&,0)
            Showwindow(Element2&,0)
            Showwindow(Element3&,1)

        ENDIF

    ENDIF

WEND