Soyez le premier à donner votre avis sur cette source.
Vue 12 933 fois - Téléchargée 1 472 fois
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
24 avril 2015 à 22:05
Merci bien a ce code ,il est vraiment intéressant .
bon continuation.
28 août 2006 à 16:24
25 août 2006 à 10:05
http://www.tgtsoft.com/prod_sxp.php
++
25 août 2006 à 10:02
30 mai 2005 à 18:20
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.