Discussion :

[gnain]

Bonjour

Quand on veut remplir une textbox dans une fonction on a qu"à faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
 
        Remplir_TextBox(TextBox1, "toto", 50)
        Remplir_TextBox(TextBox2, "tata", 75)
        Remplir_TextBox(TextBox3, "tutu", 20)
 
    End Sub
 
    Sub Remplir_TextBox(ByVal Mon_Textbox As TextBox, ByVal Mon_Text As String, ByVal NB As Integer)
 
        Mon_Textbox.Text = Mon_Text & "_" & NB
 
    End Sub

est-il possible de faire la même chose avec des tableaux?
ce qui donnerait quelque chose du genre

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
    Dim Tableau_1() As String
    Dim Tableau_2() As String
    Dim Tableau_3() As String
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Remplir_Tableau(Tableau_1, 50, "toto")
        Remplir_Tableau(Tableau_1, 75, "toto")
        Remplir_Tableau(Tableau_1, 25, "toto")
    End Sub
 
    Function Remplir_Tableau(ByVal Mon_Tableau As QUELQUE_CHOSE, ByVal NB_Ligne As Integer, ByVal Texte As String)
 
        '......
        ReDim Preserve Mon_Tableau(NB_Ligne - 1)
 
        For i = 0 To NB_Ligne - 1
            Mon_Tableau(i) = Texte & " " & i
        Next
 
        '........
 
    End Function

Comment déclarer ByVal Mon_Tableau As QUELQUE_CHOSE

Merci d'avance

[megafan]

Bonjour,

Il vous suffit de passer votre tableau Byref et non Byval

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
  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
 
        Dim Tableau_1() As String
        Dim Tableau_2() As String
        Dim Tableau_3() As String
 
 
        Remplir_Tableau(Tableau_1, 50, "toto")
        Remplir_Tableau(Tableau_2, 75, "toto")
        Remplir_Tableau(Tableau_3, 25, "toto")
 
    End Sub
 
    Private Sub Remplir_Tableau(ByRef Mon_Tableau() As String, ByVal NB_Ligne As Integer, ByVal Texte As String)
 
        '......
        ReDim Preserve Mon_Tableau(NB_Ligne - 1)
 
        For i = 0 To NB_Ligne - 1
            Mon_Tableau(i) = Texte & " " & i
        Next
 
        '........
 
    End Sub

[gnain]

Merçi! ça fonctionne