Control-Zugriff einer Listbox im Tabellen-Kontrollfeld

[hr.hartwig]

Hallo,
wie bekomme ich den Control-Zugriff einer Listbox,
wenn es sich in einem Tabellen-Kontrollfeld befindet?
Vielen Dank für Eure Hilfe!
Gruß,
Hotti

[DPunch]

Aloha

wie bekomme ich den Control-Zugriff einer Listbox, wenn es sich in einem Tabellen-Kontrollfeld befindet?

Folgendermaßen:

Code: Alles auswählen

	oDoc = thisComponent
	If oDoc.supportsService("com.sun.star.sheet.SpreadsheetDocument") Then
		oDrawpage = oDoc.CurrentController.ActiveSheet.Drawpage
	Else
		oDrawpage = oDoc.Drawpage
	End If
	oForm = oDrawpage.Forms(0)
	oGridcontrol = oForm.getByName("Kontrollfeld")
	oListox = oGridcontrol.getByName("Listenfeld 1")

[hr.hartwig]

Hallo DPunch!
Vielen Dank für den Code! Super!
Jetzt kann ich auf die Listbox zugreifen.
Was ich dringend brauche ist bei der Auswahl die "oListbox.selectedItems(0)"
Nur wenn ich das Sub durch "Status geändert" der Listbox aufrufe, bekomme ich keine korrekten Werte.

Code: Alles auswählen

Sub ...
...
MsgBox oListbox.selectedItems(0)

es sei denn,
ich rufe das Sub z.B. mit einem CommandButton auf.
Diesen Klick wollte ich mir aber sparen, da es mit der Listbox außerhalb des Grid ja auch funktioniert.
Hast Du -oder ein Mitleser- noch einen Tip?
Tausend Dank,
Hotti

[DPunch]

Aloha

Nur wenn ich das Sub durch "Status geändert" der Listbox aufrufe, bekomme ich keine korrekten Werte.

Mit dieser Aussage kann ich leider gar nichts anfangen.
Es würde wohl helfen, wenn Du eine Beispieldatei hochladen würdest.

[hr.hartwig]

Hallo DPunch,
vielen Dank, daß Du mir helfen willst.
Im Anhang lade ich eine Beispieldatei hoch.
Mein Wunsch ist es, daß ich nach der Listboxauswahl
so komfortabel wie unter 1.) in die Textboxen,
die restlichen Daten in das Grid bekomme, und gleich in die
dahinterliegende Tabelle.
Wenn es denn gar nicht geht, muß ich halt den Button betätigen.
Aber das wollte ich ja vermeiden.
Nochmal vielen Dank für die Hilfe!
Viele Grüße,
Hotti

Listboxtest.odb

(17.84 KiB) 111-mal heruntergeladen