学步园

在VB6中利用API对光标进行编程：

Option Explicit<br /> Private Type POINTAPI<br /> X As Long<br /> Y As Long<br /> End Type<br /> Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long<br /> Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long<br /> Public Function GetXCursorPos() As Long<br /> Dim pt As POINTAPI<br /> GetCursorPos pt<br /> GetXCursorPos = pt.X<br /> End Function<br /> Public Function GetYCursorPos() As Long<br /> Dim pt As POINTAPI<br /> GetCursorPos pt<br /> GetYCursorPos = pt.Y<br /> End Function</p> <p>'得到光标在屏幕中的位置<br /> Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br /> Label1.Caption = "X Screen Position = " & GetXCursorPos<br /> Label2.Caption = "Y Screen Position = " & GetYCursorPos<br /> End Sub<br /> '隐藏光标<br /> Private Sub Command1_Click()<br /> ShowCursor False<br /> End Sub<br /> '显示光标<br /> Private Sub Command2_Click()<br /> ShowCursor True<br /> End Sub<br />

在VB.NET中利用Cursor 类很简单地对光标进行编程：(可以获取和设置光标的位置，设置光标的形状，显示和隐藏光标)

'隐藏光标<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Cursor.Hide()<br /> End Sub<br /> '得到光标在屏幕中的位置<br /> Private Sub Form2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove<br /> Me.Label1.Text = "X Screen Position = " & Cursor.Position.X<br /> Me.Label2.Text = "Y Screen Position = " & Cursor.Position.Y<br /> End Sub<br /> '显示光标<br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> Cursor.Show()<br /> End Sub

很简单的东西，更多的实例，可以参考API手册和Framework的文档。