vb中的光标怎么设置

在VB中，可以使用SetFocus方法将光标设置到指定的控件上。例如，以下代码将在文本框控件上设置光标：

Private Sub Form_Load()

    Text1.SetFocus  ' 将光标设置到名为Text1的文本框上

End Sub

vb获取光标所在位置

要获取当前光标所在位置，您可以使用API函数GetCursorPos和ScreenToClient来将光标位置从屏幕坐标转换为窗口客户区坐标。以下是一个示例代码，演示如何获取当前光标所在位置：

Private Type POINTAPI

    X As Long

    Y As Long

End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Sub CommandButton1_Click()

    Dim curPos As POINTAPI

    Dim hWnd As Long

    ' 获取当前光标所在位置

    Call GetCursorPos(curPos)

    ' 将光标位置从屏幕坐标转换为窗口客户区坐标

    hWnd = FindWindow("Shell_TrayWnd", vbNullString)

    Call ScreenToClient(hWnd, curPos)

    ' 显示光标所在位置

    MsgBox "X=" & curPos.X & ", Y=" & curPos.Y, vbInformation, "Cursor Position"

End Sub

以上代码将显示一个消息框，其中包含当前光标所在位置的X和Y坐标。请注意，FindWindow函数用于查找任务栏窗口的句柄，并将其传递给ScreenToClient函数以进行坐标转换。