List-box

Pomoč pri izdelavi makrov
Odgovori
ROBERT
Prispevkov: 29
Pridružen: Sr Sep 14, 2005 9:55 am

List-box

Odgovor Napisal/-a ROBERT »

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.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

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):

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
Širino kolon pa urejate z lastnostjo ColumnWidths.
lp,
Matjaž Prtenjak
Administrator
Odgovori