XProfan

Windowstyle 26
Fenêtre 100,200-180,105
Utilisateur Messages 16
var tabctrl&=Créer("TabCtrl",%hwnd,"Tab1",0,0,width(%hwnd),height(%hwnd))
InsertTab(tabctrl&, 1, "Tab2")
var edit&=Créer("Edit",%hwnd,»,25,34,width(%hwnd)-50,30)

tandis que 1

    waitinput
    cas %umessage=16 : AppExit
    cas TabChanged(tabctrl&)  : TabChange()

Endwhile

Proc TabChange

    EnableWindow tabctrl&,0
    Repaint
    locate 1,15
    imprimer GetActiveTab(tabctrl&)

    si GetActiveTab(tabctrl&)=0

        Setwindowpos edit&=5,34 - (width(%hwnd)-50),30;-1
        locate 1,17
        imprimer "=0"

    d'autre

        Setwindowpos edit&=(width(%hwnd)-55),34 - (width(%hwnd)-50),30; -1
        locate 1,17
        imprimer "<>0"

    Endif

    EnableWindow tabctrl&,1
    Retour 1

ENDPROC

Proc AppExit

    end

ENDPROC