Search Tools Links Login

Simple Fixed Array, Part 1

Visual Basic 6, or VB Classic

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.

About this post

Posted: 2019-09-20
By: Graham
Viewed: 219 times


Visual Basic 6


No attachments for this post

Special Instructions

This code originally appeared on, and has been republished here with the permission of Andrea Tincani.

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.