Einer listbox Makro via Makro hinzufügen

[lto]

hallo,

Ich habe folgendes Problem:
ich habe mit dem Code von http://www.oooforum.de/viewtopic.php?f= ... ca#p158473 eine neue listbox erstellt. Das klappt sehr gut. die einzige relevante Änderung, welche ich gemacht habe ist die Namensvergabe für die listbox:

Code: Alles auswählen

.ControlName = "Auswahl_" & nRowCount + 1

Nun möchte ich zusätzlich dieser neu erstellten listbox automatisch ein makro zuweisen, welches bei "modifiziert" ausgeführt wird.
Ich glaube, dass ich so etwas wie das hier brauche, aber ich weiß nicht wie ich es am besten in das oben genannte skript einbaue.
http://wiki.services.openoffice.org/wik ... and_Events

Danke im vorhinein,

lg stefan

[DPunch]

Aloha

Folgende Zeilen ans Ende der Schleife stellen:

Code: Alles auswählen

		(...)
		oCell.insertTextContent(oCursor,oShape,True)
		oListBoxControl = oDoc.CurrentController.getControl(oNewListBox)
		oListener = CreateUnoListener("ListBoxItem_","com.sun.star.form.XChangeListener")
		oListBoxControl.addChangeListener(oListener)
	Next

Dazu noch folgende zwei Prozeduren im Modul einbauen:

Code: Alles auswählen

Sub ListBoxItem_changed(oEvt)
	MsgBox "Änderung in " & oEvt.Source.Model.Name & Chr(13) & "Ausgewählter Eintrag: " _
		& oEvt.Source.SelectedItem & Chr(13) & "Eintrag Nummer: " & oEvt.Source.SelectedItemPos
End Sub

Sub ListBoxItem_disposing(oEvt)
	
End Sub

[lto]

hallo DPunch,

vielen Dank für deine Antwort.

Leider funktioniert der Code bei mir nicht, ich bekomme folgende Exception bei der Zeile

Code: Alles auswählen

oCell.insertTextContent(oCursor,oShape,True)

Code: Alles auswählen

BASIC-Laufzeitfehler.
Es ist eine Exception aufgetreten
Type: com.sun.star.uni.RuntimeException
Message: object already inserted.

Vielleicht ist es auch besser, wenn ich das 'Gesamtkonzept' mal erkläre:
zuerst wird eine Zeile hinzugefügt, wobei in den einzelnen Zellen jeweils eine listbox erstellt wird.
Zur ersten listbox gibt es dieses bei 'modifiziert'-makro, welches dann, abhängig vom Inhalt im ersten Element, den Listeninhalt des Zweiten ändert.

Um das noch klarer zu machen habe ich eine .odt angehängt, wo das schön dargestellt ist inkl. dem (noch nicht funktionierenden) code.

vielen dank im vorhinein,
lg stefan

[DPunch]

Aloha

Code: Alles auswählen

oCell.insertTextContent(oCursor,oShape,True)

Code: Alles auswählen

BASIC-Laufzeitfehler.
Es ist eine Exception aufgetreten
Type: com.sun.star.uni.RuntimeException
Message: object already inserted.

Klar, die Zeile hatte ich nur aus dem Originalcode stehen lassen, damit Du Dich besser orientieren kannst.

Wichtig sind nur diese 3 Zeilen vor dem Ende des Schleifendurchlaufs:

Code: Alles auswählen

      oListBoxControl = oDoc.CurrentController.getControl(oNewListBox)
      oListener = CreateUnoListener("ListBoxItem_","com.sun.star.form.XChangeListener")
      oListBoxControl.addChangeListener(oListener)

[lto]

hallo,

sorry für die störung, ich bin langsam blind für den code.
klar, zeile weg, den richtigen code verwenden und schon klappt es.

ich werd mich mal auf den rest der arbeit stürzen,

vielen dank!
lg stefan

[DPunch]

Änder mal die Prozedur "ListBoxItem_changed" folgendermaßen:

Code: Alles auswählen

Sub ListBoxItem_changed(oEvt)
	sListBoxName = oEvt.Source.Model.Name & "_city"
	sCountry = oEvt.Source.SelectedItem
	oDoc = thisComponent
	oListBoxModel = oDoc.Drawpage.Forms(0).getByName(sListBoxName)
	oListBoxControl = oDoc.CurrentController.getControl(oListBoxModel)
	Select Case sCountry
		Case "Deutschland":
			oListBoxModel.StringItemList = Array("Berlin","München","Köln")
			oListBoxControl.SelectItemPos(0,True)
		Case "Österreich":
			oListBoxModel.StringItemList = Array("Wien","Linz","Graz")
			oListBoxControl.SelectItemPos(0,True)
		Case "USA":		
			oListBoxModel.StringItemList = Array("New York","Washington")
			oListBoxControl.SelectItemPos(0,True)
	End Select
End Sub

Viel Erfolg

[lto]

hallo,

du bist eindeutig schneller als ich beim Coden Ich wollte erst gerade mit der select-case anfangen.

Wie immer bei deinem Code funktioniert dieser hervorragend, jedoch ist mir aufgefallen, dass Stadt eine auswahl trifft diese mit einem fehler abbricht bei:

Code: Alles auswählen

Sub ListBoxItem_changed(oEvt)
(...)
oListBoxModel = oDoc.Drawpage.Forms(0).getByName(sListBoxName)
(...)

mit

Code: Alles auswählen

Type: com.sun.star.container.NoSuchElementException
Message: .

meine laienhafte vermutung ist, dass der event_listener nicht nur bei der länderauswahl zuschlägt, sondern bei allen listboxen, welche im dokument vorhanden sind. liege ich da richtig mit meiner vermutung?

EDIT:
weiters ist mir aufgefallen, dass dieser change_listener beim Land-Feld nicht als makro bei "modifiziert" hinterlegt ist, liegt es vielleicht daran?

lg stefan

[DPunch]

meine laienhafte vermutung ist, dass der event_listener nicht nur bei der länderauswahl zuschlägt, sondern bei allen listboxen, welche im dokument vorhanden sind. liege ich da richtig mit meiner vermutung?

Bei allen per Makro erstellten Listboxen, das ist richtig.
Das Problem liegt in der Zeile

Code: Alles auswählen

sListBoxName = oEvt.Source.Model.Name & "_city"

Da die aufrufende Listbox nun schon "country_x_city" heisst, wird daraus dann "country_x_city_city", eine Listbox mit diesem Namen gibt es logischerweise nicht.
Entweder Du fängst Das im Makro per Sicherheitsabfrage ab, oder Du gibst den Listboxes mit den Städten erst gar keinen Listener mit.

[lto]

Hallo,

da hab ich ja mal was verstanden

ich schätze die einfachere Möglichkeit wäre es, die Erstellung der listboxen zu trennen, also:

-Listbox1 definieren
-Neue Zeile einfügen
-Listbox 1 erstellen
-Listener zuweisen
-Listbox 2 definieren
-Listbox 2 erstellen.

Aber wenn dann das ganze Dokument fertig ist, werde ich viele unterschiedliche Listboxen haben, darum ist wahrscheinlich einfacher beim Listener dies abzufangen. Kann man den Listener auch auf alle Listboxen im Dokument anwenden und dann einfach per Name auswählt ob und was ausgeführt wird?
Ist hier eine If-Schleife bzw. select-case praktikabel?
zb. if oEvt.Source.Model.Name = country_??

lg stefan

[DPunch]

Das kommt ganz darauf an, was Du mit der Auswahl der Stadt anfangen willst. Wenn Du diese nicht weiterverarbeiten willst, ist es sinnvoller, den Listener dort gleich wegzulassen.
Ansonsten kannst Du das natürlich auch abfangen/abfragen.

Code: Alles auswählen

Sub ListBoxItem_changed(oEvt)
	sSourceName = oEvt.Source.Model.Name
	If Right(sSourceName,4) = "city" Then
		MsgBox "Auswahl in Städte-ListBox geändert" 'Bzw. was sinnvolleres
	Else
	   sListBoxName = oEvt.Source.Model.Name & "_city"
	   sCountry = oEvt.Source.SelectedItem
	   oDoc = thisComponent
	   oListBoxModel = oDoc.Drawpage.Forms(0).getByName(sListBoxName)
	   oListBoxControl = oDoc.CurrentController.getControl(oListBoxModel)
	   Select Case sCountry
	      Case "Deutschland":
	         oListBoxModel.StringItemList = Array("Berlin","München","Köln")
	         oListBoxControl.SelectItemPos(0,True)
	      Case "Österreich":
	         oListBoxModel.StringItemList = Array("Wien","Linz","Graz")
	         oListBoxControl.SelectItemPos(0,True)
	      Case "USA":      
	         oListBoxModel.StringItemList = Array("New York","Washington")
	         oListBoxControl.SelectItemPos(0,True)
	   End Select
	End If
End Sub

[lto]

Hallo,

vielen Dank, du hast mir sehr weitergeholfen.
Während ich immer noch beim Überlegen bin schreibst du schon einen Post mit dem kompletten Code.

Grundsätzlich soll am Ende der Inhalt des Dokuments mittels Import/Export-Filter ein eine xml-Datei Übertragen werden. Also direkt weiterverarbeitet wird bei der listbox 'Stadt' nix.
Das einzige, was ich mir noch anschauen muß ist die Möglichkeit beim Import von .xml nach .odt den gewünschten listboxen das makro zuzuweisen, aber das ist eine andere baustelle.

nochmals vielen Dank!

lg stefan