Πώς να κάνει έναν υπολογιστή με Windows Search in VB

Visual Basic της Microsoft ( VB ) γλώσσα προγραμματισμού και το περιβάλλον έχει πολλές λειτουργίες για την αλληλεπίδραση με το λειτουργικό σύστημα των Windows . Ανάμεσα σε αυτές τις λειτουργίες είναι εκείνες για την εκτέλεση αναζητήσεων αρχείων . Εκτελώντας αυτές τις αναζητήσεις με VB περιλαμβάνει γράψιμο κώδικα που επικαλείται τις υφιστάμενες λειτουργίες σε βιβλιοθήκες κώδικα . Η ΝΕΤ που αποστέλλεται μαζί με VB περιέχει αυτές τις βιβλιοθήκες . . Γράφοντας προγράμματα που εκτελούν τα Windows αναζητούν σε VB παρέχει μια γρήγορη εισαγωγή στο . NET προγραμματισμού , και σας επιτρέπει να προσαρμόσετε την προεπιλεγμένη μηχανή αναζήτησης των Windows . Τα πράγματα που θα χρειαστείτε
Visual Basic
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε VB και να δημιουργήσετε ένα νέο έργο στο οποίο να προγραμματίσετε εφαρμογή αναζήτησης σας πατώντας το πλήκτρο " Control- N . " Κάντε κλικ στο σύνδεσμο που λέει " έντυπο αίτησης των Windows " για να δημιουργήσετε μια εφαρμογή που θα προσαρμόσετε με κωδικό προγράμματος να εκτελέσει μια αναζήτηση των Windows . 2

Ανοίξτε το σχεδιαστή φόρμα πατώντας το κουμπί " Σχέδιο " θέμα που βρίσκεται υπό το "Windows" τίτλο του μενού .
εικόνων 3

Σύρετε ένα στοιχείο ελέγχου ετικέτας από την εργαλειοθήκη ελέγχου στο κάτω μέρος της οθόνης πάνω στο έντυπο . Κάντε δεξί κλικ στην ετικέτα και επιλέξτε "Ιδιότητες ", στη συνέχεια, πληκτρολογήστε " Όνομα φακέλου " στο " κείμενο " στοιχείο "Ιδιότητες " παράθυρο .
Η 4

Δημιουργήστε μια άλλη ετικέτα , όπως κάνατε την πρώτη. Σύρετε το σε μια θέση ακριβώς κάτω από την πρώτη ετικέτα , και χρησιμοποιήστε τις οδηγίες βήμα 3 για να δώσει στην ετικέτα το κείμενο " όνομα αρχείου . " Αυτές οι δύο ετικέτες προτρέψει χρήστη του προγράμματος σας για να εισάγετε ονόματα φακέλων και αρχείων που το πρόγραμμά σας θα χρησιμοποιήσετε για να κάνετε την αναζήτηση των Windows .
5

Σύρετε ένα στοιχείο ελέγχου πλαισίου κειμένου, στα δεξιά της δεύτερης ετικέτας , και σύρετε ένα άλλο πλαίσιο κειμένου στα δεξιά του πρώτου . Ο χρήστης θα εισάγει τις παραμέτρους αναζήτησης ( δηλαδή φάκελο και τα ονόματα ) σε αυτά τα πλαίσια .
Η 6

Σύρετε ένα στοιχείο ελέγχου κουμπιού από την εργαλειοθήκη στη φόρμα , κάτω από τις υπάρχουσες ελέγχους . Κάντε διπλό κλικ στο κουμπί για να εμφανίσετε το παράθυρο για την εισαγωγή του κωδικού του προγράμματος να εκτελέσει την αναζήτηση .
Η 7

Πληκτρολογήστε την ακόλουθη δήλωση πάνω από τη "Δημόσια Τάξη " κείμενο . Η " Εισαγωγές" δήλωση κάνει το NET βιβλιοθήκη κώδικα . Διαθέσιμα στο πρόγραμμά σας .

Εισαγωγές System.IO
8

Επικολλήστε τον ακόλουθο παραπάνω δήλωση το "End Sub" δήλωση στην " Button1_Click " υπορουτίνα . Αυτή η δήλωση ζητά από την κύρια ρουτίνα του προγράμματός σας , το οποίο θα γράψετε το επόμενο .

WinSearch ( )
Η 9

Επικολλήστε τον παρακάτω κώδικα κάτω από το " End Sub" γραμμή του " Button1_Click " υπορουτίνα . Αυτή η υπορουτίνα λειτουργεί καλώντας GetFiles του . NET βιβλιοθήκη για να λειτουργήσει για την αναζήτηση των Windows για το αρχείο που εισάγει ο χρήστης .

Sub WinSearch ( )

Dim d Όπως String

Dim f Όπως String

Δοκιμάστε

d = TextBox2.Text

For Each f Σε Directory.GetFiles ( d , TextBox1.Text )

MsgBox ( " Η το αρχείο είναι εδώ . " )

Επόμενο

Catch e Όπως System.Exception

Debug.WriteLine ( e.Message )

End Δοκιμάστε

End Sub

10

Εκτελέστε το πρόγραμμα πατώντας το πλήκτρο " F5 ". Πληκτρολογήστε ένα όνομα φακέλου στο top box κειμένου της φόρμας . Πληκτρολογήστε ένα όνομα αρχείου στο κάτω πλαίσιο κειμένου .
Η 11

Πατήστε το κουμπί της φόρμας για να τρέξει κώδικα του προγράμματος σας , η οποία θα εκτελέσει την αναζήτηση για το αρχείο που καθορίσατε . Το πρόγραμμα θα εμφανίσει κανένα μήνυμα , αν δεν βρείτε το αρχείο . Θα εμφανιστεί το μήνυμα " Το αρχείο είναι εδώ . " αν δεν βρείτε το αρχείο .
Η
εικόνων