XProfan

'Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
'TabControl avec Reitern gleicher Breite erstellen
DEF SetWindowLong(3) !"User32","SetWindowLongA"
DEF GetWindowLong(2) !"User32","GetWindowLongA"
DEF &WM_CLOSE $010
DEF &TCM_SETITEMSIZE $01329
DEF &TCS_FIXEDWIDTH  1024
DEF &TCS_MULTILINE $0200
DEF &TCM_GETITEMCOUNT $01304
DEF &GWL_STYLE  -16
DEF MakeLong(2) (&(1) | &(2) << 16)
Déclarer Ende&,Tab&,TabItems&
Fenêtre Style 538
Cls
Tab& = Créer("TABCTRL",%hwnd,"1",10,10,400,300)
InsertTab(Tab&,1,"2")
InsertTab(Tab&,2,"3")
'Fenêtre Style erweitern um feste Breite et Multiline
'cela heisst alle Tabreiter sommes juste breit
SetWindowLong(Tab&,&GWL_STYLE,(GetWindowLong(Tab&,&GWL_STYLE) | (&TCS_FIXEDWIDTH | &TCS_MULTILINE)))
'Nombre de Tabreiter ermitteln
TabItems& = SendMessage(Tab&,&TCM_GETITEMCOUNT,0,0)
'Breite et Hoehe mettons
'Par1 chez MakeLong ist qui Breite
'Par2 chez Makelong ist qui Hauteur
SendMessage(Tab&,&TCM_SETITEMSIZE,0,MakeLong(Width(Tab&)/TabItems&-2,20))
Utilisateur Messages &WM_CLOSE

Whilenot Ende&

    Waitinput

    Si %UMessage = &WM_CLOSE

        Fin

    Endif

Endwhile

Fin