Microsoft Visual Basic Έργα

Visual Basic ( VB ) είναι μια γλώσσα προγραμματισμού που χρησιμοποιείται για την ταχεία ανάπτυξη των προγραμμάτων ηλεκτρονικών υπολογιστών . Μπορείτε να αναπτύξετε αυτά τα προγράμματα μέσα από το Microsoft Word και το Excel . Με αυτόν τον τρόπο σας επιτρέπει να αξιοποιήσει τις πολλές αντικείμενα και τους πόρους κάθε μία από αυτές τις εφαρμογές που έχει (δηλαδή το αντικείμενο ActiveDocument στο Word , ή ενσωματωμένη Ταξινόμηση Excel και Μερικό σύνολο λειτουργιών ) , σε αντίθεση με τη δημιουργία αντικειμένων από scratch.Try τα ακόλουθα έργα για την ανάπτυξη Visual σας βασικές δεξιότητες και παιδείας . Εξερευνήστε τον Αντικείμενο Σειρά
Η

Πληκτρολογήστε το ακόλουθο κείμενο στο ολοκληρωμένο περιβάλλον ανάπτυξης του MS Word ( IDE ) για να δείτε το ουσιαστικό αντικείμενο Σειρά σε δράση . Μπορείτε να εισάγετε το IDE από το Word πατώντας το πλήκτρο " Alt " - " F11 " . Πληκτρολογήστε τον κωδικό σε οποιοδήποτε ανοιχτό χώρο στο παράθυρο κώδικα .

Public Sub spacePgp ( ) Dim r Όπως Σειρά

Set r = Selection.Range

r.Expand wdParagraphr . InsertAfter vbCrLfr.InsertBefore vbCrLf

End Sub

Επιστροφή στο Word ( alt - F11 ), όταν έχετε πληκτρολογήσει το πρόγραμμα , και τοποθετήστε το σημείο εισαγωγής ( AKA κέρσορα ) σε οποιοδήποτε σημείο , ειδικά ένα περιβάλλεται από σκέψεις πάνω και κάτω . Εκτελέστε το πρόγραμμα επιλέγοντας Developer > μακροεντολές , επιλέγοντας το " spacePgp " όνομα μακροεντολής από τη λίστα και κάντε κλικ τρέξιμο . Η μακροοικονομική ένθετα μεταφορά επιστρέφει πάνω και κάτω από το σημείο με το σημείο εισαγωγής . Τα βασικά σημεία του κώδικα για να λάβει γνώση του είναι εκείνα που αναφέρονται για την επιλογή και τις λειτουργίες InsertAfter και InsertBefore . Επιλογή αναφέρεται στην θέση του δρομέα ( AKA το σημείο εισαγωγής ) και τις δηλώσεις Εισαγωγή προσθέσετε τις αποδόσεις μεταφορά .
Εικόνων Δημιουργήστε ένα UserForm έργου
Η

Πληκτρολογήστε το Visual Basic IDE όπως πριν , και επιλέξτε το στοιχείο μενού Insert > UserForm . Στη νέα μορφή , σύρετε δύο κουμπιά εντολών από την εργαλειοθήκη . Στο παράθυρο διαλόγου Ιδιότητες, αλλάξτε το όνομα του ένα κουμπί για να «μπλε », από την άλλη με το " κίτρινο ". Κάντε διπλό κλικ στο κουμπί " κίτρινο " , και εισάγετε τον κωδικό αυτό το πρόγραμμα για την εκδήλωση CommandButton2_Click :

Private Sub CommandButton2_Click ( ) Set r = Selection.Ranger.Expand ( wdSentence ) r.HighlightColorIndex = wdYellowEnd Sub

εικόνων Διπλότυπο Κωδικός Προγράμματος του Μπάτον
Η

Αντιγράψτε τον κώδικα για την CommandButton2_Click ( λειτουργία ) στο Πρόχειρο και να επικολλήσετε τον κώδικα πάνω από την πρώτη φάση της λειτουργίας του , πάνω από τη γραμμή " Private Sub CommandButton2_Click ( ) . " Αλλάξτε την διπλές CommandButton2_Click να διαβάσετε CommandButton1_Click , και να αλλάξετε την wdYellow να wdBlue .

Πλοηγηθείτε σε ένα άλλο μέρος του κώδικα για το έγγραφο αυτό κατά την πρώτη μετακίνηση του δρομέα στο παράθυρο Project. Αναπτύξτε το φάκελο του αντικειμένου του Microsoft Word , κάνοντας κλικ σε αυτό . Αν υπάρχουν διάφοροι φάκελοι που ονομάζεται Microsoft Word αντικείμενο , να επιλέξετε αυτό που εμφανίζεται κάτω από το όνομα του εγγράφου που θέλετε η μακροεντολή να τρέχει μέσα Για παράδειγμα , αν είστε δοκιμές πρόγραμμά σας σχετικά με το κείμενο που περιέχεται στο έγγραφο " MacroStudy , " ο φάκελος θέλετε να επεκτείνετε πατώντας συν της ( + ) πρόσημο θα μοιάζει με αυτό :

έργου ( MacroStudy ) + Microsoft Word Αντικείμενα
εικόνων Γράψτε τον κώδικα που φορτώνει το έντυπο

κάντε διπλό κλικ στο εικονίδιο ThisDocument που εμφανίζεται αφού επεκτείνει το Microsoft Word Objects φάκελο . Αυτή η ενέργεια σας φέρνει σε ένα άλλο παράθυρο κώδικα , όπου θα εισάγετε τον κωδικό που εμφανίζει τη φόρμα που δημιουργήσατε . Αυτός είναι ο κωδικός για να εισέλθουν:

Public Sub colorForm ( ) UserForm1.ShowEnd Sub

Επιστροφή στο Word , και τοποθετήστε το σημείο εισαγωγής σε κάθε πρόταση στο κείμενο του εγγράφου . Ξεκινήστε το πρόγραμμα σας επιλέγοντας Developer > μακροεντολές και στη συνέχεια επιλέγοντας " colorForm ", ακολουθούμενο από το κουμπί Run . Εμφανίζεται φόρμα σας . Κάντε κλικ είτε μπλε ή κίτρινο κουμπί και να παρακολουθήσουν την πρόταση που περιέχει το χρώμα αλλαγής σημείο εισαγωγής .
Η
εικόνων