Hi!
Ich habe hier ein Formular, welches den Button "CommandButton1" enthält.
Ein Klick auf diesen Button soll folgendes tun:
1) Das Verzeichnis, aus dem heraus das File geöffnet wurde, mit dem der
Dialog geöffnet wurde nach bestimmten Files durchsuchen.
2) Mit dieser Liste eine ComboBox ("ComboBox1") befüllen
3) Einen weiteren Dialog, in dem diese ComboBox1 enthalten ist, öffnen.
4) Ich wähle eine Option aus, klicke auf OK, und das Item wird in eine
Combobox im ersten Dialog eingefügt.
Grundsätzlich hab ich dieses Verhalten schon hinbekommen. Einzig beim
Aufruf des zweiten Dialogs schaffe ich es nicht, die Variable des zu
durchsuchenden Verzeichnisses an die Funktion zu übergeben, da ich mit
Listenern (noch) keine Erfahrung habe.
Hier mein Code:
Die Definition des Listeners und Aufruf des Dialogs
Sub Main
...
Dim myBtn1 As Object
Dim PDatenDlg as Object
Dim MouseClick As Object
Dialoglibraries.Loadlibrary("Standard")
PDatenDlg=_
CreateUnoDialog(Dialoglibraries.Aumayer.Projektdaten)
myBtn1 = PDatenDlg.getControl("CommandButton1")
MouseClick = CreateUnoListener(" MouseClick_", _
"com.sun.star.awt.XActionListener")
myBtn1.addActionListener(MouseClick)
Rueckwert=PDatenDlg.execute()
...
End Sub
Hier die Subroutine des Eventhandlers, welche die Function
"selectangebfile" aufruft. Als Übergabeparameter ist hier
"file:///Search/Path" mitgegeben.
Sub MouseClick_actionPerformed(oEvent As Object)
if oEvent.Source.Model.Name = "CommandButton1" Then
oEvent.Source.Context.getControl("ComboBox1")._
additem(selectangebfile("file:///Search/Path"),0)
End If
End Sub
Das funktioniert auch wie gewünscht.
DAS PROBLEM:
Den Search-Path als Übergabeparameter für die Funktion "seletangebfile"
möchte ich gerne aus dem Sub Main mitgeben, denn dort ist dieser
definiert und ändert sich mit jedem Aufruf... Ich kann ihn also nicht
statisch vorgeben.
Wie mache ich es richtig?
lg jakob
--
Jakobus Schürz
Roseggergasse 37/21
1160 Wien
tel: +43/699/107 66 126
mail: jakobus.schu...@gmail.com
mail: ja...@xundeenergie.at
http://xundeenergie.at
http://verkehrsloesungen.wordpress.com/
http://cogitationum.wordpress.com
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
