Πώς να Βάλτε ListView κεφαλίδες σε ένα σημειωματάριο Χρησιμοποιώντας VB6

Το Visual BASIC ListView είναι ένα στοιχείο ελέγχου που εμφανίζει τα δεδομένα σε μορφή λίστας . Η ListView μπορεί να εμφανίσει πληροφορίες όπως μια λίστα από μικρά ή μεγάλα εικονίδια , ένα μικρό εικονίδιο με το κείμενο στα δεξιά του, ή μια μορφή έκθεσης στην οποία το κείμενο του κάθε " subitem " εμφανίζεται στα δεξιά κάτω από κάθε επικεφαλίδα στήλης. Αυτές οι απόψεις μπορεί να ακούγεται οικείο σε σας , καθώς αυτό είναι το πώς η Εξερεύνηση των Windows εμφανίζει το φάκελο και τις πληροφορίες του αρχείου . Οι πληροφορίες που εμφανίζονται στην προβολή λίστας μπορούν να προβληθούν, να επιλεγεί , επαναδιαταχθούν , ενημέρωση ή να εξαχθεί σε άλλη εφαρμογή, όπως το Notepad ή το Excel . Οδηγίες
Η

1 Ανοίξτε ένα νέο έργο της Visual Basic Standard EXE . Προσθέστε το αντικείμενο ListView στην εργαλειοθήκη κάνοντας κλικ στο "Project ", " Εξαρτήματα" και κάνοντας κλικ στο πλαίσιο ελέγχου δίπλα στο " Microsoft Windows κοινούς ελέγχους 6.0 ( SP6 ) . " Επιλέξτε το αντικείμενο ListView από την εργαλειοθήκη και κάντε κλικ στο default " Φόρμα1 . " Μετονομασία " Form1 " σε κάτι πιο ουσιαστικό , όπως " frmMain » , και τη νεοσυσταθείσα ListView να " lvCustomer . " 2

Προσθήκη κουμπιού " frmMain "και ρυθμίστε τη λεζάντα " Εξαγωγή ". στην " Form_Load "εκδήλωση , κατοικηθεί " lvCustomer " με δεδομένα του πελάτη , είτε από σκληρό κωδικοποίηση ή την ανάκτηση των δεδομένων από μια βάση δεδομένων . Προσθέστε τις κεφαλίδες στήλης με τον ίδιο τρόπο . Ένα βασικό παράδειγμα να προσθέσετε μια κεφαλίδα στήλης είναι " lvCustomer.ColumnHeaders.Add 1 , " CustName " , " Όνομα " . " Αυτή η γραμμή κώδικα υποδεικνύει ότι η πρώτη κεφαλίδα της στήλης θα έχει ένα κλειδί " CustName » και μια τιμή που εμφανίζεται στο χρήστη "Name ". ένα βασικό παράδειγμα προσθέτοντας μια γραμμή δεδομένων στο " lvCustomer " είναι " lvCustomer.ListItems.Add 1 , , " John Smith " . " Αυτή η γραμμή κώδικας δημιουργεί μια γραμμή δεδομένων στην πρώτη στήλη , χωρίς κλειδί και την τιμή του " John Smith ".
εικόνων 3

ανακτήσετε τις επικεφαλίδες των στηλών με looping μέσα από τα αντικείμενα ListView ColumnHeader . για i = 1 Για να lvCustomer.ColumnHeaders.CountsHeader = sHeader + lvCustomer.ColumnHeaders.Item ( i ) . Κείμενο + vbTabNextThis κωδικό βρόχους μέσα από κάθε ColumnHeader και αποθηκεύει την τιμή της συμβολοσειράς μεταβλητής " sHeader ", ακολουθούμενο από μια καρτέλα χαρακτήρα διαστήματος .
Φτηνές 4

Δημιουργήστε ένα αρχείο κειμένου για να αποθηκεύσετε τα δεδομένα ColumnHeader με το Microsoft FileSystemObject . Ο παρακάτω κώδικας δημιουργεί ένα αρχείο κειμένου που ονομάζεται " output.txt » και αποθηκεύει την τιμή της συμβολοσειράς μεταβλητής " sHeader " σε αυτό το αρχείο : Dim FSO Όπως New FileSystemObjectSet newfile = FSO.CreateTextFile ( "c : \\ temp \\ εξόδου . txt " , True , False ) newFIle.Write ( sHeader )
5

Ανοίξτε τα περιεχόμενα του νέου « output.txt " αρχείο στο Σημειωματάριο με τη " Shell "εντολή : dblNotePadID = Shell ( " Σημειωματάριο c: \\ temp \\ output.txt " )
Η
εικόνων