Vb.Net Coller un text dans textbox selectionner avec un bouton [Résolu]

kikou93 384 Messages postés mardi 4 février 2014Date d'inscription 26 août 2017 Dernière intervention - 3 août 2016 à 00:22 - Dernière réponse : kikou93 384 Messages postés mardi 4 février 2014Date d'inscription 26 août 2017 Dernière intervention
- 3 août 2016 à 10:29
Bonjour,
Coller un text dans textbox selectionner en cliquant sur un boutton
J'ai réussi à créer le code suivant :

Public Class Form2
Dim nbr As String
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
Else
TextBox2.SelectedText = Clipboard.GetText
End If
If nbr = "3" Then
Else
TextBox3.SelectedText = Clipboard.GetText
End If
End Sub

Ce code me permet de coller texte copier dans la textbox séléctionner (la textbox est sélectionné en cliquant sur la elle)
mais le problème est qu'il colle le texte n'importe comment (il ne le colle pas dans la textbox séléctionner)
j'ai même essayé avec :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If nbr = "1" Then
TextBox1.Paste()
End If
If nbr = "2" Then
Else
TextBox2.Paste()
End If
If nbr = "3" Then
Else
TextBox3.Paste()
End If
End Sub

mais sa ne marche toujours pas
j'arrive pas à trouver où est l'erreur, pouvez-vous m'aider s'il vous plait
merci d'avance pour votre aide




Comment ça marche c'est cool! 
      1000 Merci les Amis
Afficher la suite 

4 réponses

Répondre au sujet
Whismeril 10526 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 13 décembre 2017 Dernière intervention - 3 août 2016 à 01:11
+1
Utile
3
A la place des cascades de If tu peux utiliser Select Case.

C'est beaucoup plus lisible et ça t'évitera de te mélanger dans la cascade.
D'autre part, por déboguer, la base est d'exécuter le code en pas à pas, normalement ça aurait du sauter aux yeux

       If nbr = "1" Then
            'si c'est 1 on copie
            TextBox1.SelectedText = Clipboard.GetText
        End If
        If nbr = "2" Then
              'si c'est 2 on ne fait rien
        Else
            'si c'est pas 2 on copie
           TextBox2.SelectedText = Clipboard.GetText
        End If
        If nbr = "3" Then
           'Si c'est 3 on ne fait rien
        Else
           'si c'est pas 3 on copie
           TextBox3.SelectedText = Clipboard.GetText
        End If

Donc en gros 1 copie partout, 2 copie à 3 et 3 copie à 2.
Cette réponse vous a-t-elle aidé ?  
Whismeril 10526 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 13 décembre 2017 Dernière intervention - 3 août 2016 à 01:12
Au passage puisque tu tries, sur 1, 2 et 3 pourquoi utiliser un string et pas un int?
kikou93 384 Messages postés mardi 4 février 2014Date d'inscription 26 août 2017 Dernière intervention - 3 août 2016 à 10:23
merci de m'avoir répondu
je l'ai juste posé comme ça, ça n'affecte en rien le code
je crois que tu m'a mal compris
ce que je veux :
si nbr = 1 je copie dans textbox 1
si nbr = 2 je copie dans textbox 2
si nbr = 3 je copie dans textbox 3
kikou93 384 Messages postés mardi 4 février 2014Date d'inscription 26 août 2017 Dernière intervention - 3 août 2016 à 10:29
la solution que tu à proposer marche bien si je fait ça :

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


Merci pour ton aide
Commenter la réponse de Whismeril

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.