Probleme mit Textfelden in Dialogen

[keksi1970]

hi,

ich weiss nicht obs funktioniert, aber das ist aus meinem "dialogauslesen" angepasst an deins

Code: Alles auswählen

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

gruß andreas

[Toxitom]

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: Alles auswählen

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

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