XProfan

'Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
'TabControl con Reitern gleicher Breite redactar
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)
Declarar Ende&,Tab&,TabItems&
Ventana de Estilo 538
Cls
Tab& = Crear("TABCTRL",%hwnd,"1",10,10,400,300)
InsertTab(Tab&,1,"2")
InsertTab(Tab&,2,"3")
'Ventana de Estilo erweitern en feste Breite y Multiline
'el heisst todos Tabreiter son igual breit
SetWindowLong(Tab&,&GWL_STYLE,(GetWindowLong(Tab&,&GWL_STYLE) | (&TCS_FIXEDWIDTH | &TCS_MULTILINE)))
'Anzahl el Tabreiter ermitteln
TabItems& = SendMessage(Tab&,&TCM_GETITEMCOUNT,0,0)
'Breite y Hoehe conjunto
'Par1 en MakeLong Es el Breite
'Par2 en Makelong Es el Höhe
SendMessage(Tab&,&TCM_SETITEMSIZE,0,MakeLong(Width(Tab&)/TabItems&-2,20))
Mensajes del usuario &WM_CLOSE

Sinestar encargado Ende&

    Waitinput

    If %UMessage = &WM_CLOSE

        End

    Endif

EndWhile

End