Redimensionner RTBox par double click gaucheRésolu

Question

Bonjour,

En VB6, la RTBox répond à un double click de la souris.
Cela me permettait de redimensionner ma richtextbox grâce au code ci-dessous :

If elargi = False Then 'si la la hauteur de la fenetre n'est pas agrandi, donc elargi = false
            Hauteur = Me.rtb.Height
            Me.rtb.Height = System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Height
            elargi = True
        Else
            Me.rtb.Height = Hauteur
            elargi = False
        End If

En VBnet, la RTBox ne semble pas répondre à un double click

Me le confirmez-vous ?
Si oui, y a t'il une solution ? (je ne souhaite pas rajouter de boouton de commande).

merci de votre avis

ucfoutu · Answer

Bonjour,
un petit tour ici :
http://msdn.microsoft.com/fr-fr/library/ms234980%28v=vs.90%29.aspx
m'apprend (bien que je n'aie pas, moi, VB.Net) comment s'appelle sous VB.net l'évènement dblclick d'une richtextbox sous VB6....
Mais même sans ce "petit tour" :
Le seul examen de ceci :
http://msdn.microsoft.com/fr-fr/library/system.windows.forms.richtextbox%28v=vs.110%29.aspx
que tu as, toi, sur ta machine, m'apprend tous les évènements que subit ce contrôle sous VB.Net . Et le nom de celui qui t'intéresse y est plus que "parlant" !

collargol123 · Answer

Bonjour,

J'avais déjà pris connaissance du lien que vous m'avez signalé.
Il ne semble pas avoir d'évenement associé à un double click sur la RTBox

Double-clic avec le bouton gauche de la souris --> aucxun sur une RTbox

par ailleurs, il informe d'une syntaxe :

'Déclaration
Public Event DoubleClick As EventHandler
'Utilisation
Dim instance As Control
Dim handler As EventHandler

AddHandler instance.DoubleClick, handler

Je ne sais pas comment utiliser cette syntaxe.
Ou la placer dans la class ?
Dans un module ?

ucfoutu · Answer

Que racontes-tu là ?
Et pourquoi chercher à créer un évènement qui existe déjà et revêt la forme d'une procédure évènementielle du genre :

Private Sub nom_du_contrôle_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles nom_du_control.DoubleClick
 
Tu m'inquiètes, là ...

collargol123 · Answer

Private Sub nom_du_contrôle_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles nom_du_control.DoubleClick


je l'avais deja mis dans ma class avant je sollicite votre avis. Mais cela ne fonctionne pas ...

collargol123 · Answer

cela fonctionne en vbnet 10
pas en versdion 2003

Redimensionner RTBox par double click gauche

5 réponses

Votre réponse