Discussion :

[jontleman]

Bonjour,

Je souhaiterais échanger le texte de 2 textbox, simplement en cliquant sur un bouton. Je l'ai fait en passant par une variable, mais n'y aurait-il pas une solution plus simple? (je dois appliquer ce principe à plusieurs textbox)

Pour l'instant j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim text1 as String = textbox1.text
textbox1.text = textbox2.text
textbox2.text = text1

Merci

[LaChips]

Bonjour,
Tu peux faire une fonction pour cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private sub Intervertir(S1 as String, S2 as String)
  Dim tmp as String = S1
  S1 = S2
  S2 = tmp
End sub

[jontleman]

Merci pour cette solution, mais ça ne fonctionne pas complètement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private sub Intervertir(S1 as String, S2 as String)
  Dim tmp as String = S1
  S1 = S2
  S2 = tmp
End sub
 
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Intervertir (textbox1.text, textbox2.text)
End Sub

Je pars avec:
textbox1.text = "NOM"
textbox2.text = "PRENOM"

En cliquant sur mon bouton, les valeurs sont bien interverties:
S1 = "PRENOM"
S2 = "NOM"

mais le résultat n'est pas appliqué aux textbox, je récupère:
textbox1.text = "NOM"
textbox2.text = "PRENOM"

et non pas:
textbox1.text = "PRENOM"
textbox2.text = "NOM"

Comment renvoyer le résultat de la fonction Intervertir à mes textbox ??

[JPelli]

bonjour,
Ajoute ByRef

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private sub Intervertir(ByRef S1 as String, ByRef S2 as String)
  Dim tmp as String = S1
  S1 = S2
  S2 = tmp
End sub
 
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Intervertir (textbox1.text, textbox2.text)
End Sub

Bon boulot Jean

[jontleman]

tout simplement !!!

Merci LaChips et JPelli pour l'aide

[jontleman]

bonjour,
je dois modifier un peu le fonctionnement de ma fonction.
j'ai maintenant une dizaine de textbox et je dois pouvoir intervertir le text de 2 textbox au choix de la maniere suivante:
- MAJ + clic sur la textbox 1
- la textbox 1 devient verte
- MAJ + clic sur la textbox 2
- le text est interverti et la textbox 1 redevient blanche

J'ai bien un fonction Intervertir avec mes variables TB1 et TB2 mais comment faire pour que
TB1= la textbox sur laquelle je clique en premier
TB2= la textbox sur laquelle je clique en deuxieme
?

Quelle est la methode pour déterminer le control sur lequel on vient de cliquer?

Merci d'avance