POPUP MENU COMPLET POUR RICHTEXTBOX (COPIER,COLLER,ETC...) popup, menu, richtextbox, sendkeys, contextmenu, Source N°31626

Information sur la source

Catégorie :Divers Classé sous : popup, menu, richtextbox, sendkeys, contextmenu Niveau : Débutant Date de création : 26/05/2005 Date de mise à jour : 26/05/2005 19:40:23 Vu / téléchargé: 4 854 / 972

Auteur : Danyz

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Un inconvenient du RichTextBox est qu'il n'y a pas de menu avec le click droit de la souris. Au début j'avais recréer les fonction copier , coller , couper , etc... , mais j'ai ensuite eu l'idée d'utiliser SendKeys pour appeller les raccourcis clavier de Windows (CTRL+ C , CTRL + V , etc...). De cette maniére les fonctions windows sont employés et le menu reagit exactement pareil que tout autre application , ce qui ne perturberat pas l'utilisateur final ;)
Le menu du click droit fonctionne exactement pareil que celui du TextBox classique.

Source

Private Sub mnuPopup_Click(Index As Integer)
' Le menu utilisé pour le popup est un groupe de controle ,
' on recupère l'index pour assigner une commande au menu.
' En utilisant SendKeys , on evite de programmer les fonctions
' de copier - coller en utlisant les raccourci clavier
' (CTRL + C , CTRL + V , etc...)
'
' Pour rappel : CTRL + Z = Annuler
' CTRL + X = Couper
' CTRL + C = Copier
' CTRL + V = Coller
' CTRL + A = Selectionner tout
Select Case Index
Case 0
SendKeys "^(z)" ' le ^ signifie la touche CTRL
Case 1
' Separateur ' pour pouvoir indexer le menu , il faut que les menus indéxés
Case 2 ' doit aussi indexer les separateurs soit consecutifs, donc on
SendKeys "^(x)"
Case 3
SendKeys "^(c)"
Case 4
SendKeys "^(v)"
Case 5
SendKeys "{DEL}" ' ici c'est la touche SUPPR
Case 6
' Separateur
Case 7
SendKeys "^(a)"
End Select
End Sub
Private Sub RichTextBox1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
' Ici on met Enabled sur True ou False selon l'etat du RichtTextBox
' On active le menu Copier si du texte est selectionné , etc....
'
' Pour que le popup s'affiche sur n'importe quel RichTextBox ,
' ils doivent tous faire partie de meme groupe de controles
With RichTextBox1(Index)
mnuPopup(0).Enabled = True
mnuPopup(2).Enabled = IIf(.SelLength > 0, True, False)
mnuPopup(3).Enabled = IIf(.SelLength > 0, True, False)
mnuPopup(4).Enabled = IIf(Clipboard.GetText <> "", True, False)
mnuPopup(5).Enabled = IIf(.SelLength > 0, True, False)
mnuPopup(7).Enabled = IIf(Len(.Text) > 0, True, False)
If .Locked = True Then
mnuPopup(0).Enabled = False
mnuPopup(2).Enabled = False
mnuPopup(4).Enabled = False
mnuPopup(5).Enabled = False
End If
End With
' Et on affiche le menu si le clik droit est selectionné
If Button = 2 Then
PopupMenu mnuRichTextBox
End If
End Sub

Private Sub mnuPopup_Click(Index As Integer)

' Le menu utilisé pour le popup est un groupe de controle ,
' on recupère l'index pour assigner une commande au menu.
' En utilisant SendKeys , on evite de programmer les fonctions
' de copier - coller en utlisant les raccourci clavier
' (CTRL + C , CTRL + V , etc...)
'
' Pour rappel : CTRL + Z = Annuler
'               CTRL + X = Couper
'               CTRL + C = Copier
'               CTRL + V = Coller
'               CTRL + A = Selectionner tout

Select Case Index
   Case 0
      SendKeys "^(z)"       ' le ^ signifie la touche CTRL
   Case 1
      ' Separateur          ' pour pouvoir indexer le menu , il faut que les menus indéxés
   Case 2                   ' doit aussi indexer les separateurs soit consecutifs, donc on
      SendKeys "^(x)"
   Case 3
      SendKeys "^(c)"
   Case 4
      SendKeys "^(v)"
   Case 5
      SendKeys "{DEL}"      ' ici c'est la touche SUPPR
   Case 6
      ' Separateur
   Case 7
      SendKeys "^(a)"
End Select

End Sub

Private Sub RichTextBox1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)

' Ici on met Enabled sur True ou False selon l'etat du RichtTextBox
' On active le menu Copier si du texte est selectionné , etc....
'
' Pour que le popup s'affiche sur n'importe quel RichTextBox ,
' ils doivent tous faire partie de meme groupe de controles

With RichTextBox1(Index)
   mnuPopup(0).Enabled = True
   mnuPopup(2).Enabled = IIf(.SelLength > 0, True, False)
   mnuPopup(3).Enabled = IIf(.SelLength > 0, True, False)
   mnuPopup(4).Enabled = IIf(Clipboard.GetText <> "", True, False)
   mnuPopup(5).Enabled = IIf(.SelLength > 0, True, False)
   mnuPopup(7).Enabled = IIf(Len(.Text) > 0, True, False)
   If .Locked = True Then
      mnuPopup(0).Enabled = False
      mnuPopup(2).Enabled = False
      mnuPopup(4).Enabled = False
      mnuPopup(5).Enabled = False
   End If
End With



' Et on affiche le menu si le clik droit est selectionné

If Button = 2 Then
   PopupMenu mnuRichTextBox
End If

End Sub

Conclusion

Pour rendre tout ca encore plus beau , utilisez l'OCX de NoFutur pour les menus au look XP (les 2 popup du bas dans la capture d'écran)
>> http://www.vbfrance.com/code.aspx?id=16924

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

frmMain.frm 5 977 octets
frmMain.frx568 octets
PopupMenuRichTextBox.vbp 691 octets
ScreenShot.jpg 121 208 octets

Télécharger le zip

Historique

26 mai 2005 19:40:23 :: -

Sources du même auteur

Toutes les sources de Danyz

Sources de la même categorie

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

Commentaires

Commentaire de max12 le 27/05/2005 01:58:41 administrateur CS

Il existe, il faut le cocher dans les propriétés, je sais plus laquel. Mais il est en anglais par contre.

A+
Commentaire de Danyz le 27/05/2005 02:43:30

ha.... je ne le savais pas
Commentaire de bouv le 27/05/2005 08:21:08

Juste un petit repproche.
Au lieu de
SendKeys "^(c)"
j'aurais préféré
Clipboard.SetText (RichTextBox1.SelText)
Et pour récupérer la valeur
Clipboard.GetText

C'est beaucoup plus propre que des SendKeys.

Bonne prog
++
Commentaire de Danyz le 27/05/2005 19:49:29

En effet, la propriété AutoVerbMenu du RichTextBox doit etre sur True pour afficher le menu contextuel du click droit , j'avais pas vu ca :(
(D'aillleurs le menu est en francais...)

Ma source perde de son interet :P (si ce n'est de pouvoir modifier le menu contextuel)

Bouv j'ai utiliser les SendKeys aussi pour le presse papier pour mettre le moins de code possible.
Quand tu fait un coller par exemple , il faut prendre en compte l'emplacement du curseur , donc decouper la chaine de caractere du richtextbox , inserer le presse papier , si du texte etait selectionné , il faut le remplacer par le presse papier etc...
Tout ca est fait automatiquement en faisant un CTRL + V.
Pour le copier on peut à la limite metttre un clipboard.settext
Commentaire de bouv le 28/05/2005 13:29:45

oui je sais c'est un peu plus complexe. Enfin c'est une opinion perso mais quand je peux eviter les sendkeys je le fait.
Sinon c'est pas mal.

Bonne prog
++
Commentaire de NoFutur le 30/05/2005 18:20:55

Salut,

Moi je crois que ta source ne perd pas de son intérêt car à chaque fois que j'utilise le RichtexBox je me programme toujours un menu contextuel a côté car il m'arrive parfois de me retrouver avec le menu par défaut mais en anglais alors pour éviter les petits défaut je programme le menu comme tu as fait :-)

Ya pas à dire mais ça donne bien avec cet OCX quand même :o)

Bonne prog !
@plus
Commentaire de tuneserapasmonnom le 25/08/2006 10:02:17

j'aimerai savoir comment tu fais pour que ta form soit viollette sur la photo et jolie, différente de d'habitude
Commentaire de Danyz le 25/08/2006 10:05:58

C'est un Theme pour XP, rien à voir avec VB ;)

http://www.tgtsoft.com/prod_sxp.php

++
Commentaire de tuneserapasmonnom le 28/08/2006 16:24:01

merci bien

Ajouter un commentaire

Discussions en rapport avec ce code source

PopUp Menu par Yerffuaj

Popup menu dans DBGrid ou équivalent par lolo

Menus popup dans un MDIChild par Sandro

Popup menu par baba

Popup menu qui ne disparait pas sous Win NT par clafouti

Popup menu et fenetre sans border par PKist

menu popup par joflo

Popup menu par sebleboss2002

Menu popup par rivierem

fermer un popup menu par patrick