Discussion :

[mickael62800]

Bonjour a tous ...

je me casse la tête sur un truc tout bête ....

Comment faire pour récupérer une variable (string/Int etc ... ) d'une Form2 pour mettre celle ci dans une textbox form 1...

Avec des labels sa marche plutôt bien ... mais avec des textboxs ...

Code :

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

1
2
3
4
5
6
7
8
Public Class Form2
    Public maformprinc As New Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim test As String = TextBox1.Text
        maformprinc.TextBox1.Text = test
    End Sub
End Class

Code :

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

1
2
3
4
5
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
End Class

Merci d'avance !!

[mickael62800]

Bonsoir a tous,

Alors j avance un peu mais ... le soucis persiste ..

ma form1 ou je récupère les variable.

Code :

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

1
2
3
4
5
6
 
    Public Sub chargerElements(ByVal conc As String, ByVal Nom As String, ByVal fixe As String, ByVal port As String, ByVal mail As String)
        Dim lenom As String = Nom
        TextBox1.Text = lenom
        MessageBox.Show(lenom)
    End Sub

Ma form2 ou je choisi un élément d'un listview

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
 
        Dim conc As String
        Dim nom As String
        Dim telF As String
        Dim telp As String
        Dim mail As String
 
        Dim Chargementlist As New EtatsConcsDoss
        Dim pContact As New EtatsConcsDoss
        If ListView1.SelectedItems.Count > 0 Then
            Dim elements As ListViewItem = ListView1.SelectedItems(0)
            conc = elements.Text
            nom = elements.SubItems(2).Text
            telF = elements.SubItems(3).Text
            telp = elements.SubItems(4).Text
            mail = elements.SubItems(5).Text
            Chargementlist.chargerElements(conc, nom, telF, telp, mail)
        End If
    End Sub

Alors pour faire simple...

-Ma form2 charge les éléments d'une listview
-Je lance une procédure sub surchargé qui se trouve dans ma form1
-Je récupere les variables (testé avec un msgbox) et ... catastrophe il ne veut pas mettre ces variables dans les box ...

Une petite solution?

merci d'avance.

[ProgElecT]

Salut
Peut être, ligne 4 u premier code

Code :

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

TextBox1.value= lenom

[mickael62800]

Salut
Peut être, ligne 4 u premier code

Code :

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

TextBox1.value= lenom

Merci pour ta réponse, mais j'ai déjà essayé ... "value n'est pas un membre textbox"

pourtant j'arrive bien a récupérer la variable de la form2... bref

Par contre avec label. Value sa marche ...

en tout merci

[rv26t]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Public Class Form2
    Public maformprinc As New Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim test As String = TextBox1.Text
        maformprinc.TextBox1.Text = test
    End Sub
End Class

Code :

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

1
2
3
4
5
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
End Class

Analysons ton code

Tu lances form1
Tu cliques sur button1
Cela lance form2
qui cré une nouvelle instance de form1 appelé maformprinc (mais différente de form1)
Lorsque tu cliques sur button1 tu mets la valeur dans l'instance maformprinc
Mais comme tu n'as pas fait de show de maformprinc tu ne vois rien.


Voici un exemple simple (note : attention j'ai renommé les contrôles de chaque form pour la lisibilité du code)

Code :

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

1
2
3
4
5
6
Public Class Form1
    Private Sub buttonForm1_Click(sender As System.Object, e As System.EventArgs) Handles buttonForm1.Click
        Dim f As Form2 = New Form2
        textboxForm1.Text = f.saisie
    End Sub
End Class

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Class Form2
    Private s As String
    Private Sub ButtonForm_Click(sender As System.Object, e As System.EventArgs) Handles ButtonForm2.Click
        s = TextBoxForm2.Text
        Close()
    End Sub
    Public Function saisie() As String
        Me.ShowDialog()
        Return s
    End Function
End Class

Avec plusieurs variables tu pourrais les passer par référence, mais il vaut mieux utiliser une classe et passer un objet.

Bon code ...

[mickael62800]

Merci RV26T, sa marche enfin.

Moi qui pensais que la procédure "Function" était utile que pour des calculs de math.....bah non

J'ai essayé avec des classes ect ... au final il me crée un autre objet et surtout sa devenait une usine a gaz ...

Encore Merci à RV26T et ProgElecT

[clementmarcotte]

Bonjour

Merci RV26T, sa marche enfin.

Moi qui pensais que la procédure "Function" était utile que pour des calculs de math.....bah non

Encore Merci à RV26T et ProgElecT

En fait, c'est toujours le cas avec des calculs, parce que le rôle (ou la fonction ) d'une fonction est de retourner une valeur. Et c'est le cas ici.