kturendyk napisał(a):proszę o podpowiedź jak wydobyć nazwy plików i wstawić je do "additems"
Basic Guide
addItems (ItemArray, Pos) enters the entries listed in the string's ItemArray data field into the list at the Pos position
Co to oznacza?
Ano to że musi to być tablica elementów, a twoja zmienna nie jest tablicą.
Poniżej rozwiązanie, bez wielkich przeróbek,
- Kod: Zaznacz cały Rozszerz widokZwiń widok
While NextFile <> ""
if AllFiles ="" then
AllFiles = NextFile
else
AllFiles = AllFiles & "," & NextFile
end if
NextFile = Dir
Wend
Tablica = Split(Allfiles, ",")
'msgBox Allfiles
Dim libStandard 'otwarcie okna dialogowego
Dim libDialog
DialogLibraries.loadLibrary("Standard")
libStandard = DialogLibraries.getByName("Standard")
libDialog = libStandard.getByName("wstawgrafike")'W cudzysłowiu wpisać nazwe okna dialogowego z zakładki
Dlg = CreateUnoDialog(DialogLibraries.Standard.wstawgrafike)
libStd = DialogLibraries.getByName("Standard")
libDlg = libStd.getByName("wstawgrafike")
dlg = CreateUnoDialog(libDlg)
zdj = dlg.getcontrol("ComboBox1") 'utworzenie listy wyboru towaru
zdj.additems(Tablica ,0)