OpenOffice.info

oDialog1.EndExecute()

Hallo F3K Total,

danke für Deine Unterstützung und Nachfrage!
Ich will den Dialog schließen.
Ich hab s gefunden:
[code]oDialog1.EndExecute()[/code]

Gruß, Rob

Hallo Rob,
was genau möchtest Du tun? Die Listbox verschwinden lassen oder den Dialog schliessen?

Gruß R

	GLOBAL VAEL
Sub list_Changed(e)
	VAEL = e.Source.getSelectedItem()
End Sub
Sub chge_Art
	ListBoxFuellen
End Sub
Sub ListBoxFuellen
	oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
	sht_adm = ThisComponent.Sheets.getByName("adm")
    oCellRangeSource = sht_adm.getCellRangeByName("$B14:$B29")
    aSourceDataArray() = oCellRangeSource.getDataArray()
       
    Dim aSource(UBound(aSourceDataArray())) As String
    For I = LBound(aSource()) To UBound(aSource())
       aDataArrayRow()   = aSourceDataArray(I)
       aSource(I) = aDataArrayRow(0)
    Next I
    oDialog1.Model.getByName("ListBox1").StringItemList = aSource()
	oDialog1.execute()
End Sub

Hallo,
ich habe eine kurze Frage, wie schließe ich meine Listbox nach Auswahl ?

[code] GLOBAL VAEL
Sub list_Changed(e)
VAEL = e.Source.getSelectedItem()
End Sub
Sub chge_Art
ListBoxFuellen
End Sub
Sub ListBoxFuellen
oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
sht_adm = ThisComponent.Sheets.getByName("adm")
oCellRangeSource = sht_adm.getCellRangeByName("$B14:$B29")
aSourceDataArray() = oCellRangeSource.getDataArray()

Dim aSource(UBound(aSourceDataArray())) As String
For I = LBound(aSource()) To UBound(aSource())
aDataArrayRow() = aSourceDataArray(I)
aSource(I) = aDataArrayRow(0)
Next I
oDialog1.Model.getByName("ListBox1").StringItemList = aSource()
oDialog1.execute()
End Sub[/code]

Danke!
Gruß, Rob