Самоучитель VBA


         

Пример сообщения о результате игры


/p>


Рис. У11.3. Пример сообщения о результате игры

' Переменные уровня модуля

'

Dim Поле (1 То 3, 1 То 3) As Ob j ect

Dim Статус(1 To 3, 1 To 3) As Integer

Dim k As Integer

Dim i As Integer

Dim j As Integer

Dim Su(0 To 4, 0 To 4} As Integer

'

Private Sub CommandButtonl_Click()

' Процедура переигрывания

'НачальноеСостояние

End Sub

'

Private Sub CoirniandButton2_Click()

'

' Закрытие диалогового окна

'

UserForml.Hide

End Sub

Private Sub Labell_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Inf As Boolean

If Статус(1, 1) = 0 Then

Поле(1, 1).Picture = LoadPicture("cross.bmp")

Статус(1, 1) = 1

k = k + 1

Проверка Inf

If Inf = True Then Exit Sub

Strategy

Проверка Inf

If Inf = True Then Exit Sub

End If

End Sub

'

Private Sub Label2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Inf As Boolean

If Статус(1, 2) = 0 Then

Поле(1, 2).Picture = LoadPicture("cross.bmp")

Статус(1, 2) = 1

k = k + 1

Проверка Inf

If Inf = True Then Exit Sub

Strategy

Проверка Inf

If Inf = True Then Exit Sub

End If

End Sub

'

Private Sub Label3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Inf As Boolean

If Статус(1, 3) = 0 Then

Поле(1, 3).Picture = LoadPicture("cross.bmp")

Статус(1, 3) = 1

k = k + 1

'Проверка Inf

If Inf = True Then Exit Sub

Strategy

'Проверка Inf

If Inf = True Then Exit Sub End If End Sub

Private Sub Label4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Inf As Boolean

If Статус(2, 1) = 0 Then

Поле(2, 1).Picture = LoadPicture("cross.bmp")

Статус(2, 1) = 1

k = k + 1

'Проверка Inf

If Inf = True Then Exit Sub

Strategy

'Проверка Inf

If Inf = True Then Exit Sub End If

End Sub

'

Private Sub

Label5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Inf As Boolean

If Статус(2, 2) = 0 Then

Поле(2, 2).Picture = LoadPicture("cross.bmp")

Статус(2, 2) = 1

k = k + 1

'Проверка Inf

If Inf = True Then Exit Sub

Содержание  Назад  Вперед