Σύνοψη

Μπορείτε να κάνετε μια κλήση API των Windows (διασύνδεση προγραμματισμού εφαρμογών) στο Microsoft Windows DLL (βιβλιοθήκη δυναμικής σύνδεσης) για να λάβουν και να ρυθμίσουν την τρέχουσα θέση του δρομέα. Η τρέχουσα θέση μπορεί να ληφθεί χρησιμοποιώντας τη συνάρτηση GetCursorPos USER32. DLL.

Περισσότερες πληροφορίες

Το Microsoft Excel δεν διαθέτει ενσωματωμένες λειτουργίες για να λάβετε ή να ορίσετε τη θέση του δρομέα. Ωστόσο, μπορείτε να χρησιμοποιήσετε την πρόταση Declare σε ένα Microsoft Excel μακροεντολή Visual Basic for Applications για να καλέσετε μια συνάρτηση Microsoft Windows για να αποκτήσετε πρόσβαση την τρέχουσα θέση. Μπορείτε επίσης να χρησιμοποιήσετε μια άλλη συνάρτηση SetCursorPos για να ορίσετε τη θέση του δρομέα. Η συνάρτηση SetCursorPos μπορεί να χρησιμοποιηθεί σε μια δομή βρόχου για να μετακινήσετε το δείκτη του ποντικιού κατά μήκος της οθόνης. Η Microsoft παρέχει παραδείγματα της Visual Basic για εφαρμογές διαδικασίες μόνο για επεξήγηση, χωρίς να παρέχει καμία εγγύηση, είτε σιωπηρή είτε ρητή, περιλαμβανομένων, ενδεικτικά των σιωπηρών εγγυήσεων εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Οι διαδικασίες της Visual Basic σε αυτό το άρθρο παρέχονται "ως έχουν" και η Microsoft δεν εγγυάται ότι μπορεί να χρησιμοποιηθεί σε όλες τις περιπτώσεις. Ενώ οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης μακροεντολής, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετη λειτουργικότητα, ούτε θα μπορούν σας βοηθήσουν να δημιουργήσετε μακροεντολές για να καλύψουν τις συγκεκριμένες ανάγκες. Εάν διαθέτετε περιορισμένη εμπειρία προγραμματισμού, ίσως θέλετε να διαβουλεύονται με μία από τις υπηρεσίες παροχής λύσεων της Microsoft. Υπηρεσίες παροχής λύσεων προσφέρουν μια ευρεία ποικιλία αμοιβή υπηρεσιών, συμπεριλαμβανομένης της δημιουργίας προσαρμοσμένων μακροεντολών. Για περισσότερες πληροφορίες σχετικά με τις υπηρεσίες παροχής λύσεων της Microsoft, καλέστε την υπηρεσία πληροφοριών πελατών της Microsoft στο (800) 426-9400.

ΠΑΡΑΔΕΊΓΜΑΤΑ

  1. Πληκτρολογήστε τον ακόλουθο κώδικα σε μια νέα λειτουργική μονάδα:

    ' Access the GetCursorPos function in user32.dll      Declare Function GetCursorPos Lib "user32" _      (lpPoint As POINTAPI) As Long      ' Access the GetCursorPos function in user32.dll      Declare Function SetCursorPos Lib "user32" _      (ByVal x As Long, ByVal y As Long) As Long      ' GetCursorPos requires a variable declared as a custom data type      ' that will hold two integers, one for x value and one for y value      Type POINTAPI         X_Pos As Long         Y_Pos As Long      End Type      ' Main routine to dimension variables, retrieve cursor position,      ' and display coordinates      Sub Get_Cursor_Pos()      ' Dimension the variable that will hold the x and y cursor positions      Dim Hold As POINTAPI      ' Place the cursor positions in variable Hold      GetCursorPos Hold      ' Display the cursor position coordinates      MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _         "Y Position is : " & Hold.Y_Pos      End Sub      ' Routine to set cursor position      Sub Set_Cursor_Pos()      ' Looping routine that positions the cursor         For x = 1 To 480 Step 20            SetCursorPos x, x            For y = 1 To 40000: Next         Next x      End Sub
  2. Κάντε κλικ οπουδήποτε μέσα στο κείμενο της ρουτίνας Get_Cursor_Pos και πιέστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή Get_Cursor_Pos. Θα εμφανιστεί ένα πλαίσιο μηνύματος που εμφανίζεται μαζί με τις συντεταγμένες της τρέχουσας θέσης του δείκτη του ποντικιού.

  3. Κάντε κλικ οπουδήποτε μέσα στο κείμενο της ρουτίνας Set_Cursor_Pos και πιέστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή Set_Cursor_Pos.

Ο δρομέας θα μετακινήσει διαγώνια προς τα κάτω κατά μήκος της οθόνης.

Χρειάζεστε περισσότερη βοήθεια;

Αναπτύξτε τις δεξιότητές σας
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Συμμετοχή στο Microsoft Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Πόσο ικανοποιημένοι είστε με την ποιότητα της μετάφρασης;
Τι επηρέασε την εμπειρία σας;

Σας ευχαριστούμε για τα σχόλιά σας!

×