Discussion :

[Marie_7]

j'ai un form1 contenant 2 zones de texte, une datagridview et un bouton sachant que ce bouton permet d'ouvrir form2 contenant aussi 2 zones textes avec:

Code :

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

1
2
3
4
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        form2.Show()
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        Try
            TextBox1.Text = DataGridView1.SelectedRows(0).Cells(0).Value
            TextBox2.Text = DataGridView1.SelectedRows(0).Cells(1).Value
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Je veux modifier ce code pour que les deux zones de texte de la form2 contiennent les valeurs de la 3e et la 4e colonne de la datagridview automatiuement en ouvrant ce form2

Code :

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

1
2
3
 
TextBox1.Text = DataGridView1.SelectedRows(0).Cells(2).Value
TextBox2.Text = DataGridView1.SelectedRows(0).Cells(3).Value

merci d'avance

[Marie_7]

J'ai ajouté ceci mais ça marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn.Open()
        Dim a As New DataTable("tab1")
        Dim req As New OleDb.OleDbDataAdapter("select nom,prenom from tab1 where code= '" & form1.TextBox1.Text & "' ", cn)
        Dim ds As New DataSet
        req.Fill(ds)
        Dim a As Object() = ds.Tables(0).Rows(2).ItemArray
        Dim a2 As Object() = ds.Tables(0).Rows(3).ItemArray
        TextBox1.Text = a(0).ToString()
        TextBox2.Text = a2(0).ToString()
    End Sub

[Jabbal'H]

Tu devrais surcharger la méthode Show de Form2 pour lui passer les bons paramètres

Code :

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

1
2
 
form2.Show(text1,text2);

Il me vient un doute, est ce que cette méthode est virtuel ?
Sinon un init avant l'affichage par exemple.

[rv26t]

Bonjour,

Effectivement tu peux surcharger la méthode new de ta Form2

Dans Form2

Code :

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

1
2
3
4
5
6
7
8
 
    Public Sub New(ByVal Texte1 As String, ByVal Texte2 As String)
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        TextBox1.Text = Texte1
        TextBox2.Text = Texte2
    End Sub

L'appel depuis form1

Code :

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

        Dim f As form2 = New form2(DataGridView1.SelectedRows(0).Cells(2).Value, DataGridView1.SelectedRows(0).Cells(3).Value)

[Jabbal'H]

Euh par contre marie_7
http://www.developpez.net/forums/d14...sage-variable/

Il y a des choses semblable non ?

[Marie_7]

merciii