EMPLOI DU COPIER, COUPER, COLLER AVEC DES SHORTCUT MENUS
cs_Cocalight
Messages postés
5
Date d'inscription
mardi 20 avril 2004
Statut
Membre
Dernière intervention
9 septembre 2005
-
18 mars 2005 à 09:01
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
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
https://codes-sources.commentcamarche.net/source/29766-emploi-du-copier-couper-coller-avec-des-shortcut-menus
10 mars 2008 à 10:45
21 mars 2005 à 17:29
18 mars 2005 à 09:01
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 ;)