Afficher tableau

Signaler
Messages postés
28
Date d'inscription
samedi 7 juin 2008
Statut
Membre
Dernière intervention
18 juin 2008
-
Messages postés
28
Date d'inscription
samedi 7 juin 2008
Statut
Membre
Dernière intervention
18 juin 2008
-
Slt,


Voila j'ai déclaré un fichier et je le remplis ensuite avec une variable.

Et je voudrais bien afficher mon tableau ensuite pour voir si celui ci est bien rempli.

Est - ce que mon code est correcte ???

Pcq qd j'effectue mon programme il bug en disant que le qualificateur Tab2 est incorrecte.


Private Sub Command1_Click()


    Dim Tab2(12) As Integer

   

    Dim i As Integer

   

    For i = 1 To 12

   

        Tab2(i) = Text1.Text

   

    Next i

   

    Tab2(12).Visible = True

   

End Sub


Merci d'avance

Fab's

7 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
20
Bonsoir,
Oui Tab2 est un tableau d'entier. Qu'est-ce que cette propriété Visible sur l'élément 13 ?

De plus lorsque tu déclares un tableau en vb sa taille commence à 0 pour 1.
Tab(12) as Integer contient 13 éléments de 0 à 12.
Donc dans ta boucle ci-après du dois commencer à itérer sur Tab en partant de son 1ier élément c'est à dire l'élément 0.
For i as integer = 0 to 12
   tab2(i) = text1.text
next

Execute tout ca en pas-à-pas pour comprendre et voir si tes variables sont bien remplies.

++
Messages postés
28
Date d'inscription
samedi 7 juin 2008
Statut
Membre
Dernière intervention
18 juin 2008

D'accord mais ce que je veux c'est arrivé a afficher mon tbleau afin de voir si il est bien rempli

et pour ca est-ce l'instruction Tab2(12).Visible = True est correcte???

Fab's
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
20
De plus tu es sous vb6  pas sous une version .net de vb !
Met un point d'arrêt sur ta ligne où tu déclares ton tableau. Lance ton appli et clic sur ton bouton Command1 puis avance pas-à-pas avec F8 et regarde les valeurs que prenne les éléments de ton tableau.

++
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Salut Fabian26

l'instruction Tab2(12).Visible = True est incorrecte
C'est pas la variable qui doit être visible : c'est la zone de texte Text1
Elle n'est pas nécessaire si la zone de texte a sa propriété Visibe à True lors de la conception de la feuille

De plus il faut écrire

For i as integer = 0 to 12
    text1.text = tab2(i)
next

C'est la zone de texte qui doit afficher la variable tableau tab2(i)

GRENIER Alain
Messages postés
28
Date d'inscription
samedi 7 juin 2008
Statut
Membre
Dernière intervention
18 juin 2008

Mais moi ce que je veux c'est pouvoir mettre dans mon tableau la valeur
se trouvant dans text1.text et non le contraire et ensuite j'aimerais
afficher mon tableau afin de voir si il a bien été rempli

Fab's
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Si je comprends bien
1 : tu remplis la zone de texte par une valeur numérique
2 : tu veux que tous les éléments de ton tableau contiennent la même valeur
3 : ensuite tu veux afficher ton tableau

l'instruction Tab2(12).Visible = True est incorrecte
C'est pas la variable qui doit être visible : c'est la zone de texte Text1
Elle n'est pas nécessaire si la zone de texte a sa propriété Visibe à True lors de la conception de la feuille

Crée une seconde zone de texte Text2 ( assez grande pour voit tous les éléments de ton tableau) et mets sa propriété Multiligne à True

Private Sub Command1_Click()

    Dim Tab2(12) As Integer ' 13 valeurs de Tab2(0) à Tab2(12)
    Dim i As Integer
   
    Text2.Text = ""    
    For i = 0 To 12
         Tab2(i) = Text1.Text         Text2.Text Text2.Text & "Tab2(" & Ltrim$(Str$(i)) & ") " & str$(Tab2(i)) & VbCrLF
    Next i
      
End Sub

GRENIER Alain
Messages postés
28
Date d'inscription
samedi 7 juin 2008
Statut
Membre
Dernière intervention
18 juin 2008

Merci bcp ;)

Fab's