Τρόπος απενεργοποίησης του ποντικιού Wheel σε MS Access 2003

Ο τροχός κύλισης σε ένα ποντίκι είναι χρήσιμη σε ορισμένες εφαρμογές του υπολογιστή, αλλά μπορεί να προκαλέσει προβλήματα στην Microsoft Access . Αν τη δημιουργία εφαρμογών βάσεων δεδομένων με την Access, ίσως να είναι εξοικειωμένοι με τον τρόπο που ο τροχός κύλισης μπορεί να προκαλέσει τα αρχεία με το ποδήλατο πολύ γρήγορα ή με το ποδήλατο πριν από την είσοδο των δεδομένων είναι πλήρης . Με την απελευθέρωση της Access 2007 , ο τροχός κύλισης είναι απενεργοποιημένη από προεπιλογή κατά την εφαρμογή . Στις εκδόσεις πριν από την Access 2007 , συμπεριλαμβανομένης της Access 2003 , θα πρέπει να απενεργοποιήσετε με μη αυτόματο τρόπο τη δυνατότητα τροχό κύλισης με μια ενότητα ή κώδικα VBA τοποθετείται σε μια διαδικασία συμβάντος ποντικιού . Αυτό το άρθρο περιγράφει δύο μεθόδους για να επιτευχθεί αυτό . Τα πράγματα που θα χρειαστείτε
Υπολογιστής με πρόσβαση στο Internet Ξενοδοχεία
Παρουσίαση Περισσότερες οδηγίες
Καλέστε ένα αρχείο DLL από Κωδικός Χειροκίνητη
Η 1

Κατεβάστε το δείγμα βάσης δεδομένων χωρίς MouseWheelHookA2k και τον κώδικα από η ιστοσελίδα Lebans Holdings ( βλ. Πόρων για τη σύνδεση ) . Εξάγετε το αρχείο σε ένα φάκελο στον υπολογιστή . 2

αντιγραφή και επικόλληση το αρχείο " Mousehook.dll " στο φάκελο με το αρχείο της Access MDB .
Εικόνων 3

Ανοίξτε τη βάση δεδομένων της Access . Βρείτε και ανοίξτε τη φόρμα " StartUp " στη λίστα των εντύπων για τη βάση δεδομένων σας (έντυπο έναρξης σας μπορεί να έχει ένα διαφορετικό όνομα ) .
Η

4 Κάντε κλικ στο " Εργαλεία Form Design " γραμμή εργαλείων και τη δημιουργία ενός "Command κουμπί " οπουδήποτε στη φόρμα σας .
5

κάντε δεξί κλικ στο κουμπί Command και κάντε κλικ στο " Ιδιότητες "επιλογή στο αναδυόμενο μενού . Μετακινηθείτε προς τα κάτω στο " Με το κλικ " και κάντε διπλό κλικ στο κενό πεδίο για να ανοίξει το Visual Basic for Applications ( VBA ) συντάκτης
Η 6

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο πρόγραμμα επεξεργασίας VBA : .

« Γυρίστε το MouseWheel Off

Dim blRet Όπως Boolean

blRet = MouseWheelOFF
Η

7 Κλείστε το πρόγραμμα επεξεργασίας VBA .
8

Δημιουργήστε ένα άλλο "Command Button " σε οποιαδήποτε άλλη μορφή στη βάση δεδομένων σας για να γυρίσει τον τροχό κύλισης πίσω , πριν να βγείτε από τη βάση δεδομένων . Εισάγετε τον παρακάτω κωδικό πίσω από τον Button Command στο " Με το κλικ " Κωδικός :

« Γυρίστε το MouseWheel Στις

Dim blRet Όπως Boolean

blRet = MouseWheelON


Εισαγωγή Ενότητα στην βάση δεδομένων της Access
Η 9

Κατεβάστε τη βάση δεδομένων Δείγμα δωρεάν basMouseHook και ο κώδικας από την ιστοσελίδα EverythingAccess.com ( βλ. Πόρων για τη σύνδεση ) . Αποθηκεύστε τη βάση δεδομένων σε ένα φάκελο στον υπολογιστή σας .
Η 10

Ανοίξτε τη βάση δεδομένων σας σε Access . Κάντε κλικ στην επιλογή "File /Import " και στη συνέχεια επιλέξτε " Modules ". Αναζητήστε το φάκελο όπου έχετε αποθηκεύσει τη βάση δεδομένων και την εισαγωγή basMouseHook τη λειτουργική μονάδα κώδικα basMouseHook από το δείγμα βάσης δεδομένων .
Η 11

Ανοίξτε το έντυπο " StartUp " στο παράθυρο μορφές σχεδιαστών . Κάντε δεξί κλικ στη φόρμα , στη συνέχεια, κάντε κλικ στο "Ιδιότητες " επιλογή στο αναδυόμενο μενού .
Η 12

Μετακινηθείτε προς τα κάτω στο " OnOpen " διαδικασία συμβάντος και κάντε διπλό κλικ για να εισέλθουν στο πρόγραμμα επεξεργασίας VBA .
Η 13

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο " OnOpen " διαδικασία συμβάντος :

Private Sub Form_Open ( Cancel As Integer )

Στατική MouseHook As Object

Set MouseHook = NewMouseHook ( Me )

End Sub
Η
εικόνων