Σύνοψη
Μπορείτε να κάνετε μια κλήση API Windows (διασύνδεση προγραμματισμού εφαρμογών) σε ένα DLL του Microsoft Windows (Βιβλιοθήκη δυναμικής σύνδεσης) για να λάβετε και να ορίσετε την τρέχουσα θέση του δρομέα. Η τρέχουσα θέση μπορεί να ληφθεί με χρήση της συνάρτησης GetCursorPos στο USER32.DLL.
Περισσότερες πληροφορίες
Microsoft Excel δεν διαθέτει την ενσωματωμένη λειτουργικότητα για να λάβετε ή να ορίσετε τη θέση του δρομέα. Ωστόσο, μπορείτε να χρησιμοποιήσετε την πρόταση Declare σε μια Microsoft Excel Visual Basic for Applications μακροεντολή για να καλέσετε μια συνάρτηση Windows της Microsoft για πρόσβαση στην τρέχουσα θέση. Μπορείτε επίσης να χρησιμοποιήσετε μια άλλη συνάρτηση SetCursorPos για να ορίσετε τη θέση του δρομέα. Η συνάρτηση SetCursorPos μπορεί να χρησιμοποιηθεί σε επαναλαμβανόμενη δομή για τη μετακίνηση του δρομέα κατά μήκος της οθόνης.
Microsoft provides examples of Visual Basic for Applications procedures for illustration only, without warranty either expressed or implied, including, but not limited to the implied warranties of merchantability or/or fitness for a particular purpose. Οι Visual Basic διαδικασίες αυτού του άρθρου παρέχονται "ως έχουν" και η Microsoft δεν εγγυάται ότι μπορούν να χρησιμοποιηθούν σε όλες τις περιπτώσεις. Παρόλο που οι επαγγελματίες υποστήριξης της Microsoft μπορούν να σας βοηθήσουν να εξηγήσετε τη λειτουργικότητα μιας συγκεκριμένης μακροεντολής, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν επιπλέον λειτουργικότητα, ούτε θα σας βοηθήσουν να δημιουργήσετε μακροεντολές για να ανταποκρίνονται στις συγκεκριμένες ανάγκες σας. Εάν έχετε περιορισμένη εμπειρία προγραμματισμού, μπορείτε να συμβουλευτείτε μία από τις υπηρεσίες παροχής λύσεων της Microsoft. Οι υπηρεσίες παροχής λύσεων προσφέρουν μια μεγάλη ποικιλία υπηρεσιών που βασίζονται σε χρέωση, συμπεριλαμβανομένης της δημιουργίας προσαρμοσμένων μακροεντολών. Για περισσότερες πληροφορίες σχετικά με τις υπηρεσίες παροχής λύσεων της Microsoft, καλέστε την Υπηρεσία πληροφοριών πελατών της Microsoft στο (800) 426-9400.
ΠΑΡΑΔΕΊΓΜΑΤΑ
-
Πληκτρολογήστε τον παρακάτω κώδικα σε μια νέα λειτουργική μονάδα:
' 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 -
Κάντε κλικ σε οποιοδήποτε σημείο μέσα στο κείμενο της Get_Cursor_Pos ρουτίνας και πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή Get_Cursor_Pos.
Θα εμφανιστεί ένα πλαίσιο μηνύματος με τις συντεταγμένες της τρέχουσας θέσης του δείκτη του ποντικιού. -
Κάντε κλικ σε οποιοδήποτε σημείο μέσα στο κείμενο της Set_Cursor_Pos ρουτίνας και πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή Set_Cursor_Pos.
Ο δρομέας θα μετακινηθεί διαγώνια προς τα κάτω κατά μήκος της οθόνης.
