กระบวนงาน Visual Basic ที่ไปยังตำแหน่งเคอร์เซอร์รับ/เซ็ต


สรุป


คุณสามารถทำการเรียก api ของ Windows (โปรแกรมประยุกต์อินเทอร์เฟซเขียนโปรแกรม) ไปยัง Microsoft Windows DLL (การเชื่อมโยงแบบไดนามิกไลบรารี) และกำหนดตำแหน่งเคอร์เซอร์ปัจจุบัน ตำแหน่งปัจจุบันสามารถได้รับ โดยใช้ฟังก์ชัน GetCursorPos ใน USER32 DLL

ข้อมูลเพิ่มเติม


Microsoft Excel มีฟังก์ชันในตัวที่สามารถเรียกดู หรือตั้งค่าตำแหน่งเคอร์เซอร์ อย่างไรก็ตาม คุณสามารถใช้คำสั่ง Declare ใน Microsoft Excel Visual Basic สำหรับแมโครที่โปรแกรมประยุกต์จะเรียกใช้ฟังก์ชันของ 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
เคอร์เซอร์จะเลื่อนตามแนวทแยงมุมลงผ่านหน้าจอ