Position du curseur dans une richtextboxRésolu

Question

Bonjour,

je voudrais savoir comment obtenir la position X et Y du curseur (pas de la souris) dans une richtextbox.

Merci.

PCPT · Accepted Answer

'


'


'   *- RETOURNE LA POSITION 
(LIGNE) DU CURSEUR -*


Public Function 
GetRowCaret() 
As Long

    GetRowCaret = oRtb.GetLineFromChar(oRtb.SelStart) + 1
End Function
'
'
'   *- RETOURNE LA POSITION (COLONNE) DU CURSEUR 
-*
Public Function GetColCaret() As Long
    GetColCaret = oRtb.SelStart - SendMessage(oRtb.hwnd, EM_LINEINDEX, 
GetRowCaret - 1, 
ByVal 0&)
End Function

PCPT · Answer

salut,

beh dès le premier MouseMove reçu, tu les as dans les arguments retournés...
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

LandTech · Answer

Bonjour,

je ne veut pas la position de la souris, mais celle du curseur.

Merci quand même.

PCPT · Answer

alors aucun rapport avec X Y !

il y a bien une solution mais çà sera AUSSI par API (comme ton précédent post) alors au choix?..

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

LandTech · Answer

Bonjour,

Tu peux me la donner on sais jamais.

Merci.

LandTech · Answer

Merci,

Mais, comment tu obtient SendMessage()

LandTech · Answer

Et, quand je mets la richtextbox.hwnd ça ne marche pas.

PCPT · Answer

"çà ne marche pas" ne veut rien dire pour moi
et SendMessage est une API à déclarer comme toute API
(remplacer Long par Integer pour DotNet)
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

LandTech · Answer

C'est bon, pour SendMessage j'ai trouvé, mais pourrais-tu m'expliquer
comment tu as EM_LINEINDEX et [RichTextBox].hwnd

Merci

PCPT · Answer

remplace oRtb par le nom de ta richtextbox
Private Const 
EM_LINEINDEX As Long = &HBB

(possible qu'il faille déclarer as integer aussi...)

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Position du curseur dans une richtextbox

10 réponses

Votre réponse

Discussions similaires