wie kann ich einen Dialog aufrufen? (gelöst)

[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

[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?

[komma4]

Moderation,4: Crossposting ohne Referenz ist unhöflich!
http://www.libreoffice-forum.de/viewtop ... =10&t=6372

[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

[Noebian]

Herzlichen Dank! Deine Antwort hat mir weitergeholfen.