Seite 1 von 1
wie kann ich einen Dialog aufrufen? (gelöst)
Verfasst: Mi, 19.10.2011 23:52
von Noebian
Sorry, ich blick grad nicht mehr durch. Ich habe jetzt einen hübschen "Dialog1" definiert - aber wie rufe ich den auf, bzw. binde ihn in meinen Basic-Code ein?
Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören
Re: wie kann ich einen Dialog aufrufen?
Verfasst: Do, 20.10.2011 03:48
von komma4
Welche OOo-Version?
Welches Betriebssystem?
Was bedeutet "definiert"?
"Dialog1": meinst Du einen Dialog, im BASIC-Editor?
Welchen Bezug hat die Frage zur BASE/SQL Sektion des Forum?
Re: wie kann ich einen Dialog aufrufen?
Verfasst: Do, 20.10.2011 04:12
von komma4
Moderation,4: Crossposting ohne Referenz ist unhöflich!
http://www.libreoffice-forum.de/viewtop ... =10&t=6372
Re: wie kann ich einen Dialog aufrufen?
Verfasst: Do, 20.10.2011 06:11
von F3K Total
Hi,
hier ein Beispielcode zum Aufruf, Beenden und Auslesen des Textfeldes mit dem Namen "TextField1":
Code: Alles auswählen
dim oDlg as object
dim oTextField1 as object
Sub Start_Dialog
DialogLibraries.loadLibrary( "Standard" )
oForm = DialogLibraries.Standard.getbyname("Dialog1")
oDlg = CreateUnoDialog( oForm )
odlg.execute'ausführen
End Sub
Sub Stop_Dialog
oTextField1 = oDlg.GetControl("TextField1")
ostring=oTextField1.Text
odlg.endexecute
msgbox "Du hast "+ostring+" in Textfeld 1 eingegeben"
end sub
... wobei Du das zweite Makro beispielsweise einem Button "OK" auf dem Dialog zuordnen kannst.
Der Ablauf:
1.) Start_Dialog
2.) Eingabe in den geöffneten Dialog
3.) Auslesen der Eingaben, Stop_Dialog (vom Dialog aus, bsp. Button "OK") ... Weiterverarbeitung der Eingabe, hier Messagebox.
Gruß R
Re: wie kann ich einen Dialog aufrufen?
Verfasst: Do, 20.10.2011 11:12
von Noebian
Herzlichen Dank! Deine Antwort hat mir weitergeholfen.