How To Use Array?

Question

Hi All
See This Pic ...

I Used This Code...

Public Class Form1  
    Dim BytCounter As Byte = 0  
    Dim Btarr(11) As Integer  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        Button1.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(0) = BytCounter  
    End Sub  
  
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click  
        Button2.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(1) = BytCounter  
    End Sub  
  
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click  
        Button3.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(2) = BytCounter  
    End Sub  
  
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click  
        Button4.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(3) = BytCounter  
    End Sub  
  
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click  
        Button5.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(4) = BytCounter  
    End Sub  
  
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click  
        Button6.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(5) = BytCounter  
    End Sub  
  
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click  
        Button7.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(6) = BytCounter  
    End Sub  
  
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click  
        Button8.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(7) = BytCounter  
    End Sub  
  
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click  
        Button9.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(8) = BytCounter  
    End Sub  
  
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click  
        Button10.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(9) = BytCounter  
    End Sub  
  
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click  
        Button11.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(10) = BytCounter  
    End Sub  
  
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click  
        Button12.Enabled = False  
        BytCounter = BytCounter + 1  
        Btarr(11) = BytCounter  
  
    End Sub  
  
    Private Sub BtnEsc_Click(sender As Object, e As EventArgs) Handles BtnEsc.Click  
        If BytCounter = 0 Then Exit Sub  
        **Dim Indx1 As Integer = Array.IndexOf(Btarr, BytCounter)**  
        BytCounter = BytCounter - 1  
        Select Case Indx1  
            Case 0  
                Button1.Enabled = True  
            Case 1  
                Button2.Enabled = True  
  
            Case 2  
                Button3.Enabled = True  
  
            Case 3  
                Button4.Enabled = True  
  
            Case 4  
                Button5.Enabled = True  
  
            Case 5  
                Button6.Enabled = True  
  
            Case 6  
                Button7.Enabled = True  
  
            Case 7  
                Button8.Enabled = True  
  
            Case 8  
                Button9.Enabled = True  
  
            Case 9  
                Button10.Enabled = True  
  
            Case 10  
                Button11.Enabled = True  
  
            Case 11  
                Button12.Enabled = True  
  
        End Select  
     
    End Sub  
End Class  
  

But I Get Value -1 in this line...
Dim Indx1 As Integer = Array.IndexOf(Btarr, BytCounter)

and my Code was not properly Correct
how to Solve it?
thanks all

Answer 1

Hi @Shahab a ,
The type of the array Btarr is different from that of BytCounter, so no match is found and -1 is returned.
Modify the code on line3.

Dim Btarr(11) As Byte  

Best Regards.
Jiachen Li

----------

If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Answer 2

thank dear
i changed this line
Dim Btarr(11) As Integer