EMPLOI DU COPIER, COUPER, COLLER AVEC DES SHORTCUT MENUS

Signaler
Messages postés
5
Date d'inscription
mardi 20 avril 2004
Statut
Membre
Dernière intervention
9 septembre 2005
-
ridamax
Messages postés
1
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
10 mars 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/29766-emploi-du-copier-couper-coller-avec-des-shortcut-menus

ridamax
Messages postés
1
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
10 mars 2008

merci mon frére mé j'ai un problém est ce que cet code peux servire aussi MainMenu merci
ldx
Messages postés
23
Date d'inscription
jeudi 29 avril 2004
Statut
Membre
Dernière intervention
3 mai 2005

Merci. Je vais m'empresser de l'utiliser
cs_Cocalight
Messages postés
5
Date d'inscription
mardi 20 avril 2004
Statut
Membre
Dernière intervention
9 septembre 2005

Hum, tu aurais pu faire plus simple.

Gestion du Copier, coller, couper au chargement de ta fenetre :

Private Sub Form_Load()
Dim i As Integer
mnuPressePapier(0).Caption = "&Couper"
Load mnuPressePapier(1)
mnuPressePapier(1).Caption = "Co&pier"
Load mnuPressePapier(2)
mnuPressePapier(2).Caption = "C&oller"
mnuFermer.Enabled = False
mnuEnregistrer.Enabled = False

For i = 0 To 2
mnuPressePapier(i).Enabled = False
Next
End Sub

Gestion du Clipboard :

Private Sub mnuPressePapier_Click(Index As Integer)
Select Case Index
Case 0 'Couper
Clipboard.SetText txtEdition.SelText
txtEdition.SelText = ""
Case 1 'Copier
Clipboard.SetText txtEdition.SelText
Case 2 'Coller
txtEdition.SelText = Clipboard.GetText()
End Select
End Sub

Controle de tes boutons du menu :

Private Sub Toolbar_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "Ouvrir"
mnuBDOuvrir_Click
Case "Enregistrer"
mnuEnregistrer_Click
Case "Couper"
mnuPressePapier_Click (0)
Case "Copier"
mnuPressePapier_Click (1)
Case "Coller"
mnuPressePapier_Click (2)
End Select
End Sub

Je n'ais pas mis tout le code ici mais j'espere que ce seras utile


( je suis pas un pro VB et c'est mon premier post ;)