XProfan

Proc GetStatusText

    parameters hndl&,part&
    Déclarer buf#,text$
    Faible buf#,512
    sendmessage(hndl&,1026,part&,buf#)
    text$ = string$(buf#,0)
    Dispose buf#
    return text$

endproc

cls
Déclarer s#
Faible s#,12
Long s#,0 = 50, 280, -1
var st& = Créer("StatusWindow",%Hwnd,»,3,s#)
dispose s#
settext st&,0,"Feld 1"
settext st&,1,"Feld 2"
settext st&,2,"Feld 3"
imprimer gettext$(st&,0) + »
'si on cela folgende GetText$() simple dans Klammern mets, funktioniert es richtig.
imprimer gettext$(st&,1)
imprimer gettext$(st&,2)
imprimer
imprimer "Nun avec Sendmessage"
imprimer GetStatusText(st&,0)
imprimer GetStatusText(st&,1)
imprimer GetStatusText(st&,2)
waitinput