Δημιουργία των απαραίτητων μεταβλητών . Αυτές οι μεταβλητές που χρησιμοποιούνται για να καλέσετε την κατηγορία "Κατάλογος" και θηλιά μέσα από κάθε αρχείο ή φάκελο για να δημιουργήσετε τη σύνδεση της φόρμας . Παρακάτω είναι ο κώδικας για να δημιουργήσετε μεταβλητές αρχείου : Dim κατάλογο Καθώς τα αρχεία DirectoryDim As String ( ) Dim αρχείο Όπως StringNote τα " αρχεία " και " αρχείο" ορισμούς . Η " αρχεία " μεταβλητή είναι ένας πίνακας με όλα τα αρχεία στον κατάλογο . Ο "φάκελος " μεταβλητή χρησιμοποιείται για να περιέχει μία σειρά αρχείων . 2
Πάρτε μια λίστα με τα αρχεία και να το αποθηκεύσετε στο " αρχεία " συστοιχία . Μια εσωτερική συνάρτηση της Visual Basic που ονομάζεται " GetFiles ( ) " χρησιμοποιείται για να δημιουργήσει τη λίστα . Ο ακόλουθος κώδικας ανακτά όλους τους φακέλους και τα αρχεία withing το "c : \\ myFolder " κατάλογο : files = directory.GetFiles ( " C : \\ myFolder " , " * " ) Το " * " κατευθύνει τον compiler για να ανακτήσετε όλα τα αρχεία . Μπορείτε επίσης να καθορίσετε τα ονόματα των αρχείων για την ανάκτηση .
Εικόνων 3
Loop μέσα από κάθε αρχείο στον πίνακα και να το εκτυπώσετε σε μια ετικέτα συνδέσμου . Η ετικέτα συνδέσμου δημιουργεί μια υπογραμμισμένη περιοχή κειμένου που οι χρήστες κάνουν κλικ για να ανοίξετε το αρχείο . Ο ακόλουθος κώδικας εκτυπώσεις κάθε αρχείο στη φόρμα του χρήστη : για κάθε αρχείο σύνδεσμο filesDim Όπως New LinkLabel ( ) link.Text = fileMe.Controls.Add ( link) Loop
Η 4
αποθηκεύσετε τις νέες αλλαγές κωδικοποίησης και πατήστε το πλήκτρο F5 . Οι μεταγλωττίσεις πλήκτρο F5 και τρέχει κωδικό σας στο πρόγραμμα εντοπισμού σφαλμάτων , ώστε να μπορεί να ελέγξει τη λειτουργία και τη σύνταξη του στο πρόγραμμα επεξεργασίας της Visual Basic .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα