VPF::Помогите найти баг - Форум программистов

Areostar

Дата 20.7.2008, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1191
Регистрация: 5.4.2008

Репутация: нет
Всего: -2

В проге создаю массив кнопак

Код


Private buttonArray As Button(,)

 Public Function ButtonsArrayNewAllocation() As Button(,)
        Dim buttonArray As Button(,) = New Button(gameSize - 1, gameSize - 1) {}
        Dim row As Byte, col As Byte
        For row = 0 To buttonArray.GetLength(0) - 1
            For col = 0 To buttonArray.GetLength(1) - 1
                buttonArray(row, col) = New Button()
            Next
        Next
        Return buttonArray
    End Function

и помимо всего прочего прописываю два события:

Код


Private Sub ButtonsArrayMouseEnter(ByVal sender As Object, ByVal e As EventArgs)
        Dim buttonTag As Integer = CInt((DirectCast(sender, Button).Tag))
        Dim row As Integer = (buttonTag / gameSize) + 1
        Dim col As Integer = (buttonTag Mod gameSize) + 1
        For i As Integer = 0 To gameSize - 1
            If buttonArray(row, i).Text = "X" Then
                buttonArray(row, i).BackColor = Color.LightSkyBlue
            End If
            If buttonArray(i, col).Text = "X" Then
                buttonArray(i, col).BackColor = Color.LightSkyBlue
            End If
        Next
        If row = col Then
            For i As Integer = 0 To gameSize - 1
                If buttonArray(i, i).Text = "X" Then
                    buttonArray(i, i).BackColor = Color.LightSkyBlue
                End If
            Next
        End If
        If row + col = gameSize - 1 Then
            For i As Integer = 0 To gameSize - 1
                If buttonArray(i, gameSize - i - 1).Text = "X" Then
                    buttonArray(i, gameSize - i - 1).BackColor = Color.LightSkyBlue
                End If
            Next
        End If
    End Sub

    Private Sub ButtonsArrayMouseLeave(ByVal sender As Object, ByVal e As EventArgs)
        Dim buttonTag As Integer = CInt((DirectCast(sender, Button).Tag))
        Dim row As Integer = buttonTag / gameSize
        Dim col As Integer = buttonTag Mod gameSize
        For i As Integer = 0 To gameSize - 1
            buttonArray(row, i).BackColor = Color.Yellow
            buttonArray(i, col).BackColor = Color.Yellow
        Next
        If row = col Then
            For i As Integer = 0 To gameSize - 1
                buttonArray(i, i).BackColor = Color.Yellow
            Next
        End If
        If row + col = gameSize - 1 Then
            For i As Integer = 0 To gameSize - 1
                buttonArray(i, gameSize - i - 1).BackColor = Color.Yellow
            Next
        End If
    End Sub

прога компилируется! запускается! но после какогота времяни хождения курсора по кнопкам комп выкидывает ошибку : "Индекс вышел за границы массива!" Что не так

Rififi

Дата 20.7.2008, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1254
Регистрация: 9.3.2008

Репутация: 1
Всего: 36

Помогите найти баг
и что ты от нас хочешь, карту и компас?

запускай прогу в отладочном режиме, как только произойдёт исключение отладчик выбросит тебя в код.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »