Πώς να χρησιμοποιήσετε ένα πλαίσιο κειμένου για όνομα αρχείου VB6

Visual Basic ( VB ) περιέχει ένα εσωτερικό αντικείμενο που ονομάζεται « κοινό παράθυρο διαλόγου . " Αυτό το παράθυρο παρέχει στους χρήστες με ένα " Save" παράθυρο διαλόγου , όπου μπορούν να ονομάσετε και να αποθηκεύσετε το αρχείο στο σκληρό δίσκο . Ο διάλογος αντικείμενο παίζεται σε μια φόρμα των Windows με ένα πλαίσιο κειμένου και το κουμπί " Αναζήτηση " . Οι χρήστες επιλέγουν μια θέση και ένα όνομα αρχείου , το αρχείο έχει αποθηκευτεί σε αυτό το πλαίσιο κειμένου και , στη συνέχεια, στο σκληρό δίσκο . Μπορείτε να τοποθετήσετε αυτό το αντικείμενο στη φόρμα των Windows σας για να παρέχει ένα γρήγορο τρόπο για να αποθηκεύσετε τα αρχεία στον κώδικά σας . Οδηγίες
Η

1 Δημιουργήστε ένα νέο αντικείμενο διαλόγου . Κάθε αντικείμενο μπορείτε να χρησιμοποιήσετε στη γλώσσα VB πρέπει πρώτα έναν ορισμό και την ανάθεση σε μια μεταβλητή . Ο παρακάτω κώδικας δημιουργεί το αντικείμενο VB σας :

Dim διαλόγου Όπως CommonDialog 2

Ρυθμίστε τις ιδιότητες διαλόγου παράθυρο . Η πρώτη ιδιότητα καθορίζει το κείμενο που φαίνεται στο πάνω μέρος του παραθύρου διαλόγου . Το δεύτερο φιλτράρει τα είδη των επεκτάσεων αρχείων που επιτρέπονται . Για παράδειγμα , αν η αίτησή σας επιτρέπει μόνο στους χρήστες να αποθηκεύσουν ως αρχείο κειμένου , το φίλτρο επιτρέπει μόνο " * . Txt " στο " Αποθήκευση ως τύπου " drop down box . Ο παρακάτω κώδικας ορίζει VB σας " Αποθήκευση " ιδιότητες :

dialog.DialogTitle = "Αποθήκευση αρχείου σας " dialog.Filter = " αρχείο κειμένου ( * txt . ) "
Εικόνων 3

Δείτε το παράθυρο διαλόγου στο χρήστη . Το πλαίσιο διαλόγου που έχει συσταθεί , αλλά δεν είναι ορατό στο χρήστη μέχρι να εμφανιστεί το χέρι . Ο παρακάτω κώδικας εμφανίζει το παράθυρο για το χρήστη :

dialog.ShowSave

το παράθυρο διαλόγου ανοίγει χρήση αυτού του κώδικα , και όταν ο χρήστης κάνει κλικ στο " Αποθήκευση ", το αρχείο αποθηκεύεται στο σκληρό δίσκο .
Η 4

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

Εάν Err ThenMsgbox " Υπήρξε ένα σφάλμα κατά την αποθήκευση του αρχείου σας " End If
Η
εικόνων