1 Ανοίξτε ένα νέο έργο Standard EXE σε VB6 . Επιλέξτε "Project ", " Εξαρτήματα" από το μενού και κάντε κλικ στο πλαίσιο ελέγχου δίπλα στο " Microsoft Rich Textbox ελέγχου 6.0 ( SP6 ) . " Κάντε κλικ στο κουμπί "OK " για να αποθηκεύσετε και να κλείσετε την οθόνη . Θα χρειαστεί να γράψετε ένα περιτύλιγμα για να αποκτήσετε πρόσβαση στο NET τάξη . " FileStream » . Το περιτύλιγμα θα πρέπει να έχει μια γραμμή που μοιάζει με αυτό : " . Επιστροφή Νέο Ρεύμα ( StreamParameters ) " 2
Επιλέξτε το στοιχείο ελέγχου πλαισίου εμπλουτισμένου κειμένου από τη γραμμή εργαλείων και κάντε κλικ στη φόρμα για να προσθέσετε ένα νέο Rich Text έλεγχο ασφαλείας που ονομάζεται " RichTextBox1 " από προεπιλογή . Μετονομασία σε κάτι ουσιαστικό όπως " rtbNotePad . "
Εικόνων 3
Ορίστε μια μεταβλητή για να κρατήσει έναν αριθμό αρχείου και το όνομα του αρχείου . Η μεταβλητή για τον αριθμό αρχείου θα πρέπει να είναι ένας ακέραιος αριθμός και το όνομα κάτι σαν " iFileNum » και η μεταβλητή για το όνομα του αρχείου θα πρέπει να είναι ένα string και το όνομα κάτι σαν " sMyFile . " " . IFileNum = FreeFile " Αποκτήστε ένα δωρεάν αριθμό αρχείων με κωδικοποίηση
Η
4 Ανοίξτε το αρχείο Notepad και να εμφανίσει τα περιεχόμενα του Rich Text Box :
Open sMyFile Για Input Όπως iFileNum
Τα περιεχόμενα του " sMyFile " μπορεί να διαβαστεί byte με byte ή όλες μαζί . Για να διαβάσετε λίγο-λίγο , αυτή η γραμμή κώδικα " rtbNotepad.text = εισόδου ( 10 , iFileNum ) . " Για να διαβάσετε ολόκληρο το αρχείο , ο κώδικας αυτής της γραμμής " rtbNotepad.text = Input ( LOF ( iFileNum ) , iFileNum ) . " " LOF " είναι το "μήκος του αρχείου" λειτουργία .
5
Προσθέστε ένα κουμπί στη φόρμα και ονομάστε το " cmdSave " και ρυθμίστε τη λεζάντα της "Αποθήκευση". Προσθέσετε, να καταργήσετε ή να επεξεργαστείτε τα περιεχόμενα του " rtbNotePad " και κάντε κλικ στο κουμπί "Αποθήκευση" όταν τελειώσετε. Για να αποθηκεύσετε τα περιεχόμενα του στοιχείου ελέγχου πλαισίου εμπλουτισμένου κειμένου , αυτή η γραμμή κώδικα " Γράψτε iFileNum , rtbNotepad.text . "
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα