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

[SaumonAgile]

Tu gardes deux références vers des textbox (en attributs du formulaire). Lors des clics, tu affectes ces textbox à ces références. Une fois que tu as détecté un nombre pair de clic, tu passes ces deux références à ta méthode de swap.

EDIT : Correction

[jontleman]

Lors des clics, tu affectes ces références à ces références.

pourrais-tu développer un peu stp?
je suis plutot débutant donc je ne vois pas comment faire ça!

Merci

[SaumonAgile]

J'ai édité mon post précédent, il y avait effectivement une incohérence.

[jontleman]

Tu gardes deux références vers des textbox (en attributs du formulaire). Lors des clics, tu affectes ces textbox à ces références.

je ne sais malheureusement pas comment faire ça !
Pourrais-tu m'éclairer un peu stp ?

[jontleman]

je comprends bien le principe mais je ne vois pas comment coder ça

[tomlev]

Dans le code source de ta Form, tu déclares 2 variables TextBox, et une variable qui indique dans quel état tu es (attente du 1er clic / attente du 2eme clic):

Code VB :

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

1
2
3
4
5
6
7
8
 
Class Form1
...
Private tb1 As TextBox
Private tb2 As TextBox
Private state As Integer = 1
...
End Class

Dans le code des évènements clic sur les textbox, tu assignes le controle à tb1 ou tb2 selon l'état actuel (state = 1 ou 2). Si c'est le 2eme clic, tu intervertis les valeurs:

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Private Sub TextBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Click
        If state = 1 Then
            tb1 = sender
            tb1.BackColor = Color.Green
            state = 2
        Else
            tb2 = sender
            Intervertir(tb1.Text, tb2.Text)
            tb1.BackColor = Color.White
            state = 1
        End If
    End Sub

[olsimare]

Bonjour.

Tu peux aussi utiliser une collection de texbox interdépendants via une classe qui gére le switch en s'abonnant aux events click de chaque tb de la collection.

En une ligne dans la form, tu inscris ton tb dans ce "gestionnaire de switch" et ça me semble plus propre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Public Class Form2
 
    Private tbsw As New TextBoxSwitchWorker
 
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        tbsw.Add(Me.TextBox1)
        tbsw.Add(Me.TextBox2)
        tbsw.Add(Me.TextBox3)
        tbsw.Add(Me.TextBox4)
 
    End Sub
 
End Class
 
Public Class TextBoxSwitchWorker
    Inherits Hashtable
 
    Private currentIndex As Integer
 
    Public Overloads Sub Add(ByVal t As TextBox)
        MyBase.Add(t, False)
        AddHandler t.Click, AddressOf EvaluateSwitch
    End Sub
    Public Overloads Sub Remove(ByVal t As TextBox)
        RemoveHandler t.Click, AddressOf EvaluateSwitch
        MyBase.Remove(t)
    End Sub
    Private Sub EvaluateSwitch(ByVal sender As Object, ByVal e As EventArgs)
        Dim tb As TextBox = CType(sender, TextBox)
        ' C'est le textbox déja clické, on désactive
 
        If Me(tb) Then
            tb.BackColor = Color.White
            Me(tb) = False
            Exit Sub
        End If
 
        ' Le textbox n'est pas celui sélectionné --> on switch
        ' si l'un des textbox est déjà clické
        For Each temptb As TextBox In Me.Keys
            If Me(temptb) Then
                temptb.BackColor = Color.White
                Me(temptb) = False
                Dim strText As String = tb.Text
                tb.Text = temptb.Text
                temptb.Text = strText
                Exit Sub
            End If
        Next
        ' sinon on positionne le top clické
        Me(tb) = True
        tb.BackColor = Color.Green
 
    End Sub
 
End Class

Cdt.

[tomlev]

C'est vrai, pourquoi faire simple quand on peut faire compliqué
C'est une solution "élégante", mais c'est un peu utiliser un bulldozer pour écraser une mouche non ?

[olsimare]

Bonjour.

C'est vrai, pourquoi faire simple quand on peut faire compliqué
C'est une solution "élégante", mais c'est un peu utiliser un bulldozer pour écraser une mouche non ?

T'es dur là ! C'est pas super simple mais pas trop compliqué non plus...

C'est simplement pour éviter de dupliquer n fois les lignes sur l'event pour les n boutons.

C'est vrai que si c'est pour 2 boutons ... ça sert moyen !

Cdt.

[Aspic]

Ce problème n'est toujours pas résolu !! ?

Bon c'est quoi le nouveau soucis ?

[tomlev]

Bonjour.


T'es dur là ! C'est pas super simple mais pas trop compliqué non plus...

C'est simplement pour éviter de dupliquer n fois les lignes sur l'event pour les n boutons.

C'est vrai que si c'est pour 2 boutons ... ça sert moyen !

Cdt.

C'est juste que c'est marrant de voir qu'on est passé d'un code de 3 lignes qui faisait quelque chose de très simple (voir 1er post) à un code de 60 lignes

D'ailleurs, si le but est de ne pas dupliquer le handler n fois, c'est inutile... il n'y a déjà pas besoin de le dupliquer ! On peut utiliser le même handler pour l'évènement click de tous les textbox concernés, c'est d'ailleurs pour ça que j'ai écrit "sender" plutôt que "TextBox1", pour que ça marche sur tous les textbox. D'ailleurs on peut même l'utiliser pour des textbox créés dynamiquement

[olsimare]

Bonjour.

D'ailleurs, si le but est de ne pas dupliquer le handler n fois, c'est inutile... il n'y a déjà pas besoin de le dupliquer ! On peut utiliser le même handler pour l'évènement click de tous les textbox concernés, c'est d'ailleurs pour ça que j'ai écrit "sender" plutôt que "TextBox1", pour que ça marche sur tous les textbox. D'ailleurs on peut même l'utiliser pour des textbox créés dynamiquement

TOUCHé ! Je m'incline...

Soit dit en passant, y'a vraiment plus que nous que ça interesse ...

Cdt.

[tomlev]

Soit dit en passant, y'a vraiment plus que nous que ça interesse ...

c'est clair... en fait je crois que SaumonAgile a fait peur à jontleman avec ses histoires de références
Reviens jontleman, on est pas méchants

[jontleman]

I'm back !
Désolé mais j'ai eu des petits problèmes de santé, j'ai pas trop pu suivre la discussion.
Je viens de voir tous vos posts. Si j'ai bien compris le concept, il faut que j'essaye la solution de tomlev, ou éventuellement le bulldozer de olsimar (si toute fois j'arrive à comprendre !!!)

Je vous tiens au jus