none
label et données du tableau RRS feed

  • Question

  • Bonjour,

    Je cherche à afficher dans des label les données du tableau,label creer par code .

    Dim label1 As New Label
    Dim label2 As New Label

    label1.Text = ("A")
    label2.Text = ("c")

    le tableau

    Dim TA(,) As String = New String(2, 2) { _
           {"A", "B", "C"}, _
           {"a", "b", "c"}, _
           {"c", "d", "e"}}

    Comment parcourir le tableau pour que ca s'affiche dans label1.Text = ("A")
    label2.Text = ("c")....

    Cordialement.


    MHARO
    lundi 20 septembre 2010 20:17

Réponses

  • Bonjour,

    Tiens, comme ceci ça fonctionne et c'est testé :

     Sub tableaux()
     Dim tableauLabel As Label(,) = {{Label1, Label2, Label3}, {Label4, Label5, Label6}, {Label7, Label8, Label9}}
     ' il y avait une virgule en trop entre les deux dernières accolades
     Dim TA(,) As String = New String(2, 2) {{"A", "B", "C"}, {"a", "b", "c"}, {"c", "d", "e"}}
     Dim i As Long
     Dim j As Long
     For i = 0 To 2
      For j = 0 To 2
      tableauLabel(i, j).Text = TA(i, j)
      Next j
     Next i
    End Sub
    

    Nota bene : si tu es satisfait de mes réponses tu peux cliquer dans chacune d'elle en haut à gauche où il y a un triangle vert :o)

    Cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe mercredi 22 septembre 2010 10:24
    • Modifié EhJoe mercredi 22 septembre 2010 10:27 rajout
    • Marqué comme réponse Gilles TOURREAUModerator mercredi 22 septembre 2010 18:49
    mercredi 22 septembre 2010 10:24

Toutes les réponses

  • Bonjour,

    Si je comprends tout ??? Pour afficher le contenu d'une variable à deux indices on fait ceci

    dim i as long
    dim j as long
     for i = 0 to 2
     for j = 0 to 2
     label1.text = TA(i, j)
     next j
     next i
    
    

    Cordialement.


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    mardi 21 septembre 2010 06:43
  • Bonjour,

    Le plus simple et le plus pro est de faire un tableau de Label :

        Dim tableauLabel As Label(,) = { _
          {label1, label2, label3}, _
          {label4, label5, label6}, _
          {label7, label8, label9}, _
        }
    
        Dim i As Long
        Dim j As Long
    
        For i = 0 To 2
          For j = 0 To 2
            tableauLabel(i, j).Text = TA(i, j)
          Next j
        Next i
    

    Cordialement


    Gilles TOURREAU - MVP C# - MCTS ADO .NET 3.5 - MCPD Windows Developper 3.5 - Architecte .NET/Consultant/Formateur - http://gilles.tourreau.fr
    • Proposé comme réponse fred75 mardi 21 septembre 2010 09:30
    mardi 21 septembre 2010 07:37
    Modérateur
  • Bonjour,

    Merci de votre reponse , ca marche pas il y a une erreur sur le boucle for...

    Message d'erreur comme ceci :


    L'exception nullreferenexception n'a pas gérée
    utilisez le mo clé " new" pour créer une instance d'objet

     Dim tableauLabel As Label(,) = { _
          {label1, label2, label3}, _
          {label4, label5, label6}, _
          {label7, label8, label9}, _
        }


    Dim TA(,) As String = New String(2, 2) { _
           {"A", "B", "C"}, _
           {"a", "b", "c"}, _
           {"c", "d", "e"}}


        Dim i As Long
        Dim j As Long

        For i = 0 To 2
          For j = 0 To 2
            tableauLabel(i, j).Text = TA(i, j)
          Next j
        Next i

    Merci de m'aider.

    Cordialement


    MHARO
    mardi 21 septembre 2010 19:33
  • Bonjour,

    Cette erreur se produit si les variables labelX ne sont pas définie... Etes vous sur que vous avez instanciez un label dans chaque variable labelX ?

    Cordialement


    Gilles TOURREAU - MVP C# - MCTS ADO .NET 3.5 - MCPD Windows Developper 3.5 - Architecte .NET/Consultant/Formateur - http://gilles.tourreau.fr
    mercredi 22 septembre 2010 08:23
    Modérateur
  • Bonjour,

    Tiens, comme ceci ça fonctionne et c'est testé :

     Sub tableaux()
     Dim tableauLabel As Label(,) = {{Label1, Label2, Label3}, {Label4, Label5, Label6}, {Label7, Label8, Label9}}
     ' il y avait une virgule en trop entre les deux dernières accolades
     Dim TA(,) As String = New String(2, 2) {{"A", "B", "C"}, {"a", "b", "c"}, {"c", "d", "e"}}
     Dim i As Long
     Dim j As Long
     For i = 0 To 2
      For j = 0 To 2
      tableauLabel(i, j).Text = TA(i, j)
      Next j
     Next i
    End Sub
    

    Nota bene : si tu es satisfait de mes réponses tu peux cliquer dans chacune d'elle en haut à gauche où il y a un triangle vert :o)

    Cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe mercredi 22 septembre 2010 10:24
    • Modifié EhJoe mercredi 22 septembre 2010 10:27 rajout
    • Marqué comme réponse Gilles TOURREAUModerator mercredi 22 septembre 2010 18:49
    mercredi 22 septembre 2010 10:24
  • Bonjour,

    Merci bp à tous les deux , ca marche  très bien.

     

    Cordialement


    MHARO
    • Marqué comme réponse MHARO mercredi 22 septembre 2010 18:02
    • Non marqué comme réponse Gilles TOURREAUModerator mercredi 22 septembre 2010 18:49
    mercredi 22 septembre 2010 18:02