Visual Basic 6.0

Απ: Απορια με List view

ntaryl — Sat, 22 Dec 2007 01:17:56 GMT

Ευχαριστω πολυ

καλο απογευμα

Απ: Απορια με List view

Dimitris Papadimitriou — Fri, 21 Dec 2007 04:51:05 GMT

Ψάξε στο δίκτυο για file explorer components για .NET και θα το βρεις έτοιμο. Νομίζω ότι κάτι κυκλοφορεί και δωρεάν.

Απ: Απορια με List view

Παναγιώτης Καναβός — Fri, 21 Dec 2007 04:50:53 GMT

Ο ευκολότερος τρόπος να δουλέψεις με αρχεία στην VB6 είναι μέσω του FileSystemObject. Για να το χρησιμοποιήσεις προσθέτεις στο project σου ένα Reference στο Microsoft Scripting Runtime. Το FileSystemObject σου δίνει πρόσβαση στα αντικείμενα File, Folder, TextStream κλπ τα οποία σου επιστρέφουν αρκετές πληροφορίες για τα αρχεία και τα folders.

Για να προσθέσεις αντικείμενα σε στήλες στο ListView καλείς την ListItems.Add για να προσθέσεις ένα αντικείμενο. Μετά καλείς την ListSubItems.Add για να προσθέσεις τα επιπλέον στοιχεία στο αντικείμενο. Ρίξε μια ματιά στο παρακάτω sample, αν και είναι λίγο περίεργο γιατί .... μόνο σε Excel VBA έχω πλέον στο μηχάνημα μου!

Private Sub CommandButton1_Click()
Me.ListView1.ColumnHeaders.Add , , "Name"
Me.ListView1.ColumnHeaders.Add , , "Date"
Me.ListView1.ColumnHeaders.Add , , "Size"
Me.ListView1.View = lvwReport

Dim fso As FileSystemObject, aFolder As Folder, aFile As File, anItem As ListItem

Set fso = New FileSystemObject
Set aFolder = fso.GetFolder("c:\")
For Each aFile In aFolder.Files
Set anItem = Me.ListView1.ListItems.Add(, aFile.Name, aFile.Name)
anItem.ListSubItems.Add , , aFile.Type
anItem.ListSubItems.Add , , aFile.DateCreated
anItem.ListSubItems.Add , , aFile.Size
Next
End Sub

Απορια με List view

ntaryl — Fri, 21 Dec 2007 01:26:09 GMT

καλησπερα παιδια
Μπορει η ερωτηση να ειναι εντελως βλακεια αλλα θελω βοηθεια .
Εχω μια φορμα και επανω ενα list view επισυναπτω το παραδειγμα .
Θελω τρεχοντασ την φορμα να εμφανιζονται στην λιστα καποια αρχεια που υπαρχουν σε ενα φακελο
και αν ειναι εφικτο εμφανιζοντας καθε ενα αρχειο να εμφανιζει και πληροφοριες γι αυτο .
ευχαριστω πολυ και καλο απογευμα
καλες γιορτες