| |
|
|
Dieter Zornow | Habe gerade mit höchstem Erstaunen festgestellt, dass ich mit Gettext$() nicht die einzelnen Felder einer Statusbar auslesen kann. Es ist zwar auch nicht in der Hilfe erwähnt aber ich finde wenn ich mit Settext die einzelnen Felder setzen kann gehört das Gegenstück einfach und logischer Weise dazu. Zumal es eine wirklich simple Sache wäre das zu implementieren.
Proc GetStatusText
parameters hndl&,part&
Declare buf#,text$
Dim buf#,512
sendmessage(hndl&,1026,part&,buf#)
text$ = string$(buf#,0)
Dispose buf#
return text$
endproc
cls
Declare s#
Dim s#,12
Long s#,0 = 50, 280, -1
var st& = Create("StatusWindow",%Hwnd,"",3,s#)
dispose s#
settext st&,0,"Feld 1"
settext st&,1,"Feld 2"
settext st&,2,"Feld 3"
print gettext$(st&,0)
print gettext$(st&,1)
print gettext$(st&,2)
print
print "Nun mit Sendmessage"
print GetStatusText(st&,0)
print GetStatusText(st&,1)
print 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 ▲ |
|
|
|
|
Jörg Sellmeyer | Das ist zwar erledigt, zeigt aber einen anderen Fehler, der mir schon häufiger aufgefallen ist: Die Ausgaben mit print GetText$ erfolgen hintereinander, statt untereinander:
Proc GetStatusText
parameters hndl&,part&
Declare buf#,text$
Dim buf#,512
sendmessage(hndl&,1026,part&,buf#)
text$ = string$(buf#,0)
Dispose buf#
return text$
endproc
cls
Declare s#
Dim s#,12
Long s#,0 = 50, 280, -1
var st& = Create("StatusWindow",%Hwnd,"",3,s#)
dispose s#
settext st&,0,"Feld 1"
settext st&,1,"Feld 2"
settext st&,2,"Feld 3"
print gettext$(st&,0) + ""
print gettext$(st&,1)
print gettext$(st&,2)
print
print "Nun mit Sendmessage"
print GetStatusText(st&,0)
print GetStatusText(st&,1)
print GetStatusText(st&,2)
waitinput
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04.11.2011 ▲ |
|
|
|
|
| |
|
| |
|
|