---

Hej derude,

Hvordan får jeg indholdet i en ListBox til at stå pænt i kolonner? Jeg kan
vel ikke blot fylde den op med tekst-strenge, á la:

For i=0 to N
listboxName.addItem Str , i
Next i

Hvordan kan man så gøre?

Please help...

/Jack

---

I og med at du ønsker å representere dataene dine i kolonner i listboksen,
så antar jeg at strengvariabelen Str inneholder flere "entiteter". Hvis Str
f.eks. er tilordnet slik:

Str = StrEtternavn & ", " & StrFornavn

kan du utføre følgende prosedyre for å få dataene dine i kolonner i
listboksen.

Sett fonten i listboksen til Courier (eller en annen "fixed-width"-font).
Dette er viktig. Husk også på at hvis du bruker en annen font enn f.eks.
Courier, så må du forvisse deg om at denne fonten finnes på alle de PC'ene
som skal kjøre programmet ditt. Courier er "alltid" installert på
Microsoftbaserte OS.

'Deklarerer en string-variabel
Dim StrTomLinje as String

'Lag en linje med tilstrekkelig mange mellomrom. I mitt tilfelle 20
StrTomLinje = " "

'Tilordner variabelen Str etter- og fornavn i "kolonner"
Str = left(StrEtternavn & StrTomLinje, 20) & ", " & left(StrFornavn &
StrTomLinje, 20)

'Legger til verdien av Str i listboksen listboxName
listboxName.additem Str


Håper dette hjelper deg noe videre...

mvh
Bjørnar Nilsen

"Jack" <kir2@hotmail.com> skrev i melding
news:3b112f0f$0$5731$4d4eb98e@news.dk.uu.net...
> Hej derude,
>
> Hvordan får jeg indholdet i en ListBox til at stå pænt i kolonner? Jeg kan
> vel ikke blot fylde den op med tekst-strenge, á la:
>
> For i=0 to N
> listboxName.addItem Str , i
> Next i
>
> Hvordan kan man så gøre?
>
> Please help...
>
> /Jack
>
>
>

---

"Jack" <kir2@hotmail.com> skrev i en meddelelse
news:3b112f0f$0$5731$4d4eb98e@news.dk.uu.net...
> Hej derude,
>
> Hvordan får jeg indholdet i en ListBox til at stå pænt i kolonner? Jeg kan
> vel ikke blot fylde den op med tekst-strenge, á la:
>
> For i=0 to N
> listboxName.addItem Str , i
> Next i
>
> Hvordan kan man så gøre?
>
> Please help...
>
> /Jack
>
Ik' for noget men har du overvejet et Flexgrid ?? Der kan du stille det pænt
i kolonner. Og fjerne stregerne imellem hver kolonne, så det ligner en
listbox (hvis det er ønskeligt.

Jan

---

"J@N" <Nowhere@InSpace.Com> wrote in message
news:9ess8q$fe8$1@news.inet.tele.dk...
>
> "Jack" <kir2@hotmail.com> skrev i en meddelelse
> news:3b112f0f$0$5731$4d4eb98e@news.dk.uu.net...
> > Hej derude,
> >
> > Hvordan får jeg indholdet i en ListBox til at stå pænt i kolonner? Jeg
kan
> > vel ikke blot fylde den op med tekst-strenge, á la:
> >
> > For i=0 to N
> > listboxName.addItem Str , i
> > Next i
> >
> > Hvordan kan man så gøre?
> >
> > Please help...
> >
> > /Jack
> >
> Ik' for noget men har du overvejet et Flexgrid ?? Der kan du stille det
pænt
> i kolonner. Og fjerne stregerne imellem hver kolonne, så det ligner en
> listbox (hvis det er ønskeligt.
>
> Jan

En yderlige mulighed er at bruge ListView som befinder sig i Windows Common
Controls.

- Niels G.

---

"Niels G" <ng@kmd.dk> skrev i en meddelelse news:9et1g1$hp$1@news.inet.tele.dk...
>
> "J@N" <Nowhere@InSpace.Com> wrote in message
> news:9ess8q$fe8$1@news.inet.tele.dk...
> >
> > "Jack" <kir2@hotmail.com> skrev i en meddelelse
> > news:3b112f0f$0$5731$4d4eb98e@news.dk.uu.net...
> > > Hej derude,
> > >
> > > Hvordan får jeg indholdet i en ListBox til at stå pænt i kolonner? Jeg
> kan
> > > vel ikke blot fylde den op med tekst-strenge, á la:
> > >
> > > For i=0 to N
> > > listboxName.addItem Str , i
> > > Next i
> > >
> > > Hvordan kan man så gøre?
> > >
> > > Please help...
> > >
> > > /Jack
> > >
> > Ik' for noget men har du overvejet et Flexgrid ?? Der kan du stille det
> pænt
> > i kolonner. Og fjerne stregerne imellem hver kolonne, så det ligner en
> > listbox (hvis det er ønskeligt.
> >
> > Jan
>
> En yderlige mulighed er at bruge ListView som befinder sig i Windows Common
> Controls.

Rigtigt
'-' Kode Start '-'

Private Sub Form_Load()
Dim clmX As ColumnHeader
Dim itmX As ListItem
Dim i As Integer
ListView1.View = lvwReport
For i = 1 To 3
Set clmX = ListView1.ColumnHeaders.Add()
clmX.Text = "Col" & i
Next i

' Add 10 items to list, all with the same icon

For i = 1 To 10
Set itmX = ListView1.ListItems.Add()
itmX.Text = "ListItem " & i
itmX.SubItems(1) = "Subitem 1"
itmX.SubItems(2) = "Subitem 2"
Next i
End Sub