Listbox Bildlaufleiste fehlt

[felix]

Hallo,

ich habe einen Code, der mir eine Listbox in einem Dialog mit Namen aus einer Tabelle füllt. Wenn ich dieses Makro mit dem Ereignis "bei Fokuserhalt" verbinde wird die Listbox zwar gefüllt, aber die Bildlaufleiste fehlt. Wenn ich das Makro mit dem Ereignis "Beim Auslösen" verbinde wird die Listbox gefüllt und die Bildlaufleiste angezeigt. Der Vorteil die Listbox mit dem Ereignis "bei Fokuserhalt" zu füllen liegt darin, dass die Listbox bei Aufruf des Dialoges gefüllt wird.

Weiß jemand, woran das liegt, dass die Bildlaufleiste nicht da ist beim Ereignis "bei Fokuserhalt"?

Code: Alles auswählen

Sub ListboxFuellen
 
 Dim aZeile			
 Dim aListe(21)
 Dim adat
 Dim i as integer

 oBereich = thisComponent.Sheets(4).getCellRangeByName("A245:A265")
 adat = oBereich.getDataArray()
   
 for i = 0 to uBound(adat)
 aZeile = adat(i)
 aListe(i) = aZeile(0)
 next
 oDlg1.getControl("ListBox1").Model.StringItemList = aListe()
End sub

Ich nutze OpenOffice 2.3 unter WinVista Premium

mit frendlichem Gruß
Felix

[komma4]

Der Vorteil die Listbox mit dem Ereignis "bei Fokuserhalt" zu füllen liegt darin, dass die Listbox bei Aufruf des Dialoges gefüllt wird.

Die Anzeige einer Bildlaufleiste sollte abhängig von der Anzahl der anzuzeigenden Daten sein.... ich gehe mal davon aus, das die Menge identisch ist. Ist auch die angezeigte Schrift(-art/-grösse) bei beiden Aufrufen identisch?

Das Ereignis "bei Fokuserhalt" ist nicht identisch mit dem Anzeigen des Dialogs!
Die Liste wird jedesmal gefüllt, wenn sie den Fokus erhält.
Warum füllst Du die Liste nicht aus dem Code, vor Dialog.execute()?

[felix]

Hallo,
Dankeschööööööööööööön.

fülle die Listbox jetzt aus dem Code heraus ( vor Dialog.execute())
Und es funktioniert mit Bildlaufleiste.

MfG Felix