Seite 1 von 1
Re: Probleme mit Textfelden in Dialogen
Verfasst: Di, 26.02.2008 13:32
von 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
Re: Probleme mit Textfelden in Dialogen
Verfasst: Do, 28.02.2008 07:52
von 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