VB中判断光标位置的问题

你这代码不完整吧？应该还有三个事件过程：

Private Sub Text1_GotFocus()

    which = 1    '当Text1获得焦点时，就把which的值设为1。下面类推。

End Sub

Private Sub Text2_GotFocus()

    which = 2

End Sub

Private Sub Text3_GotFocus()

    which = 3

End Sub

或者是：

Private Sub Text1_Click()

    which = 1    '当用鼠标点击Text1时，就把which的值设为1。下面类推。

End Sub

Private Sub Text2_Click()

    which = 2

End Sub

Private Sub Text3_Click()

    which = 3

End Sub

你把前三句删掉就行，不用判断位置，直接设置 你要输入的自定义的值就行。

（第一句也没用，既然光标在ComboBox里闪动，它当然已经获得了焦点）

Combo1SelText = "B"

放三个文本框，text1你输入文字，text2,text3显示坐标：

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text2Text = X '横坐标

Text3Text = Y '纵坐标

End Sub

TextBoxBaseGetPositionFromCharIndex 方法

检索控件内指定字符索引处的位置。

此方法使您得以确定特定字符索引在控件中的位置。此方法可用于诸如显示快捷菜单项或控件中某个单词的帮助信息等任务。例如，如果希望当用户在控件中的单词上右击时向用户显示选项菜单，则可以使用此方法确定单词的位置以正确显示 ContextMenu 控件。

ControlPointToScreen 方法

将指定工作区点的位置计算成屏幕坐标。

以上就是关于VB中判断光标位置的问题全部的内容，包括:VB中判断光标位置的问题、vb 怎样获得Combobox文本框的光标位置、vb怎样获取文字输入光标的屏幕坐标等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！