25. juni 2002 - 09:30
Der er
3 kommentarer og
3 løsninger
Lave ens egen "stifinder"
Jeg er i gang med at lave noget der kunne minde om en stifinder. Det jeg har brug for er en FileListBox, hvor man kan sortere filerne stigende/faldende efter dato, filnavn, størrelse osv.
Mit spørgsmål er ganske simpelt - findes der andre komponenter end FileListBox, hvor man jo IKKE kan sortere filerne? (vel?)
Min løsning på problemet er at have en collection af filer, som jeg kan sortere som jeg vil og skrive ud i f.eks. et MSFlexGrid - men det er lidt klodset synes jeg. Kender I til andre komponenter der ville egne sig bedre?
Der er helt sikkert Listview du skal have gang i. Componentet kan også ved første kik se noget klodset ud men, når du har fået styr på det, kan du ikke undvære det.
Et eks. fra bogføring.
sæt 1 stk Listview1 på et form og 1stk command knap
ind i Command1_Click() kliper du efterf.
'######### Init ListView1 ###########
ListView1.Height = 1000
ListView1.Width = 9495
'####################################
With ListView1.ColumnHeaders
.Add , "_dato", "Dato"
.Add , "_bilag", "Bilag"
.Add , "_text", "Text"
.Add , "_afstemningskonto", "Afstemningskonto"
.Add , "_belob", "Beløb"
.Add , "_kontonr", "Kontonr."
.Add , "_moms", "Moms"
.Add , "_faktura", "Faktura."
End With
With ListView1
.ColumnHeaders(1).Width = 1000
.ColumnHeaders(2).Width = 640
.ColumnHeaders(3).Width = 2000
.ColumnHeaders(5).Width = 640
.ColumnHeaders(6).Width = 1000
.ColumnHeaders(7).Width = 640
.ColumnHeaders(8).Width = 840
End With
Set Kolon = ListView1.ListItems.Add(, , Date)
Kolon.SubItems(1) = 1
Kolon.SubItems(2) = "Kingston 256mb pc133"
Kolon.SubItems(3) = "Bank"
Kolon.SubItems(4) = "381"
Kolon.SubItems(5) = "Deb 251"
Kolon.SubItems(6) = "S"
Kolon.SubItems(7) = "5145"
' Men du skal igang med løkke værk og fil componenterne.
Takker. Der er jo så mange komponenter, og det kan tage lidt at finde ud af hvad de kan, derfor mit spørgsmål... sjh - det er lige til at copy-paste, du har sparet mig for nogle timer. Takker mange gange! /Martin
