1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " , κάντε κλικ στο " Visual Basic " και κάντε κλικ στο μενού "Εισαγωγή" . Κάντε κλικ στο " UserForm " για να εισάγετε μια νέα μορφή και κάντε κλικ στο " σύνθετο πλαίσιο " για να το επιλέξετε από το παράθυρο Εργαλειοθήκη . Κάντε κλικ φόρμα για να εισαγάγετε ένα σύνθετο πλαίσιο . Προσθέστε ένα κουμπί εντολής χρησιμοποιώντας την ίδια τεχνική . 2
διπλό κλικ στο κουμπί εντολής για να δημιουργήσετε ένα συμβάν κλικ το κουμπί . Δημιουργήστε μια καθολική μεταβλητή σε αυτή την ενότητα κώδικα , προσθέτοντας την ακόλουθη γραμμή κώδικα στην κορυφή της ενότητας:
Δημόσια txtBoxVal As Integer
εικόνων 3
Προσθέστε τον ακόλουθο κώδικα για να πάρει την τιμή στο πλαίσιο κειμένου και να το προσθέσετε στην προηγούμενη τιμή , χρησιμοποιώντας την παγκόσμια μεταβλητή :
txtBoxVal = txtBoxVal + Me.TextBox1.Text
Η 4
Εμφάνιση το αποτέλεσμα χρησιμοποιώντας ένα . πλαίσιο μηνύματος
MsgBox " το άθροισμα των αξιών που έχουν εγγραφεί είναι : " & txtBoxVal
5
διπλό κλικ στο " UserForm1 " από το παράθυρο εξερευνητής του έργου και κάντε κλικ στο " F5 " για να εκτελέσετε το πρόγραμμα . Πληκτρολογήστε έναν αριθμό στο πλαίσιο κειμένου και κάντε κλικ στο κουμπί για να εμφανιστεί το αποτέλεσμα . Πληκτρολογήστε ένα διαφορετικό αριθμό στο πλαίσιο κειμένου και κάντε κλικ στο κουμπί για να εμφανίσετε το άθροισμα των τιμών που εγγράφονται στο στοιχείο ελέγχου πλαισίου κειμένου .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα