|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 POPUP MENU COMPLET POUR RICHTEXTBOX (COPIER,COLLER,ETC...)
 Information sur la source
 Description
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 !
 Télécharger le zip
 Historique
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
PopUp Menu [ par Yerffuaj ]
Bonjour, je ne connais pas très bien VB mais je fais un stage sous VB6 et il faudrait que j'arrive à augmenter la taille de police des popup menu qui
Popup menu dans DBGrid ou équivalent [ par lolo ]
Bonjour,je débute en VB6 et je voudrais faire un formulaire de visualisation/modification de données sur une table du style:MaTable: ID carac1 c
Menus popup dans un MDIChild [ par Sandro ]
Hello... je vais essayer de faire court :-)J'ai un p'ti soft MDI. Dans une feuille Child, je veux faire apparaître un menu Popup. J'y ajoute donc un m
Popup menu [ par baba ]
Comment peut on faire pour ajouter des icones dans un menu (popup) en VB ?Merci
Popup menu qui ne disparait pas sous Win NT [ par clafouti ]
J'ai le problème suivant : J'ai une icone dans le system tray (a coté de l'horloge). Lorsque je clique droit sur l'icone, je fait apparaître un popup
Popup menu et fenetre sans border [ par PKist ]
Lorsque je fais un menu, cela ajoute des border a ma fenetre de projet.comment créer un menu sans que cela n'ajoute de border ?
menu popup [ par joflo ]
si l'un de vous sait comment faire mercij'ai créé un menu avec le créateur de VB6 que je fait apparaitre sous le bouton sur lequel je cliquema questi
Popup menu [ par sebleboss2002 ]
Salut tout le monde !Je suis embêté car je veux créer un popup menu lors d'un clic sur un bouton, mais chaque fois :Erreur 428 : Le menu contextuel do
Menu popup [ par rivierem ]
Voila je voudrais creer un menu popup dynamiqueJ'arrive a le cree mais il ne s'affiche pas!!!Comment faire voila ma sourcePublic Sub charge_menu_ext
fermer un popup menu [ par patrick ]
Bonjour, Juste une petite question : j'aimerais fermer par programme un menu "popup" !merci d'avance, patrick Moirehttp:\\jeux.cartes.free.fr
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|