Ok, here is the last in this series of 'Simple Fixed Arrays.'

This time we will replace Elements in the Array and update all the RadioButtons, Textbox, ComboBox and labels to reflect the changes we make.

Let's start as always with the Dim Statements

Dim arrAnimal(5) As String

Dim AnimalIndex As Integer

Dim i As Integer

Notice that this time the number inside the Parenthesis is 5, the reason for this is that VB numbers the Elements 0 to 5, so, because we have 6 Elements the array = 5, strange but true. I know that we got away with it last time when we placed 6 inside the parenthesis but this time if we try to use 6 we get errors, try it and see what happens.

Lets move on to the Loading of the form, this time we fill the Array with the text of the 6 RadioButtons as follows.

Private Sub AnimalArray_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

arrAnimal(0) = RadioButton1.Text

arrAnimal(1) = RadioButton2.Text

arrAnimal(2) = RadioButton3.Text

arrAnimal(3) = RadioButton4.Text

arrAnimal(4) = RadioButton5.Text

arrAnimal(5) = RadioButton6.Text

RadioButton1.Checked = True

End Sub

Next we need the RadioButton Events update the LblDisplay and change the ComboBox Text, this is done for all6 RadioButtons.

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

LblDisplay.Text = "The " & RadioButton1.Text & Chr(13) & "is Element [" & (Array.IndexOf(arrAnimal, RadioButton1.Text)) & "]" & Chr(13) & "in the Array"

cmbArrNum.Text = "0"

End Sub

Now let's add some code so that when we click the Load Button the Elements of the Array will show in a Text Box.

Private Sub btnShowAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowAll.Click

ListBox1.Items.Clear()

For i = 0 To 5

ListBox1.Items.Add(arrAnimal(i) & " is element [" & i & "] in the array")

Next

End Sub

The next button to sort out is the Sort Button this will place all the Elements of the Array in to Alphabetical order, it also updates the text for the 6 RadioButtons and the Label text.

Private Sub btnSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSort.Click

ListBox1.Items.Clear()

Array.Sort(arrAnimal)

For i = 0 To 5

ListBox1.Items.Add(arrAnimal(i) & " is element [" & i & "] in the array")

Next

RadioButton1.Text = arrAnimal(0)

RadioButton2.Text = arrAnimal(1)

RadioButton3.Text = arrAnimal(2)

RadioButton4.Text = arrAnimal(3)

RadioButton5.Text = arrAnimal(4)

RadioButton6.Text = arrAnimal(5)

Select Case cmbArrNum.SelectedIndex

Case 0

RadioButton1.Checked = True

lblDisplay.Text = "The " & RadioButton1.Text & Chr(13) & " is Element [" & (Array.IndexOf(arrAnimal, RadioButton1.Text)) & "]" & Chr(13) & "in the Array"

Case 1

RadioButton2.Checked = True

lblDisplay.Text = "The " & RadioButton2.Text & Chr(13) & " is Element [" & (Array.IndexOf(arrAnimal, RadioButton2.Text)) & "]" & Chr(13) & "in the Array"

Case 2

RadioButton3.Checked = True

lblDisplay.Text = "The " & RadioButton3.Text & Chr(13) & " is Element [" & (Array.IndexOf(arrAnimal, RadioButton3.Text)) & "]" & Chr(13) & "in the Array"

Case 3

RadioButton4.Checked = True

lblDisplay.Text = "The " & RadioButton4.Text & Chr(13) & " is Element [" & (Array.IndexOf(arrAnimal, RadioButton4.Text)) & "]" & Chr(13) & "in the Array"

Case 4

RadioButton5.Checked = True

lblDisplay.Text = "The " & RadioButton5.Text & Chr(13) & " is Element [" & (Array.IndexOf(arrAnimal, RadioButton5.Text)) & "]" & Chr(13) & "in the Array"

Case 5

RadioButton6.Checked = True

lblDisplay.Text = "The " & RadioButton6.Text & Chr(13) & " is Element [" & (Array.IndexOf(arrAnimal, RadioButton6.Text)) & "]" & Chr(13) & "in the Array"

End Select

txtReplace.Text = ""

End Sub

That was a lot of code! Still it is Part 3 the final.

Let's move on and write some code to Replace Elements in the Array.

Once again because we have changed the Array we need to update all the Controls on the Form to keep everthing updated.

Private Sub btnReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReplace.Click

If txtReplace.Text = "" Then

MessageBox.Show("No text has been entered")

Exit Sub

End If

arrAnimal.SetValue(txtReplace.Text, cmbArrNum.SelectedIndex)

Select Case cmbArrNum.SelectedIndex

Case 0

RadioButton1.Text = txtReplace.Text

RadioButton1.ForeColor = Color.Blue

Case 1

RadioButton2.Text = txtReplace.Text

RadioButton2.ForeColor = Color.Blue

Case 2

RadioButton3.Text = txtReplace.Text

RadioButton3.ForeColor = Color.Blue

Case 3

RadioButton4.Text = txtReplace.Text

RadioButton4.ForeColor = Color.Blue

Case 4

RadioButton5.Text = txtReplace.Text

RadioButton5.ForeColor = Color.Blue

Case 5

RadioButton6.Text = txtReplace.Text

RadioButton6.ForeColor = Color.Blue

End Select

ListBox1.Items.Clear()

For i = 0 To 5

ListBox1.Items.Add(arrAnimal(i) & " is element [" & i & "] in the array")

Next

arrAnimal(0) = RadioButton1.Text

arrAnimal(1) = RadioButton2.Text

arrAnimal(2) = RadioButton3.Text

arrAnimal(3) = RadioButton4.Text

arrAnimal(4) = RadioButton5.Text

arrAnimal(5) = RadioButton6.Text

lblDisplay.Text = "The " & txtReplace.Text & Chr(13) & " is Element [" & (Array.IndexOf(arrAnimal, txtReplace.Text)) & "]" & Chr(13) & "in the Array"

txtReplace.Text = ""

End Sub

Well, that's it, in all it's glory, I hope you have enjoyed these 3 tutorials on Fixed Arrays.

I hope in the future to write other tutorials that will help beginners to better understand Visual Basic.net.