Πώς να δημιουργήσετε ένα πρόγραμμα Notepad - Visual Basic 6.0

Με λίγη δουλειά , μπορείτε να γράψετε τη δική σας έκδοση του λογισμικού υπολογιστή notepad στον γλώσσας προγραμματισμού Visual Basic . Αυτό θα επιτρέψει στο χρήστη να εισάγει , να εκτυπώσετε και να αποθηκεύσετε το κείμενο όπως ακριβώς το πρόγραμμα Σημειωματάριο της Microsoft κάνει . Η εφαρμογή μπορεί να είναι τόσο απλό όπως περιγράφεται εδώ ή περισσότερο σύμπλοκο με πρόσθετα χαρακτηριστικά , δημιουργία λογισμικού που είναι παρόμοιο με ένα πρόγραμμα επεξεργασίας κειμένου . Η εφαρμογή χρησιμοποιεί κοινούς ελέγχους και διαλόγου που έχουν ήδη κατασκευαστεί σε Visual Basic . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο της Visual Basic 6.0 ( VB6 ) με τη χρήση της « Standard EXE » πρότυπο . Κάντε κλικ στο "Αρχείο" στο μενού πάνω VB6 και επιλέξτε " Save Project As." Το πρώτο μήνυμα που σας ρωτά για το όνομα της φόρμας . Ονομάστε το έντυπο " MyNotepad " και κάντε κλικ στο " OK . " Το επόμενο μήνυμα που σας ρωτά για το όνομα του έργου . Ονομάστε το " Σημειωματάριο " και κάντε κλικ στο "OK". 2

Κάντε κλικ στο " Project" στο μενού πάνω VB6 και επιλέξτε "Στοιχεία ". Μετακινηθείτε προς τα κάτω στη λίστα των στοιχείων μέχρι να δείτε το " Microsoft Κοινή Dialog ελέγχου 6.0 . "Κάντε κλικ στο πλαίσιο ελέγχου δίπλα σε αυτό για να προσθέσετε αυτό το στοιχείο ελέγχου , και στη συνέχεια κάντε κλικ στο κουμπί " OK ". κάντε διπλό κλικ σε αυτό το στοιχείο ελέγχου , το οποίο θα πρέπει να είναι το τελευταίο στοιχείο στην εργαλειοθήκη στα αριστερά , για να το προσθέσετε στη φόρμα .
εικόνων 3

Εντοπίστε το πλαίσιο Properties στα δεξιά της οθόνης και κάντε διπλό κλικ στο πρώτο στοιχείο , " ( Name ) . " Αλλάξτε το προεπιλεγμένο όνομα σε " MyNotepad . \\ " κάντε διπλό κλικ στο " Λεζάντα " περιουσία και να αλλάξετε αυτό το όνομα σε "Σημείωση Pad μου . \\ "
Η

4 κάντε διπλό κλικ στο εικονίδιο Πλαίσιο κειμένου στον πίνακα εργαλείων στο αριστερό μέρος της οθόνης για να προσθέσετε αυτό το έντυπο . Κάντε κλικ για το νέο έλεγχο και να χρησιμοποιήσετε το drag λαβές για να διευρύνει το πλαίσιο κειμένου σε σχεδόν το μέγεθος της ίδιας της μορφής . Εντοπίστε το στοιχείο ελέγχου πλαισίου κειμένου στο πλαίσιο Ιδιότητες στα δεξιά της οθόνης και κάνετε αυτές τις αλλαγές :

( Name ) = MyNote
Multiline = True
ScrollBars = 3 - δύο
5

Κάντε κλικ στο " Εργαλεία" στο μενού πάνω VB6 και επιλέξτε " menu Editor . " Κάντε αυτές τις αλλαγές στο παράθυρο Επεξεργαστής μενού που ανοίγει , κάντε κλικ στο "Next" μετά από κάθε του πρώτου δύο μενού και "Exit ", μετά την τελευταία , όπως φαίνεται παρακάτω :

Caption = Εκτύπωση
Όνομα = mnuPrint
Κάντε κλικ στο κουμπί "Next "
Caption = Αποθήκευση
Όνομα = mnuSave
Κάντε κλικ στο κουμπί "Next"
Caption = Έξοδος
Όνομα = mnuExit
Κάντε κλικ στο " OK "

6

Ανοίξτε το παράθυρο κώδικα κάνοντας κλικ στο "Προβολή" και στη συνέχεια " Κώδικας " στο μενού VB6 κορυφαίο επίπεδο . Πληκτρολογήστε τις ακόλουθες γραμμές κώδικα ακριβώς όπως εμφανίζονται παρακάτω :

Sub Form_Load ( )
SaveMyNote End Sub
Λειτουργία ( MyNote Όπως Ελέγχου , CommonDialog1 Όπως CommonDialog , Όνομα As String ) Όπως Boolean
Dim fNum As Integer
On Error GoTo ExitNow
CommonDialog1.Filter = \\ " αρχεία κειμένου