Simple Fixed Array, Part 1
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
When I started programming the one thing that would trick me was Arrays.
So, with this in mind, I have decided to write 3 tutorials to try and help other beginners. What follows is a fixed array, an array is simply a container for a list of elemants in the case of this example it is a list of animals.
First start a New Project, then in solutions explorer click on the form then click view code, you should then see the following.
Public Class Form1
End Class
Change the Form1 to arrAnimal, see below
Public Class arrAnimal
End Class
Next we need to dimension the array using the Dim statement. Don't worry about the parentheses after the arrAnimal, we will use them next time, because the elements of this array are text I have used the As String type.
Public Class arrAnimal
Dim arrAnimal() As String = {"Lion", "Elephant", "Tiger", "Giraffe", "Bear", "Monkey"}
End Class
You will notice that I have already placed the elements (Animals) in the array ready to be called by the program in the order that they appear, so if for example I was to call array element 3 I would be given 'Giraffe', hands up all those who thought it was going to 'Tiger' well the reason the program returned 'Giraffe' is that the elements in the array are numbered 0,1,2,3,4,5 giving a total of six elements, Yes I know it's weird but what can you do?
The next thing we need to do is to add six radio buttons to our form and one label,you can change the name of the Label to LblDisplay.
When you have done this double click on the first RadioButton to bring up the RadioButton1_CheckedChanged event, and copy this code in to it
LblDisplay.Text = arrAnimal(0)
Do the same for all the other radio buttons so that your program now looks like this.Or you can just Copy (Ctrl+C) and Paste (Ctrl + V).
Public Class AnimalArray
Dim arrAnimal() As String = {"Lion", "Elephant", "Tiger", "Giraffe", "Bear", "Monkey"}
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
LblDisplay.Text = arrAnimal(0)
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
LblDisplay.Text = arrAnimal(1)
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
LblDisplay.Text = arrAnimal(2)
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
LblDisplay.Text = arrAnimal(3)
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
LblDisplay.Text = arrAnimal(4)
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
LblDisplay.Text = arrAnimal(5)
End Sub
End Class
Now you can run the program and as you click each RadioButton the RadioButton_CheckedChanged event will place the animal from the array into the LblDisplay,eg clicking RadioButton 4 will display arrAnimal(3) which, if you have been paying attention, you will know is the Giraffe.
And that's it, your first fixed Array. Use in a program? could be used for a Hangman type game.
Special Instructions
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Loading Comments ...
Comments
No comments have been added for this post.
Sorry. Comments are frozen for this article. If you have a question or comment that relates to this article, please post it in the appropriate forum.