Создать форм 2 для GAME OVER Создать форм 3 для поздравления победителя. - презентация

1

2

3 Создать форм 2 для GAME OVER

4 Создать форм 3 для поздравления победителя

5 Двойной щелчок по форме В разделе Public объявляем переменную с количеством жизней : Public Class Form1 Dim A As Integer

6 Двойной щелчок по форме, пишем процедуру для события Form1_Load Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load A = 3

7 Выбираем событие для label1 – MouseEnter ( наведение мыши ) Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter A = A - 1 MsgBox(A,, " осталась жизней ") beep() If A = 0 Then Form3.Show() Me.Hide() End If End Sub

8 Для всех остальных лейблов то же самое

9 Private Sub Label3_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.MouseEnter Form2.Show() Me.Hide() End Sub