怎样获得RichTextBox里面文本的最后一个字符的位置！

Question

Dim test() As String
    Dim row, col As Long
    
    test() = Split(RichTextBox1.Text, vbCrLf)
    row = UBound(test) + 1
    col = Len(test(row - 1))获取Row和COlumn了

Answer 1

是不是要这个：lPos = rtfMain.SelStart
lxy = SendMessage(rtfMain.HWnd, EM_POSFROMCHAR, lPos, 0)    xPixels = (lxy And &HFFFF&)
    yPixels = (lxy \ &H10000) And &HFFFF&
    
    xPixels = xPixels * Screen.TwipsPerPixelX
    yPixels = yPixels * Screen.TwipsPerPixelY

Answer 2

rtf.SelStart =len(rtf.text)-1