Dans la partie précédente , vous avez ajouté un peu de code à un bouton afin de tester les tableaux. Lorsque vous avez cliqué sur le bouton, vous avez probablement une boîte d'erreur popping up, vous dire que l '«indice était en dehors des limites du tableau." Tel est le message d'erreur que vous avez reçu:
MyNumbers Dim (4) As Integer
Et le numéro d'index le plus élevé est donc de 4. Mais nous avons essayé de montrer quelque chose au numéro d'index 5:
MyNumbers (5)
Visual Basic a déclaré: «Attendez une minute, l'idiot n'a pas obtenu un numéro de position 5!" Donc, il a arrêté le programme et vous a donné un message d'erreur. Supprimer cette ligne à partir de votre code:
MsgBox ("sixième numéro est:" & MyNumbers (5))
Ainsi, la manière d'obtenir à l'information détenue dans un tableau
fait par son numéro d'index - "Ce qui est en position de gamme 0 Quel
est en position de tableau 1?" Un moyen très pratique pour obtenir l'information dans votre tableau est en accédant à son numéro d'index dans une boucle for. De sorte que vous n'avez pas toutes ces boîtes de message surgissent, nous pouvons afficher les résultats dans une liste déroulante.
Ajoutez une zone de liste à votre formulaire. Assurez-il assez large, et il suffit de laisser le nom par défaut de ListBox1. Puis changer votre code à la suivante (le nouveau code est en gras, texte en bleu):
MyNumbers Dim (4) As Integer
I As Integer
MyNumbers (0) = 10
MyNumbers (1) = 20
MyNumbers (2) = 30
MyNumbers (3) = 40
MyNumbers (4) = 50
MyNumbers (1) = 20
MyNumbers (2) = 30
MyNumbers (3) = 40
MyNumbers (4) = 50
For i = 0 à 4
ListBox1.Items.Add (MyNumbers (i))
Suivant i
Exécutez votre programme et cliquez sur le bouton. Votre formulaire doit ressembler à quelque chose comme ceci:
ListBox1.Items.Add (MyNumbers (i))
Et ce qui est à l'intérieur de la variable i? Le nombre 0. Alors qu'est-ce qui se passe vraiment obtenir en ajoutant à la zone de liste est la suivante:
MyNumbers (0)
En d'autres termes, «Ajouter à la liste déroulante tout ce qui est à l'intérieur de la matrice à la position numéro 0" La prochaine fois le tour de la boucle, la variable i tiendra le numéro 1. Donc, ce est exécuté
ListBox1.Items.Add (MyNumbers (1))
Et la boucle continue autour et autour, en ajoutant tout ce qui est
dans notre tableau jusqu'à l'état final de la boucle est remplie. Modifiez la première ligne de la boucle For à ceci:
For i = 0 à 5
Pouvez-vous deviner ce qui va arriver? Essayez un voir. Assurez-vous que vous savez pourquoi vous obtenez ce message d'erreur avant de passer.Les tableaux et les chaînes de texte
Les tableaux peuvent contenir d'autres types de données, aussi. Ils peuvent contenir des chaînes de texte.- Mettez un autre bouton sur votre formulaire
- Définissez la propriété Text la valeur "Array String"
- Placez le code suivant derrière votre bouton
Dim MyText (4) As String
I As Integer
MyText (0) = "Ce"
MonTexte (1) = "est"
MonTexte (2) = "a"
MyText (3) = "String"
MyText (4) = "Array"
MonTexte (1) = "est"
MonTexte (2) = "a"
MyText (3) = "String"
MyText (4) = "Array"
For i = 0 à 4
ListBox1.Items.Add (MyText (i))
Suivant i
Lorsque vous avez terminé, lancez le programme et cliquez sur le nouveau bouton. Le texte que vous mettez dans les positions 5 du tableau doit afficher dans la zone de liste. Encore une fois, le même processus est à l'œuvre: Mettre en place un tableau et spécifier le nombre d'articles que vous voulez tenir dans le tableau; céder vos données à chaque poste, faire le tour d'une boucle et un accès tout ce qui est dans chaque position du tableau.
Dans la partie suivante, nous allons jeter un oeil de plus près à l'attribution de valeurs à un tableau.
0 commentaires:
Enregistrer un commentaire