VBA word: 2 kolonner i Listbox

En listbox har da ikke kolonner?

Listview har kolonner, MSFlexgrid har kolonner. Dem kan du bruge

Jeg har ingen kolonner i listen nu. Men ønsker at skabe det.

Hvordan bruger jeg i praksis det du foreslår?

En listbox har ikke kolonner!
Så brug en anden kontrol, fx. en listview

Og ... hvad er en listview?

Sorry - det kan du godt. 2 sek

ListBox1.ColumnCount = 2
  ListBox1.AddItem "Hej" & vbTab & "du der"
  ListBox1.AddItem "Går det" & vbTab & "godt"

"Og ... hvad er en listview?"
Det er en anden kontrol - i stedet for en listbox. Men som du kan se kan listbox godt have kolonner - jeg tog fejl i starten  :o)

Jeg kan ikke rigtig få det til at fungere.
Jeg øger point til 40, så håber jeg du kan hjælpe mig.

Jeg bruger følgende kode til at indsætte data fra mappen i lstfil:

For Each f1 In fc
    If InStrRev(f1.Name, ".doc") Or InStrRev(f1.Name, ".DOC") Then
    sN = f1.Name
    sD = f1.DateLastModified
   
    Lstfil.AddItem sN & vbTab & sD
   
    End If
Next

Sn afkortes på midten af listen og Sd vises ikke.

Så juster dine kollonnebredder, eller bredden på hele din listbox

Et tip til forbedring af din kode:

If lcase(right(f1.name,4)= ".doc" then

I dit tilfælde vil følgende fil komme med:
  test.doc.xls (og det skal jo ikke med)

men følgende vil ikke komme med:
  test.Doc (og den skal jo med)

Prøv lige at test med

  Lstfil.AddItem "Hej" & vbTab & "du der"

Bare for at se om det virker :o)

Resultatet er nøjagtig det samme som hvis jeg ikke kører Listbox med 2 kolonner (ColumnCount = 2).

Filtitel    Dato
FiltitelXX    Dato
Filtitel    Dato
......

Og tak for dine tips :-)

Hvis jeg nu skulle bruge Listview i stedet for. Hvordan ser koden så ud, når alle filer i en mappe skal tilføjes på samme måde. Altså:

Filtitel      Dato
Filtitellllll Dato
Filtitel      Dato
Filtitelllll..Dato

Jeg kan forestille mig at der skal en "For-Next" til.

Hvis jeg laver en macro i word, med en userform med en listbox på, og bruger koden:

  ListBox1.ColumnCount = 2
  ListBox1.AddItem "Hej" & vbTab & "du der"
  ListBox1.AddItem "Går det" & vbTab & "godt"

Får jeg to kolonner!

Har du en mailadresse, så kan jeg sende dig en test

ssc@familie.tele.dk

Jeg sætter listboxens property "ColumnCount" til 2. Det må være samme resultat som at gøre det runtime.

Hmm - nu kan jeg sgu ikke selv få det til at virke.

Tror jeg giver op - jeg kan kun finde ud af det med listview...

Jamen så lad os tage det med Listview ...

Man kan jo ingenting med VBA i forhold til word. Listview skulel være så simpelt som beskrevet her:

  ListView1.ListItems.Add 1, , "Kolonne1"
  ListView1.ListItems(1).SubItems(1) = "Kolonne2"

Det virker i VB6, men ikke i VBA

Det eneste jeg kan få til at virke er en combobox, men der er også begrænsede muligheder i forhold til VB6. Øv.

Men det må kunne lade sig gøre, der er en ide med at man kan sætte antal kolonner.

Molbometoden er at bruge en monospaced font, og måle længden på de enkelte strings, og fylde spaces i dem der er for korte, så de alle er lige lange.

Det kan jo føres med Format - funktionen ret let.

Men siden det nu er filer du vil vise, kan du så ikke bruge en filelistbox med pattern sat til .doc? Nå nej - den fås jo kun til VB6 og ikak VBA.

Sidste mulighed er at prøve med MSFlexGrid, og se om du kan få det til at virke - det kan du jo lige selv forsøge :o)

Tjaa. Jeg er gået tilbage til Listbox og Chr$(9) metoden. Så må jeg se med tiden, om der ikke dukker noget op.

For din ulejlighed får du point alligevel.

Tak for indsatsen.

nicolaus

Alting er så let i VB - og så viser det sig, at i VBA kan kontrollerne kun det halve af hvad de kan i VB. Øv