Vb.Net Coller un text dans textbox selectionner avec un bouton
Résolu/Fermé
kikou93
Messages postés
417
Date d'inscription
mardi 4 février 2014
Statut
Membre
Dernière intervention
24 septembre 2018
-
2 août 2016 à 21:25
kikou93 Messages postés 417 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 - 3 août 2016 à 10:31
kikou93 Messages postés 417 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 - 3 août 2016 à 10:31
A voir également:
- Vb.Net Coller un text dans textbox selectionner avec un bouton
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Dans ce document, mettez en gris les textes des étapes et des conseils en ne modifiant qu'un seul style. sur la première page, vous constaterez qu'un mot restera en noir dans un paragraphe gris. quel est ce mot ? - Forum Google Docs
- Mettre un texte en majuscule - Guide
- Dessin a copier coller ✓ - Forum Internet / Réseaux sociaux
1 réponse
kikou93
Messages postés
417
Date d'inscription
mardi 4 février 2014
Statut
Membre
Dernière intervention
24 septembre 2018
1
3 août 2016 à 10:31
3 août 2016 à 10:31
Voici la solution :
Whismeril m'a aidé pour résoudre ce problème
Public Class Form1
Dim nbr As Integer
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.Click
nbr = 1
End Sub
Private Sub TextBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.Click
nbr = 2
End Sub
Private Sub TextBox3_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox3.Click
nbr = 3
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If nbr = 1 Then
TextBox1.SelectedText = Clipboard.GetText
End If
If nbr = 2 Then
TextBox2.SelectedText = Clipboard.GetText
End If
If nbr = 3 Then
TextBox3.SelectedText = Clipboard.GetText
End If
Label1.Text = nbr
End Sub
End Class
Whismeril m'a aidé pour résoudre ce problème