Pozdravljen
V texttovno datoteko vnašam podatke in sicer
dim adtum as date, ime as string, priimek as string, cena as doube
Write #1, datum, ime, priimek, cena
Sedaj mi pa nikakor ne uspe oblikovati List-Box, da bi te podatke lepo pisal v kolone in z določeno širino stolpca.
Prosim za pomoič pri kodi, sedaj sem rešil tako, da pišem celo vrstico z funkcijo AddItem in presledki med stolpci, vendar nikakor ne dobiš iste širine.
Hvala.
List-box
Pozdravljeni,
Za rešitev omenjenih problemov ima objekt seznam (ListBox) lastonst column, kjer poveste koliko kolon želite. Spodaj pa vam podajam kar primer iz VBA pomoči. Za izvedbo tega makra potrebujete obrazec z dvema seznamoma (ListBox1 in ListBox2):
Širino kolon pa urejate z lastnostjo ColumnWidths.
Za rešitev omenjenih problemov ima objekt seznam (ListBox) lastonst column, kjer poveste koliko kolon želite. Spodaj pa vam podajam kar primer iz VBA pomoči. Za izvedbo tega makra potrebujete obrazec z dvema seznamoma (ListBox1 in ListBox2):
Koda: Izberi vse
Dim MyArray(6, 3)
Dim i As Single
' Prvi seznam vsebuje 3 kolone
ListBox1.ColumnCount = 3
' Drugi seznam vsebuje 6 kolon
ListBox2.ColumnCount = 6
' v prvo kolono polja napolnimo cigre
For i = 0 To 5
MyArray(i, 0) = i
Next i
' inicializiramo polje
MyArray(0, 1) = "Zero"
MyArray(1, 1) = "One"
MyArray(2, 1) = "Two"
MyArray(3, 1) = "Three"
MyArray(4, 1) = "Four"
MyArray(5, 1) = "Five"
MyArray(0, 2) = "Zero"
MyArray(1, 2) = "Un ou Une"
MyArray(2, 2) = "Deux"
MyArray(3, 2) = "Trois"
MyArray(4, 2) = "Quatre"
MyArray(5, 2) = "Cinq"
' postavimo polje v seznama
ListBox1.List() = MyArray
ListBox2.Column() = MyArray
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator