XProfan

Français

Dieter
Zornow

Habe justement avec höchstem Erstaunen festgestellt, dass je avec Gettext$() pas chaque Felder einer Statusbar auslesen peux. c'est zwar aussi pas dans qui Aider erwähnt mais je trouve si je avec Settext chaque Felder mettons peux est cela Gegenstück simple et logischer Weise en supplément. Zumal es une wirklich simple l'affaire wäre cela trop implementieren.

Kompilieren Marque Séparation

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)
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

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

07.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

c'est zwar erledigt, zeigt mais une anderen faute, qui mir déjà häufiger aufgefallen ist:
qui Ausgaben avec imprimer GetText$ avoir lieu hintereinander, statt untereinander:

Kompilieren Marque Séparation

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) + »
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