OVH Cloud OVH Cloud

sub mousemove

2 réponses
Avatar
mimi
bonjour,
j'ai une proc=E9dure mousemove o=F9 je regarde tout le temps=20
sur quel genre de texte se trouve mon curseur (pour=20
modifier le curseur selon le texte). Le probl=E8me c'est=20
qu'il y a un petit carr=E9 noir sur le texte(dans un=20
richtextbox), qui suit le mouvement de la souris. Est-ce=20
possible de l'enlever? et comment?
merci
mimi

2 réponses

Avatar
ng
Salut,

Qu'entends-tu par "un petit carré noir" ?!

S'il s'agit de la sélection, tu peux l'enlever comme ceci :

RichTextBox1.SelStart = 0

Ou même :

RichTextBox1.SelStart = Len(RichTextBox1.Text)

--
Nicolas.

Les outils indispensables :

FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Merci de répondre sur le groupe pour en faire profiter tout le monde.
"mimi" a écrit dans le message de
news: 0efc01c3df2d$b39c4070$
bonjour,
j'ai une procédure mousemove où je regarde tout le temps
sur quel genre de texte se trouve mon curseur (pour
modifier le curseur selon le texte). Le problème c'est
qu'il y a un petit carré noir sur le texte(dans un
richtextbox), qui suit le mouvement de la souris. Est-ce
possible de l'enlever? et comment?
merci
mimi
Avatar
François Picalausa
Bonjour/soir,

En complément à la réponse de ng, voici un code permettant de masqeur le
caret (petit rectangle noir clignotant indiquant la position d'édition dans
le texte):

Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub RichTextBox1_SelChange()
If Check1.Value = vbUnchecked Then
HideCaret RichTextBox1.hwnd
Else
ShowCaret RichTextBox1.hwnd
End If
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"mimi" a écrit dans le message de
news:0efc01c3df2d$b39c4070$
bonjour,
j'ai une procédure mousemove où je regarde tout le temps
sur quel genre de texte se trouve mon curseur (pour
modifier le curseur selon le texte). Le problème c'est
qu'il y a un petit carré noir sur le texte(dans un
richtextbox), qui suit le mouvement de la souris. Est-ce
possible de l'enlever? et comment?
merci
mimi