EMPLOI DU COPIER, COUPER, COLLER AVEC DES SHORTCUT MENUS
cs_Cocalight
Messages postés5Date d'inscriptionmardi 20 avril 2004StatutMembreDernière intervention 9 septembre 2005
-
18 mars 2005 à 09:01
ridamax
Messages postés1Date d'inscriptionlundi 18 février 2008StatutMembreDernière intervention10 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.
ridamax
Messages postés1Date d'inscriptionlundi 18 février 2008StatutMembreDernière intervention10 mars 2008 10 mars 2008 à 10:45
merci mon frére mé j'ai un problém est ce que cet code peux servire aussi MainMenu merci
ldx
Messages postés23Date d'inscriptionjeudi 29 avril 2004StatutMembreDernière intervention 3 mai 2005 21 mars 2005 à 17:29
Merci. Je vais m'empresser de l'utiliser
cs_Cocalight
Messages postés5Date d'inscriptionmardi 20 avril 2004StatutMembreDernière intervention 9 septembre 2005 18 mars 2005 à 09:01
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 ;)
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 ;)