1 Ανοίξτε το Microsoft Access 2003 . Δημιουργήστε μια νέα βάση δεδομένων με την επιλογή " New Database " και στη συνέχεια επιλέξτε "Δημιουργία . " Κάντε κλικ στην καρτέλα " Φόρμες" και επιλέξτε " Νέο" για να δημιουργήσετε μια νέα φόρμα . 2
Κάντε κλικ στο μενού "Εισαγωγή" , και στη συνέχεια κάντε κλικ στο κουμπί " ελέγχου ActiveX . " Κάντε διπλό κλικ στο " Microsoft ProgressBar Control" για να προσθέσετε το στοιχείο ελέγχου . Προσθέστε ένα κουμπί εντολής επιλέγοντάς το από το μενού « Εργαλεία » . Αριστερό κλικ στη φόρμα και σύρετε το ποντίκι σας, ενώ κρατώντας πατημένο το κουμπί του ποντικιού . Προσθέσετε μια ετικέτα στη φόρμα χρησιμοποιώντας την ίδια τεχνική . Κάντε δεξί κλικ στο νέο κουμπί εντολής , και στη συνέχεια επιλέξτε "Build γεγονότος . " Επιλέξτε " δόμησης κώδικα " από το παράθυρο διαλόγου " Επιλογή λειτουργίας δόμησης " . Κάντε κλικ στο " OK".
Εικόνων 3
αντιγραφή και επικόλληση του παρακάτω στο παράθυρο " Module" μέσα στην διαδικασία κουμπί εντολής για να δηλώσει τις μεταβλητές που θα χρησιμοποιήσετε :
Dim prg Όπως ProgressBar
Dim IntValue Όπως Long
Dim fmin Όπως String Dim
fmax Όπως String Dim
fstep Όπως String Dim
strComplete Όπως String
4
Πληκτρολογήστε το παρακάτω, για να ορίσετε το ελάχιστο, μέγιστο και το βήμα για την πρόοδο του ελέγχου bar σας :
fmin = 1
fmax = 20
fstep = 2
5
Πληκτρολογήστε το παρακάτω, για να καθορίσει το " prg " μεταβλητή ως τον έλεγχο γραμμή προόδου :
Set prg = Me ProgressBar0.Object
6
Πληκτρολογήστε τα ακόλουθα στο βρόχο από την τιμή min με την μέγιστη τιμή κατά την ενημέρωση για την πρόοδο του ελέγχου bar :
Do
IntValue = IntValue + fstep
Αν IntValue > = prg.Max τότε
IntValue = prg.Max
End If
prg.Value = IntValue
strComplete = Format ( ( prg.Value /prg.Max ) * 100 , " # #" ) & _
" % ολοκλήρωσης "
label1.Caption = strComplete
DoCmd.RepaintObject
Loop Ενώ IntValue δεξιό κλικ στη φόρμα και, στη συνέχεια, κάντε κλικ στο " Προβολή φόρμας . " Κάντε κλικ στο " Button1 ", το οποίο θα εκτελέσει τον κώδικα διαδικασία για να γεμίσει το στοιχείο ελέγχου ActiveX ProgressBar .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα