请教大家，如何得到richtext当前输入点的屏幕坐标？

Question

用GetCursorPos得到当前鼠标位置,然后再转换为屏幕坐标

Answer 1

呵呵~~忘了一个函数
用ClientToScreen函数把客户区坐标转换成屏幕坐标

Answer 2

不用，直接使这个就行GetCaretPos（）

Answer 3

GetCursorPos返回的是屏幕坐标
不需要再ClientToScreen了吧？

Answer 4

如果是输入点的相对位置,建议参考如下代码:
aa是记录它的位置Dim aa As Integer
Private Sub Command1_Click()
RichTextBox1.SelStart = aa
RichTextBox1.SelLength = 0
MsgBox RichTextBox1.SelFontSizeRichTextBox1.SetFocus
RichTextBox1.SelStart = aa
End SubPrivate Sub Command2_Click()
RichTextBox1.SelFontSize = 20
End SubPrivate Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
aa = RichTextBox1.SelStart
End Sub