OpenOffice.info

sub textboxauslesen
Dim MyDlg as Object
Dialoglibraries.Loadlibrary("Standard")
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Eingabe)

MyDlg.execute()

tb = MyDlg.getControl("TextField1")

msgbox tb.getText()

end sub

Hey sven,


ist dein Code oben komplett? Wann schreibst du denn etwas in den Dialog rein? Dein Code erzeugt den Dialog zwar, er ist aber noch nicht sichtbar - insofern kannst du gar nichts reinschreiben. Oder wie muss ich das verstehen?

[code]sub textboxauslesen
Dim MyDlg as Object
Dialoglibraries.Loadlibrary("Standard")
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Eingabe)

MyDlg.execute()

tb = MyDlg.getControl("TextField1")

msgbox tb.getText()

end sub[/code]

Jetzt würde der Dialog ausgeführt, du kannst etwas in das Textfeld eintragen - und nach dem Beenden des Dialoges wird es dir angezeigt. War es das, was du suchtest?

Gruss
Thomas

sub textboxauslesen
Dim MyDlg as Object
Dialoglibraries.Loadlibrary("Standard")
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Eingabe)

tbctrl = MyDlg.getControl("TextField1")
tb = tbCtrl.Model.text
msgbox tb

end sub

hi,

ich weiss nicht obs funktioniert, aber das ist aus meinem "dialogauslesen" angepasst an deins :P
[code]sub textboxauslesen
Dim MyDlg as Object
Dialoglibraries.Loadlibrary("Standard")
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Eingabe)

tbctrl = MyDlg.getControl("TextField1")
tb = tbCtrl.Model.text
msgbox tb

end sub[/code]

gruß andreas