Couper Copier Coller
djgarlick
Messages postés
42
Date d'inscription
dimanche 4 octobre 2009
Statut
Membre
Dernière intervention
29 mai 2014
-
5 juil. 2005 à 10:41
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 5 juil. 2005 à 12:55
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 5 juil. 2005 à 12:55
A voir également:
- Couper Copier Coller
- Vba copier coller dans une autre feuille ✓ - Forum Visual Basic 6
- Vba coller valeur cellule sur une autre cellule avec variable ✓ - Forum Visual Basic 6
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
- Copier le contenu d'une feuille excel dans une autre - Forum Visual Basic
- Detecteur copier coller gratuit ✓ - Forum VB.NET
3 réponses
cs_azerty25
Messages postés
1114
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
5 juil. 2005 à 11:01
5 juil. 2005 à 11:01
-Pour le copier : Clipboard.SetText tontextbox.text
-Coller : tontextbox.text = Clipboard.GetText : Clipboard.SetText ""
-Couper : Clipboard.SetText tontextbox.text : tontextbox.text=""
Pour activer ou désactiver les menus :
-Mettre dans code du bouton couper et coller : tontextbox.enabled = true
Mais il faut que tu désactive le textbox au démarrage de la form : tontextbox.enabled = false
- Tu met un timer dans ta form avec le code suivant pour activer ou désactiver les boutons copier/coller :
If tontextbox.SelLength <> 0 Then
menucopier.enabled=true : menucoller.enebled=true
Else: menucopier.enabled=false : menucoller.enebled=false
End If
Voila, bien sur oublie pas de changer les noms des objets sauf celui de clipboard ;-)
@Z3RtY25 ==
-Coller : tontextbox.text = Clipboard.GetText : Clipboard.SetText ""
-Couper : Clipboard.SetText tontextbox.text : tontextbox.text=""
Pour activer ou désactiver les menus :
-Mettre dans code du bouton couper et coller : tontextbox.enabled = true
Mais il faut que tu désactive le textbox au démarrage de la form : tontextbox.enabled = false
- Tu met un timer dans ta form avec le code suivant pour activer ou désactiver les boutons copier/coller :
If tontextbox.SelLength <> 0 Then
menucopier.enabled=true : menucoller.enebled=true
Else: menucopier.enabled=false : menucoller.enebled=false
End If
Voila, bien sur oublie pas de changer les noms des objets sauf celui de clipboard ;-)
@Z3RtY25 ==
cs_azerty25
Messages postés
1114
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
5 juil. 2005 à 11:02
5 juil. 2005 à 11:02
Eh oups, c'est du VBA, j'avais encore pas vu (2 fois en 24H !!!) Tient moi au courant si ça fonctionne aussi avec.
@Z3RtY25 ==
@Z3RtY25 ==
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
5 juil. 2005 à 12:55
5 juil. 2005 à 12:55
Bonjour,
Cet exemple copie (où coupe), les données d'un textBox1 dans un TextBox2
Option Explicit
Dim MyData As DataObject
Private Sub CommandButton1_Click()
Set MyData = New DataObject
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Copy
MyData.GetFromClipboard
TextBox2.Text = MyData.GetText(1)
End Sub
Private Sub CommandButton2_Click()
Set MyData = New DataObject
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Cut
MyData.GetFromClipboard
TextBox2.Text = MyData.GetText(1)
End Sub
jpleroisse
Cet exemple copie (où coupe), les données d'un textBox1 dans un TextBox2
Option Explicit
Dim MyData As DataObject
Private Sub CommandButton1_Click()
Set MyData = New DataObject
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Copy
MyData.GetFromClipboard
TextBox2.Text = MyData.GetText(1)
End Sub
Private Sub CommandButton2_Click()
Set MyData = New DataObject
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Cut
MyData.GetFromClipboard
TextBox2.Text = MyData.GetText(1)
End Sub
jpleroisse
