mot sous sourisRésolu

Question

Bonjour
est t-il possible de détecté le mot sous la souris dans un richtextbox sans le sélectioné ?
j'ai chercher sur le site mais j'ai pas trouvé une source pour richtextbox 
merci d'avance

Renfield · Accepted Answer

Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim oRichEdit As IRichEditOle
Dim oTextDocument As ITextDocument
Dim tPt As POINT
    tPt.x = ScaleX(x, ScaleMode, vbPixels)
    tPt.y = ScaleY(y, ScaleMode, vbPixels)
    ClientToScreen RichTextBox1.hwnd, tPt
    SendMessage RichTextBox1.hwnd, EM_GETOLEINTERFACE, 0, oRichEdit
    Set oTextDocument = oRichEdit
    With oTextDocument.RangeFromPoint(tPt.x, tPt.y)
        .Expand rtfWholeWord
        CcLblOveredWord.Caption = .Text
    End With
End Sub


Renfield - Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

salut,

rien trouvé en cherchant?

j'ai trouvé cette source en 2 essais (moins de 15 secondes....) : 
http://www.vbfrance.com/codes/DETECTER-MOT-SOUS-SOURIS-SANS-CLIQUER-MOUSEOVER-RICHTEXTBOX_20813.aspx

,

[hr]

Claiyah · Answer

t'énerve pas pcpt pense juste à bien lire ma question "... le sélectionné" par-contre celle que tu me montre utilise le span donc sélection du mot

Claiyah · Answer

"sans" lol

PCPT · Answer

la selection ici est pour l'exemple

tu peux très bien utiliser le span du itextdocument de l'autre jour, fait un effort !

(et dit pas que t'as pas trouvé, tout comme l'autre jour t'as juste pas cherché )

Claiyah · Answer

ils sont zolie tes smileys pcpt

cs_Jack · Answer

lol, il me semblait bien avoir déjà travaillé la dessus ...

Claiyah · Answer

salut
tu a une source jack ?

ucfoutu · Answer

EZt ?
Tu ne l'as pas vue 'lien plus haut) ?
http://www.vbfrance.com/codes/DETECTER-MOT-SOUS-SOURIS-SANS-CLIQUER-MOUSEOVER-RICHTEXTBOX_20813.aspx 
Et .... elle est déposée par .... Jack, précisément ! 



____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Claiyah · Answer

ahhh
ouiii pcpt ma forcer à le voir plusieurs fois

ucfoutu · Answer

Je te l'ai dit dans une autre discussion : question de lecture, d'analyse et de compréhension ... (arrête de te jeter la tête en avant sans faire cela ===>> tu y gagneras et nous tous également. Merci).


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Claiyah · Answer

tu peut me dire de quoi tu parle dans cette discussion ? 
je t'avais aussi répondu dans l'autre discussion et c'est valable pour celle ci aussi

PCPT · Answer

quelle énergie de perdue...

faites vous passer vos petits mots par MP, ici n'est pas l'endroit

(j'aurai bien ajouté qu'ici était plus la place aux questions/réponses sur le sujet mais de toute évidence c'est plus un espace d'attente de tout cuit, je doute donc qu'il y ait une suite favorable pour quiconque....)

Claiyah · Answer

Désolé il c'est plongé dans ma discussion pour faire des petites remarque sans intérêt
je m'excuse

Claiyah · Answer

il ya une erreur ici "ClientToScreen RichTextBox1.hwnd, tPt"

Renfield · Answer

ce code marche au poil, quand on déclare bien les APIs qui vont bien...

une erreur.... quelle erreur  ?

Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINT) As Long

Private Type POINT
    x As Long
    y As Long
End Type

et nom de la richTextbox a adapter, bien évidemment

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Claiyah · Answer

je me sens très con j'ai pas déclarer l'api
si tu continu à m'aider comme sa je vais finir par tomber amoureux de toi renfield lol je déconne
un grand merci pour toi et ceux qui m'ont aider
a plus

Renfield · Answer

exemple ici


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Mot sous souris

18 réponses

Votre réponse

Discussions similaires