EMPLOI DU COPIER, COUPER, COLLER AVEC DES SHORTCUT MENUS

Messages postés
5
Date d'inscription
mardi 20 avril 2004
Statut
Membre
Dernière intervention
9 septembre 2005
- - Dernière réponse : ridamax
Messages postés
1
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
10 mars 2008
- 10 mars 2008 à 10:45
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

Afficher la suite 
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 ;)
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
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