[Gelöst] Calc: Problem mit Listbox im Dialog

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

retuwe61
****
Beiträge: 159
Registriert: So, 18.11.2007 21:25

[Gelöst] Calc: Problem mit Listbox im Dialog

Beitrag von retuwe61 »

Hallo miteinander.
Mit Hilfe von Toxitoms Buch habe ich einen Dialog mit 2 Listboxen erstellt. Der in "Liste1" ausgewählte Wert soll in Tabelle1.R1 und derjenige aus "Liste2" in Tabelle1.S1 eingetragen werden. Das Erste klappt, das Zweite nicht. Kann bitte jemand einen Blick darauf werfen?
Danke.
Gruß
Uwe

Code: Alles auswählen

global odlg as object
global oWinListener 
global oAktListener
global oLB_Listener
global oLB1_Listener
dim oEvent
dim oNix

Sub Dialog_Anzeigen
	oDlgMod = createUnoService("com.sun.star.awt.UnoControlDialogModel")
	with oDlgMod
		.setPropertyValue("Height", 90)
		.setPropertyValue("Width", 224)
		.setPropertyValue("Title", "Einstellungen und Auswahl")
	end with
	
	oDlg = createUnoService("com.sun.star.awt.UnoControlDialog")
	oWinListener = createUnoListener("bas2_", "com.sun.star.awt.XTopWindowListener")
	oDlg.addTopWindowListener(oWinListener)
	oDlg.setModel(oDlgMod)
	oAktListener = createUnoListener("end_", "com.sun.star.awt.XActionListener")
	oLB_Listener = createUnoListener("list_", "com.sun.star.awt.XActionListener")
	oLB1_Listener = createUnoListener("list_1", "com.sun.star.awt.XActionListener")
		
	octl1 = oDlgMod.createInstance("com.sun.star.awt.UnoControlFixedTextModel")
	with oCtl1
		.setPropertyValue("Label", "Filter Schlüsselzahl")
		.setPropertyValue("PositionX", 74)
		.setPropertyValue("PositionY", 1)
		.setPropertyValue("Height", 14)
		.setPropertyValue("Width", 139)
	end with
	oDlgMod.insertByName("Text1", oCtl1)
	
dim aListe()
	aListe = array(" ", "0", "1", "2", "3", "4", "5", "6", "7")
	octl2 = oDlgMod.createInstance("com.sun.star.awt.UnoControlListBoxModel")
	with oCtl2
		.setPropertyValue("StringItemList", aListe)
		.setPropertyValue("PositionX", 55)
		.setPropertyValue("PositionY", 11)
		.setPropertyValue("Height", 12)
		.setPropertyValue("Width", 20)
		.Dropdown = true
	end with
	oDlgMod.insertByName("Liste1", oCtl2)
	oControl = oDlg.getControl("Liste1")
	oControl.addActionListener(oLB_Listener)
	
dim aListe1()
	aListe1 = array(" ", "A", "B", "C", "D", "E", "F", "G", "H")
	octl3 = oDlgMod.createInstance("com.sun.star.awt.UnoControlListBoxModel")
	with oCtl3
		.setPropertyValue("StringItemList", aListe1)
		.setPropertyValue("PositionX", 76)
		.setPropertyValue("PositionY", 11)
		.setPropertyValue("Height", 12)
		.setPropertyValue("Width", 20)
		.Dropdown = true
	end with
	oDlgMod.insertByName("Liste2", oCtl3)
	oControl = oDlg.getControl("Liste2")
	oControl.addActionListener(oLB1_Listener)	
	
	oCtl3 = oDlgMod.createInstance("com.sun.star.awt.UnoControlButtonModel")
	with oCtl3
		.setPropertyValue("Label", "Zurück")
		.setPropertyValue("PositionX", 1)
		.setPropertyValue("PositionY", 1)
		.setPropertyValue("Height", 12)
		.setPropertyValue("Width", 51)
		.setPropertyValue("MultiLine", True)
	end with
	oDlgMod.insertByName("But1", oCtl3)	
	oControl1 = oDlg.getControl("But1")
	oControl1.addActionListener(oAktListener)	
	odlg.setvisible(true)
End Sub

REM Aktionen des Top-Window Event Listeners
sub bas2_windowClosing()
	odlg.removeTopWindowListener(oWinListener)
	odlg.setVisible(false)
end sub

sub bas2_windowActivated
	'nix
end sub

sub bas2_windowDeActivated
	'nix
end sub

REM Aktion Button Schliessen gedrückt
sub end_actionPerformed(oEvent)
	odlg.removeTopWindowListener(oWinListener)
	odlg.setVisible(false)
end sub

REM Aktion Listeneintrag Klick
sub list_actionPerformed(oNix)
	Trage_Ein(onix.ActionCommand)
end sub

sub list1_actionPerformed(oNix)
	Trage_Ein1(onix.ActionCommand)
end sub

sub Trage_ein(sText as String)
    oDoc = thisComponent
    oSheet = oDoc.Sheets.getByName ("Tabelle1")
	oZelle = oSheet.getCellRangeByName ("R1")
		oZelle.string = sText
end sub

sub Trage_ein1(sText as String)
    oDoc = thisComponent
    oSheet = oDoc.Sheets.getByName ("Tabelle1")
	oZelle = oSheet.getCellRangeByName ("S1")
		oZelle.string = sText
end sub
Zuletzt geändert von retuwe61 am Fr, 14.07.2017 20:09, insgesamt 1-mal geändert.
Angewandt wird LibeOffice Version 5.1.6.2
gschuckar
****
Beiträge: 140
Registriert: Fr, 24.02.2006 14:27

Re: Calc: Problem mit Listbox im Dialog

Beitrag von gschuckar »

Moin Uwe,
ändere in "Sub Dialog_Anzeigen" die Zeile

Code: Alles auswählen

	oLB1_Listener = createUnoListener("list_1", "com.sun.star.awt.XActionListener")
in

Code: Alles auswählen

	oLB1_Listener = createUnoListener("list1_", "com.sun.star.awt.XActionListener")
Mit freundlichem Gruß
Gerd
retuwe61
****
Beiträge: 159
Registriert: So, 18.11.2007 21:25

Re: Calc: Problem mit Listbox im Dialog

Beitrag von retuwe61 »

Vielen Dank.
Gruß
Uwe
Angewandt wird LibeOffice Version 5.1.6.2
Antworten