How can i view where is located the last letter in a RTB?

[DarkX_Greece]

Does anyone know how to find out where the last letter of a Rich Text Box is located?

For example: i have loaded a text into a Rich Text Box and the last letter's location in the Rich Text Box control is: Top: 100 Left: 80

I know that this is too difficult but i need it. If anyone knows something, please send your reply!

[crptcblade]

Do you mean location as in screen location, or as in row/column in the textbox?

[DarkX_Greece]

Screen location! Do you know something that it would help me?

[crptcblade]

Something like this should work...

Option Explicit
 
Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, _
                                                      lpPoint As POINTAPI) _
                                                      As Long
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Sub Command1_Click()
Dim p As POINTAPI
 
    With RichTextBox1
        .SelStart = Len(.Text)
        .SetFocus
        
        Call GetCaretPos(p)
        Call ClientToScreen(.hwnd, p)
    End With
    
    MsgBox "X:" & p.x & "; Y:" & p.y
    
End Sub

The x and y will be in pixels, if it matters to you.

[DarkX_Greece]

Thanks, now how can i move an other control in pixels. You told me how to find the pixels in the screen where the letter is, but if i want to move a control there how can i do it?

[manavo11]

Me.ScaleMode = vbPixels

?

[DarkX_Greece]

Thanks Manavo11!

[manavo11]