[gelöst] Hilfe zu >Dialog< gesucht

[sven-my]

Hallo Experten,

zu diesem code suchte ich Hilfe, aber google (über Forumssuche-1.0.1.oxt) gab nicht's her.

Bezug und Betreff eintragen.odt

(12.14 KiB) 55-mal heruntergeladen

Code: Alles auswählen

Sub DialogAufruf
	DialogLibraries.loadLibrary("Standard") 'Standardbibliothek laden
	oForm = DialogLibraries.Standard.Dialog1 'Dialogname Dialog1
	oDialog1 = CreateUnoDialog(oForm)
	oDialog1.execute()


rem TextEintragen
	odoc=thiscomponent
	otext=odoc.text
	ctl_Bezu = oDialog1.getControl("TextField1") 
	ctl_mBv = oDialog1.getControl("TextField2")
	ctl_Betr1 = oDialog1.getControl("TextField3")
	ctl_Betr2 = oDialog1.getControl("TextField4")
		
	odocument=thiscomponent
	
	oText = oDocument.Text
	oFrames=odocument.getTextFrames()
	oFrame=oFrames.getByName("Rahmen1")
	
	oFrameCursor=oFrame.createTextCursor()
	
	Bezug = ctl_Bezu.Text
	mBv = ctl_mBv.Text
	Betr1 = ctl_Betr1.Text
	Betr2 = ctl_Betr2.Text
	
	oFrameCursor.String = Bezug & Chr(10) & mBv & Chr(10)& Betr1  & Chr(10)& Betr2
	oDialog1.endexecute()
End sub

Den Ursprungscode habe ich hier aus dem Forum, und für meine Zwecke umgestrickt; funktioniert auch.

Was ich suche, ist eine Möglichkeit die >TextField#< mit dem Inhalt einer Variablen vorzugeben.

analog zu [Var = inputbox ("Meldung"," Titel"," Vorgabe")]; wobei Vorgabe ein Array ist : var(n)

gruß
sven-my

[Stephan]

Wenn vorgabe() bereits als Aray existiert und mit Werten gefüllt ist, sollte reichen (beispielsweise:

Code: Alles auswählen

'...
DialogLibraries.loadLibrary("Standard") 'Standardbibliothek laden
   oForm = DialogLibraries.Standard.Dialog1 'Dialogname Dialog1
   oDialog1 = CreateUnoDialog(oForm)
   oDialog1.getControl("TextField1").Text = vorgabe(1)
   oDialog1.execute()
'...

Gruß
Stephan

[sven-my]

Hallo Stephan,

Dank für die schnelle Antwort.

Dein Code klappt aber nur bedingt .

Ich habe ihn so eingetragen (siehe meinen Code hier im Beitrag):

Code: Alles auswählen

	oDialog1.execute()

	dim vorgabe(1)
	vorgabe(1) = "eMail vom tt.mm.jj"
       oForm = DialogLibraries.Standard.Dialog1 'Dialogname Dialog1
       oDialog1 = CreateUnoDialog(oForm)
       oDialog1.getControl("TextField1").Text = vorgabe(1)
       oDialog1.execute()

rem TextEintragen

Wenn ich das Mokro aufrufe sind alle Textfelder leer, erst wenn ich den Button [einfügen] meines Dialoges drücke, sind die Vorgben zu sehen, und erst nach nochmaligen drücken des Buttons wird dann, was im >Textfield#< steht auch in die Variable übernommen, die dann weiterverarbeitet wird.

gruß
sven-my

[sven-my]

Hallo Stephan,

hab' meinen Fehler gefunden !

oDialog1.execute() in meinem alten Code hatte ich vergessen zu löschen !

So soll es sein:

Code: Alles auswählen

rem       oDialog1.execute()

       dim vorgabe(1)
       vorgabe(1) = "eMail vom tt.mm.jj"
           oForm = DialogLibraries.Standard.Dialog1 'Dialogname Dialog1
           oDialog1 = CreateUnoDialog(oForm)
           oDialog1.getControl("TextField1").Text = vorgabe(1)
           oDialog1.execute()

    rem TextEintragen

gruß
sven-my