Cannot get EM_CHARFROMPOS to work with TextBox

[ZraZ]

I'm so tired.

really.

To get the character nearest to the mouse pointer, in my RichTextBox, I send the EM_CHARFROMPOS message.

It works just fine.

But when I try to do the same thing in my TextBox, it doesn't matter how much I yell or cry or change LPARAM's value... it just won't give me anything else then 0 in return.

Help?

Anyone?

[Megatron]

The LoWord of the return value is the x pos and the HiWord is the y pos.

[Serge]

Add Textbox and a Label:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Type POINTL
        x As Long
        y As Long
End Type
Private Const EM_CHARFROMPOS = &HD7
 
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim pt As POINTL
    Dim lngRet As Long
    
    pt.x = x / Screen.TwipsPerPixelX
    pt.y = y / Screen.TwipsPerPixelY
    
    lngRet = SendMessage(Text1.hwnd, EM_CHARFROMPOS, ByVal 0&, ByVal pt.x)
    Label1.Caption = lngRet
End Sub

[ZraZ]

Thanks!
Apperently the EM_CHARFROMPOS constant I used with my RichTextBox wasn't valid for the TextBox

Works only with RTB:
Private Const WM_USER=&H400
Private Const EM_CHARFROMPOS=WM_USER + 39

Works with both RTB & TextBox
Private Const EM_CHARFROMPOS=&HD7