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

  • Question

  • 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

  • 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