XProfan

Español

Dieter
Zornow

Posesiones gerade con höchstem Erstaunen festgestellt, dass I, con Gettext$() no cada Felder uno Statusbar auslesen kann. Es zwar auch no en el Ayuda erwähnt pero yo finde si yo con Settext cada Felder conjunto kann gehört el Gegenstück simplemente y logischer Weise dazu. Zumal lo una wirklich simple Sache wäre el a implementieren.

Kompilieren Marca Separación

Proc GetStatusText

    parámetros hndl&,part&
    Declarar buf#,texto$
    Dim buf#,512
    sendmessage(hndl&,1026,part&,buf#)
    texto$ = cadena$(buf#,0)
    Disponer buf#
    volver texto$

ENDPROC

cls
Declarar s#
Dim s#,12
Largo s#,0 = 50, 280, -1
var st& = Crear("StatusWindow",%Hwnd,"",3,s#)
disponer s#
settext st&,0,"Feld 1"
settext st&,1,"Feld 2"
settext st&,2,"Feld 3"
imprimir gettext$(st&,0)
imprimir gettext$(st&,1)
imprimir gettext$(st&,2)
imprimir
imprimir "Nun con Sendmessage"
imprimir GetStatusText(st&,0)
imprimir GetStatusText(st&,1)
imprimir 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 Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Es zwar hecho, zeigt aber una otro Fehler, el me ya häufiger aufgefallen es:
El Ausgaben con imprimir GetText$ tener lugar hintereinander, en lugar de untereinander:

Kompilieren Marca Separación

Proc GetStatusText

    parámetros hndl&,part&
    Declarar buf#,texto$
    Dim buf#,512
    sendmessage(hndl&,1026,part&,buf#)
    texto$ = cadena$(buf#,0)
    Disponer buf#
    volver texto$

ENDPROC

cls
Declarar s#
Dim s#,12
Largo s#,0 = 50, 280, -1
var st& = Crear("StatusWindow",%Hwnd,"",3,s#)
disponer s#
settext st&,0,"Feld 1"
settext st&,1,"Feld 2"
settext st&,2,"Feld 3"
imprimir gettext$(st&,0) + ""
imprimir gettext$(st&,1)
imprimir gettext$(st&,2)
imprimir
imprimir "Nun con Sendmessage"
imprimir GetStatusText(st&,0)
imprimir GetStatusText(st&,1)
imprimir GetStatusText(st&,2)
waitinput