none
Application Windows Form avec Visual Basic 2010 Express. Affichage tableau 2 dimensions dans un Text.box.Txt RRS feed

 > 

  • Question

  • Question
    Connectez-vous pour voter
    0
    Connectez-vous pour voter

    Bonjour, je débute dans la programmation avec VB2010 Express et je me casse la tête sur un code pour afficher un tableau de 2 dimensions dans un Text.box. Voici mon code actuel qui permet avec 2 boucles for..next de saisir les 6 chiffres de mon tableau et d'afficher un tableau dans un Text.box sauf que lors de l'affichage les 6 chiffres se trouvent sur une ligne horizontale unique alors que je devrais avoir 2 lignes et 3 colonnes. Voir ci-après mon code. Merci pour votre aide. Cordialement                                 Dim   tableau  (1,2) as double    Dim invite as string    invite="tapez un entier"  For i as integer=0 to Ubound(tableau,1)         For j as integer =0 to Ubound(tableau2)   tableau(i,j)= inputbox(invite)  Next j next i     For i=0 to Ubound(tableau,1) For j=0 to Ubound(tableau,2) Textbox1.Txt=Textbox1.Txt  & tableau(i,j)     Next Next                                                                                     

     
    
    
    
    
    lundi 6 février 2017 07:45
    |

Réponses

  • Question
    Connectez-vous pour voter
    1
    Connectez-vous pour voter

    Avez-vous définit votre TextBox en tant que multiline?

    Ensuite vous avez besoin d'inclure des sauts de lignes et attention à vos limites de tableau:

    Par exemple comme ceci:

    avec le code:

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim tableau(1, 2) As Double 'Matrice de 2 lignes (0 à 1)  et 3 valeurs (0 à 2)

        Dim invite As String
        invite = "tapez un entier pour Tableau("
        For i As Integer = 0 To UBound(tableau, 1)
            For j As Integer = 0 To UBound(tableau, 2)
                tableau(i, j) = InputBox(invite & i & "," & j & ")")
            Next j
        Next i
        For i = 0 To UBound(tableau, 1)
            Dim UneLigne As String = ""
            For j = 0 To UBound(tableau, 2)
                If j > 0 Then
                    UneLigne &= "," & tableau(i, j) 'Séparateur
                Else
                    UneLigne = tableau(i, j) 'Premier élément
                End If
            Next
            TextBox1.Text &= UneLigne & Environment.NewLine
        Next
    End Sub

    lundi 6 février 2017 10:02
    |