8. Керівництво системного програміста
Для коректного функціонування всі файли ігрової програми мають знаходитися в одній теці на жорсткому диску персонального комп’ютера. В теці з програмою мають знаходитися такі файли:
Познавальные Игры.exe
Книга рекордов.mdb
fonfo.mp3
fonfru.mp3
Fonovaya_muzika_-_iz_m_f_Masha_i_Medved_minusovka__(get-tune.net).mp3
Vigr.mp3
Неизвестен_-_Фоновая_музыка_для_игр_-_(mp3poisk.net) .mp3
Правильно.mp3
Фонвремена.mp3
Фонзверьки.mp3
фонтранспорт.mp3
Для можливості відображення книги рекордів в текстовому процесорі MS Word та табличному процесорі MS Excel необхідно інсталювати на персональний комп’ютер ліцензійні версії пакету MS Office.
ЛІТЕРАТУРА
Методичні вказівки з курсового проектування по дисципліні «Прикладне програмування» / М.А. Бондаренко — Харків: УІПА, 2003. - 28 с.
Методичні вказівки з організації та планування самостійної роботи студентів з дисципліни «Прикладне програмування» за кредитно-модульною організацією навчального процесу на 2 курсі. Для спеціальності 6.010100.36 «Професійне навчання. Комп’ютерні технології в управлінні та навчанні» / Т.В. Ящун. – Харків: УІПА, 2008. – 125 с.
Волченков Н.Г. Программирование на Visual Basic 6: В 3-х ч. – М.: ИНФРА-М, 2002. – 288 с.
Проценко В.С., Чаленко П.И., Сорока Р.А. Техника программирования. - К.: Выща шк., 1990 – 183 с.
Фролов Г.Д., Кузнецов Э.И. Элементы информатики. - М.: Высш. шк., 1989 – 304 с.
Симпсон Г. Профессиональная работа на персональном компьютере. - Финансы и статистика, 1988. - 226с.
Корнелл Г., Моррисон Дж. Программирование на VB .NET: учебный курс. – Спб.: Питер, 2002. – 400 с.
Самоучитель Visual Basic .NET / Д. Зак. – Киев: BHV; Спб.: Питер, 2003. – 558 с.
Поль Киммел. Visual Basic .NET. Искусство программирования / Пер. с англ. – Спб.: ООО «ДиасофтЮП», 2003. – 720 с.
ДОДАТОК
Титульна форма «Главная»
Public Class Главная
Private Sub Главная_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim filename2 As String = Application.StartupPath + "\" + "vigr.mp3"
AxWindowsMediaPlayer1.URL = filename2
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Регистрация.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Об_Авторе.Show()
Me.Hide()
End Sub
End Class
Форма інформації про розробника гри «Об Авторе»
Public Class Об_Авторе
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Главная.Show()
End Sub
Private Sub Об_Авторе_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Форма «Реєстрації»
Public Class Регистрация
Private Sub Регистрация_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Clear()
End Sub
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Введите свои данные", MsgBoxStyle.Critical, "Внимание, ошибка!")
Else
n_i = TextBox1.Text
Form1.Label1.Text = CStr("Профиль: " + n_i)
Me.Hide()
Form1.Show()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim MyDialog As New OpenFileDialog
MyDialog.Filter = " text(*.txt)|*.txt"
Timer1.Enabled = True
Timer1.Start()
If MyDialog.ShowDialog = DialogResult.OK Then
Dim Temp As String = MyDialog.Filter.ToUpper
If Temp.EndsWith("TXT") Then
Dim objStreamReader As System.IO.StreamReader
objStreamReader = System.IO.File.OpenText(MyDialog.FileName)
Dim strReader As String
strReader = objStreamReader.ReadLine
Name = CStr(strReader)
strReader = objStreamReader.ReadLine
p_o = CStr(strReader)
strReader = objStreamReader.ReadLine
objStreamReader.Close()
End If
End If
End Sub
End Class
Форма «Головне меню»
Public Class Form1
Private Sub ВременаГодаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВременаГодаToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()
Времена_Года.Show()
Me.Hide()
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Главная.AxWindowsMediaPlayer1.close()
Кто_что_ест.Show()
Me.Hide()
End Sub
Private Sub ТранспортToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ТранспортToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()
Транспорт.Show()
Me.Hide()
End Sub
Private Sub ФруктовоеАссортиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ФруктовоеАссортиToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()
Фруктовое_Ассорти.Show()
Me.Hide()
End Sub
Private Sub ФруктыИОвощиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ФруктыИОвощиToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()
Фрукты_и_Овощи.Show()
Me.Hide()
End Sub
Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub ОбАвтореToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Об_Авторе.Show()
End Sub
Private Sub ИнформацияToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ИнформацияToolStripMenuItem.Click
Информация_об_Играх.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Главная.AxWindowsMediaPlayer1.close()
Времена_Года.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Главная.AxWindowsMediaPlayer1.close()
Транспорт.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Главная.AxWindowsMediaPlayer1.close()
Кто_что_ест.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Главная.AxWindowsMediaPlayer1.close()
Фруктовое_Ассорти.Show()
Me.Hide()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Главная.AxWindowsMediaPlayer1.close()
Фрукты_и_Овощи.Show()
Me.Hide()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
Dim SaveFile As New SaveFileDialog
SaveFile.DefaultExt = "*.txt"
SaveFile.Filter = "txt Files|*.txt"
Timer2.Stop()
Timer2.Enabled = False
If (SaveFile.ShowDialog() = DialogResult.OK) And (SaveFile.FileName.Length) > 0 Then
Dim objStreamWrite As System.IO.StreamWriter
objStreamWrite = System.IO.File.CreateText(SaveFile.FileName)
objStreamWrite.WriteLine(Name)
objStreamWrite.WriteLine(p_o)
objStreamWrite.Close()
End If
End Sub
Private Sub РекордыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles РекордыToolStripMenuItem.Click
Рекорды.Show()
Me.Hide()
End Sub
Private Sub ЗагрузитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗагрузитьToolStripMenuItem.Click
Dim MyDialog As New OpenFileDialog
MyDialog.Filter = " text(*.txt)|*.txt"
Timer1.Enabled = True
Timer1.Start()
If MyDialog.ShowDialog = DialogResult.OK Then
Dim Temp As String = MyDialog.Filter.ToUpper
If Temp.EndsWith("TXT") Then
Dim objStreamReader As System.IO.StreamReader
objStreamReader = System.IO.File.OpenText(MyDialog.FileName)
Dim strReader As String
strReader = objStreamReader.ReadLine
Name = CStr(strReader)
strReader = objStreamReader.ReadLine
p_o = CStr(strReader)
strReader = objStreamReader.ReadLine
objStreamReader.Close()
End If
End If
End Sub
Private Sub ВклToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВклToolStripMenuItem.Click
Dim filename2 As String = Application.StartupPath + "\" + "vigr.mp3"
Главная.AxWindowsMediaPlayer1.URL = filename2
End Sub
Private Sub ВыклToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыклToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()
End Sub
End Class
Форма відображення статистики «Рекорды»
Public Class Рекорды
Structure records
<VBFixedString(10)>
Public n_i As String
Public p_o As Integer
End Structure
Private Sub Рекорды_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "Книга_рекордовDataSet1.ЛДВ_рекорды". При необходимости она может быть перемещена или удалена.
Me.ЛДВ_рекордыTableAdapter.Fill(Me.Книга_рекордовDataSet.ЛДВ_рекорды)
'TODO: данная строка кода позволяет загрузить данные в таблицу "Книга_рекордовDataSet1.ЛДВ_рекорды". При необходимости она может быть перемещена или удалена.
Dim anyrow As DataRow = Книга_рекордовDataSet.ЛДВ_рекорды.NewRow
anyrow.Item(1) = n_i.ToString
anyrow.Item(2) = p_o.ToString
anyrow.Item(3) = Now.ToString
Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Add(anyrow) 'добавление строки в таблицу
ЛДВ_рекордыTableAdapter.Update(Книга_рекордовDataSet) 'обновление набора данных РекордыDataSet1
ЛДВ_рекордыTableAdapter.Fill(Книга_рекордовDataSet.ЛДВ_рекорды)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim objword As New Microsoft.Office.Interop.Word.Application
Dim objDoc As New Microsoft.Office.Interop.Word.Document
Dim n, i As Integer 'объявление вспомогательных переменных
objword.Visible = True 'приложение Word становиться видимым
If (Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count - 1) >= 0 Then 'если БД не пустая
' objword = CreateObject("Word.Application") 'создание приложения типа Word
objDoc = objword.Documents.Add 'Добавляет новый документ в Word
objDoc.Activate() 'делает новый документ активным
With objDoc.Paragraphs.Item(1)
.Range.Text = "Книга рекордов" 'вводит текст "Книга рекордов"
.Range.Font.Bold = True 'Делает шрифт жирным
End With
objDoc.Paragraphs.Add() 'добавляет новый абзац
objDoc.Tables.Add(objDoc.Paragraphs.Item(2).Range, Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count + 1, Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count)
'создает таблицу размером с БД
'изменение стиля первой строки
With objDoc.Tables.Item(1)
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
objDoc.Tables(1).Style = "Сетка таблицы"
objDoc.Tables(1).Range.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter
'вывод названя столбцов БД в таблицу
For i = 1 To Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count
objDoc.Tables.Item(1).Cell(1, i).Range.Text = Книга_рекордовDataSet.ЛДВ_рекорды.Columns(i - 1).ColumnName
objDoc.Tables.Item(1).Cell(1, i).Range.Font.Size = 14
Next i
'Вывод записей БД в таблицу
For i = 2 To Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count + 1
For n = 1 To Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count
objDoc.Tables.Item(1).Cell(i, n).Range.Text = Книга_рекордовDataSet.ЛДВ_рекорды.Item(i - 2).Item(n - 1)
Next n
Next i
objDoc.Paragraphs.Item(1).Range.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter 'устанавливает выравнивание первого абзаца по середине
objDoc.Paragraphs.Item(1).Range.Font.Size = 20 'устанавливает размер шрифта первого абзаца
objDoc.SaveAs2(FileName:="таблица1.doc")
Else 'если база данных пустая
MsgBox("База данных пустая!!!", MsgBoxStyle.Critical, "!!!")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objExcel As New Microsoft.Office.Interop.Excel.Application
objExcel.Visible = True 'видимый
objExcel.SheetsInNewWorkbook = 1
objExcel.Workbooks.Add()
Dim osheet As New Microsoft.Office.Interop.Excel.Worksheet
osheet = objExcel.ActiveWorkbook.ActiveSheet
Dim i, j As Integer
With osheet
.Range("A1:b1").Select()
objExcel.Selection.merge()
objExcel.Selection.value = "Таблица рекордов"
objExcel.Selection.HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignCenter
objExcel.Selection.font.bold = True
For j = 1 To 2
.Cells(2, j).value = Книга_рекордовDataSet.ЛДВ_рекорды.Columns(j).ColumnName
Next j
For i = 0 To Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count - 1
For j = 1 To 2
.Cells(i + 3, j).value = Книга_рекордовDataSet.ЛДВ_рекорды.Item(i).Item(j)
Next j
Next i
End With
Dim str_ROW_count As String = Trim(CStr(Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count + 2))
Dim st_range As String = "A1:B" & str_ROW_count
osheet.Range(st_range).Select()
objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
objExcel.Charts.Add()
With objExcel.ActiveChart
.ChartType = Microsoft.Office.Interop.Excel.XlChartType.xlColumnClustered
.SetSourceData(Source:=objExcel.Sheets("Лист1").range(st_range))
.PlotBy = Microsoft.Office.Interop.Excel.XlRowCol.xlColumns
.SeriesCollection(1).xValues = "=Лист1!R3C1:r" + str_ROW_count + "C1"
.SeriesCollection(1).Values = "=Лист1!R3C2:r" + str_ROW_count + "C2"
' "=Лист1!R3C2:R8C2"
.SeriesCollection(1).name = "=""Достижения"""
.Location(Where:=Microsoft.Office.Interop.Excel.XlChartLocation.xlLocationAsNewSheet)
.HasTitle = True
.ChartTitle.Characters.Text = "Таблица рекордов"
.Axes(Microsoft.Office.Interop.Excel.XlAxisType.xlCategory).HasTitle = True
.Axes(Microsoft.Office.Interop.Excel.XlAxisType.xlCategory).AxisTitle.Characters.Text = "Игрок"
.Axes(Microsoft.Office.Interop.Excel.XlAxisType.xlValue).HasTitle = True
.Axes(Microsoft.Office.Interop.Excel.XlAxisType.xlValue).AxisTitle.Characters.Text = "Достижения"
.HasLegend = False
End With
objExcel.ActiveWorkbook.SaveAs(Filename:="Рекорды.xlsx")
objExcel.ActiveWorkbook.Close()
objExcel = Nothing
objExcel.Quit()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form1.Show()
Me.Hide()
End Sub
End Class
Форма «Информация об играх»
Public Class Информация_об_Играх
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Form1.Show()
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
Форма гри «Времена года»
Public Class Времена_года
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
AxWindowsMediaPlayer1.close()
Me.Hide()
Form1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Информация_Времена_Года.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Времена_Года_Игровое_поле_.Show()
Me.Hide()
End Sub
Private Sub Времена_Года_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim muzica As String = Application.StartupPath + "\" + "фонвремена.mp3"
AxWindowsMediaPlayer1.URL = muzica
End Sub
End Class
Форма інформації про ігри «Правила»
Public Class Информация_Времена_Года
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Времена_Года_Игровое_поле_.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
Времена_Года.Show()
End Sub
Private Sub Информация_Времена_Года_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Времена_Года_Игровое_поле_
Public flag As Boolean
Public flag2 As Boolean
Public flag3 As Boolean
Public flag4 As Boolean
Private Sub Времена_Года_Игровое_поле__Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If flagok = True Then
Me.Controls.Clear()
InitializeComponent()
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label1.Visible = False
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Label2.Visible = False
End Sub
Private Sub PictureBox10_MouseMove_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove
If PictureBox10.Location.X > 465 And PictureBox10.Location.X < 657 And PictureBox10.Location.Y > 255 And PictureBox10.Location.Y < 429 Then
p_o += 1
k_o += 1
PictureBox8.Visible = False
PictureBox10.Location = New System.Drawing.Point(496, 433)
Label1.Visible = True
Timer3.Enabled = True
PictureBox10.Enabled = False
flag2 = False
PictureBox10.BorderStyle = BorderStyle.None
ElseIf PictureBox10.Location.X > 112 And PictureBox10.Location.X < 304 And PictureBox10.Location.Y > 25 And PictureBox10.Location.Y < 201 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox10.Location.X > 465 And PictureBox10.Location.X < 657 And PictureBox10.Location.Y > 25 And PictureBox10.Location.Y < 201 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox10.Location.X > 112 And PictureBox10.Location.X < 304 And PictureBox10.Location.Y > 255 And PictureBox10.Location.Y < 429 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag2 = True
End If
End Sub
Private Sub PictureBox10_MouseDown_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown
sender.cursor() = Cursors.Hand
PictureBox10.BorderStyle = BorderStyle.Fixed3D
flag2 = True
PictureBox10.BringToFront()
End Sub
Private Sub PictureBox10_MouseUp_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseUp
sender.cursor() = Cursors.Default
PictureBox10.BorderStyle = BorderStyle.None
flag2 = False
End Sub
Private Sub Времена_Года_Игровое_поле__MouseMove_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If flag = True Then
PictureBox9.Location = New System.Drawing.Point(e.Location.X - PictureBox9.Width / 2, e.Location.Y - PictureBox9.Height / 2)
End If
If flag2 = True Then
PictureBox10.Location = New System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y - PictureBox10.Height / 2)
End If
If flag3 = True Then
PictureBox11.Location = New System.Drawing.Point(e.Location.X - PictureBox11.Width / 2, e.Location.Y - PictureBox11.Height / 2)
End If
If flag4 = True Then
PictureBox12.Location = New System.Drawing.Point(e.Location.X - PictureBox12.Width / 2, e.Location.Y - PictureBox12.Height / 2)
End If
End Sub
Private Sub PictureBox9_MouseMove_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMove
If PictureBox9.Location.X > 112 And PictureBox9.Location.X < 304 And PictureBox9.Location.Y > 25 And PictureBox9.Location.Y < 201 Then
p_o += 1
k_o += 1
PictureBox7.Visible = False
PictureBox9.Location = New System.Drawing.Point(142, 204)
Label1.Visible = True
Timer3.Enabled = True
PictureBox9.Enabled = False
flag = False
PictureBox9.BorderStyle = BorderStyle.None
ElseIf PictureBox9.Location.X > 465 And PictureBox9.Location.X < 657 And PictureBox9.Location.Y > 255 And PictureBox9.Location.Y < 429 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox9.Location.X > 465 And PictureBox9.Location.X < 657 And PictureBox9.Location.Y > 25 And PictureBox9.Location.Y < 201 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox9.Location.X > 112 And PictureBox9.Location.X < 304 And PictureBox9.Location.Y > 255 And PictureBox9.Location.Y < 429 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag = True
End If
End Sub
Private Sub PictureBox9_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseUp
sender.cursor() = Cursors.Default
PictureBox9.BorderStyle = BorderStyle.None
flag = False
End Sub
Private Sub PictureBox9_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDown
sender.cursor() = Cursors.Hand
PictureBox9.BorderStyle = BorderStyle.Fixed3D
flag = True
PictureBox9.BringToFront()
End Sub
Private Sub PictureBox11_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown
sender.cursor() = Cursors.Hand
PictureBox11.BorderStyle = BorderStyle.Fixed3D
flag3 = True
PictureBox11.BringToFront()
End Sub
Private Sub PictureBox11_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseUp
sender.cursor() = Cursors.Default
PictureBox11.BorderStyle = BorderStyle.None
flag3 = False
End Sub
Private Sub PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMove
If PictureBox12.Location.X > 112 And PictureBox12.Location.X < 304 And PictureBox12.Location.Y > 255 And PictureBox12.Location.Y < 429 Then
p_o += 1
k_o += 1
PictureBox4.Visible = False
PictureBox12.Location = New System.Drawing.Point(140, 432)
Label1.Visible = True
Timer3.Enabled = True
PictureBox12.Enabled = False
flag4 = False
PictureBox12.BorderStyle = BorderStyle.None
ElseIf PictureBox12.Location.X > 112 And PictureBox12.Location.X < 304 And PictureBox12.Location.Y > 25 And PictureBox12.Location.Y < 201 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox12.Location.X > 465 And PictureBox12.Location.X < 657 And PictureBox12.Location.Y > 255 And PictureBox12.Location.Y < 429 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox12.Location.X > 465 And PictureBox12.Location.X < 657 And PictureBox12.Location.Y > 25 And PictureBox12.Location.Y < 201 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag4 = True
End If
End Sub
Private Sub PictureBox12_MouseDown_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown
sender.cursor() = Cursors.Hand
PictureBox12.BorderStyle = BorderStyle.Fixed3D
flag4 = True
PictureBox12.BringToFront()
End Sub
Private Sub PictureBox12_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseUp
sender.cursor() = Cursors.Default
PictureBox12.BorderStyle = BorderStyle.None
flag4 = False
End Sub
Private Sub PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMove
If PictureBox11.Location.X > 465 And PictureBox11.Location.X < 657 And PictureBox11.Location.Y > 25 And PictureBox11.Location.Y < 201 Then
p_o += 1
k_o += 1
PictureBox6.Visible = False
PictureBox11.Location = New System.Drawing.Point(496, 204)
Label1.Visible = True
Timer3.Enabled = True
PictureBox11.Enabled = False
flag3 = False
PictureBox11.BorderStyle = BorderStyle.None
ElseIf PictureBox11.Location.X > 112 And PictureBox11.Location.X < 304 And PictureBox11.Location.Y > 25 And PictureBox11.Location.Y < 201 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox11.Location.X > 465 And PictureBox11.Location.X < 657 And PictureBox11.Location.Y > 255 And PictureBox11.Location.Y < 429 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox11.Location.X > 112 And PictureBox11.Location.X < 304 And PictureBox11.Location.Y > 255 And PictureBox11.Location.Y < 429 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag3 = True
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Времена_года.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
End Class
Public Class Транспорт
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Транспорт2.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Транспорт_игра1.Show()
Me.Hide()
End Sub
Private Sub Транспорт_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim filenametr As String = Application.StartupPath + "\" + "фонтранспорт.mp3"
AxWindowsMediaPlayer1.URL = filenametr
End Sub
End Class
Public Class Транспорт2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Транспорт.Show()
Me.Hide()
End Sub
Private Sub Транспорт2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Транспорт_игра1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"
wmp.URL = filename3
MessageBox.Show("Правильно")
p_o += 1
k_o += 1
транспорт_игра2.Show()
Me.Hide()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Транспорт_игра1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class транспорт_игра2
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"
Транспорт_игра1.wmp.URL = filename3
MessageBox.Show("Правильно")
p_o += 1
k_o += 1
Me.Hide()
транспорт_игра3.Show()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub транспорт_игра2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class транспорт_игра3
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"
Транспорт_игра1.wmp.URL = filename3
MessageBox.Show("Правильно")
p_o += 1
k_o += 1
Трансорт_игра_4.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub транспорт_игра3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Трансорт_игра_4
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"
Транспорт_игра1.wmp.URL = filename3
MessageBox.Show("Правильно")
p_o += 1
k_o += 1
Трансорт_игра_5.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Трансорт_игра_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Трансорт_игра_5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"
Транспорт_игра1.wmp.URL = filename3
MessageBox.Show("Правильно")
p_o += 1
k_o += 1
Трансорт_игра_6.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Трансорт_игра_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Трансорт_игра_6
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"
Транспорт_игра1.wmp.URL = filename3
MessageBox.Show("Правильно")
p_o += 1
k_o += 1
Me.Hide()
Трансорт_игра_7.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Трансорт_игра_6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Трансорт_игра_7
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"
Транспорт_игра1.wmp.URL = filename3
MessageBox.Show("Правильно")
p_o += 1
k_o += 1
Me.Hide()
Трансорт_игра_8.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Трансорт_игра_7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Трансорт_игра_8
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"
Транспорт_игра1.wmp.URL = filename3
MessageBox.Show("Правильно")
p_o += 1
k_o += 1
Me.Hide()
Трансорт_игра_9.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
k_o += 1
MessageBox.Show("Неправильный ответ")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Трансорт_игра_8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Трансорт_игра_9
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Транспорт_игра1.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Транспорт.AxWindowsMediaPlayer1.close()
Me.Hide()
Form1.Show()
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Трансорт_игра_9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Кто_что_ест
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Кто_что_ест2.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Игра_Кто_что_ест.Show()
Me.Hide()
End Sub
Private Sub Кто_что_ест_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim filenametr As String = Application.StartupPath + "\" + "фонзверьки.mp3"
AxWindowsMediaPlayer1.URL = filenametr
End Sub
End Class
Public Class Кто_что_ест2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Кто_что_ест.Show()
Me.Hide()
End Sub
Private Sub Кто_что_ест2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Игра_Кто_что_ест
Public flag As Boolean
Public flag2 As Boolean
Public flag3 As Boolean
Public flag4 As Boolean
Public flag5 As Boolean
Private Sub PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMove
If PictureBox11.Location.X > 36 And PictureBox11.Location.X < 156 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then
p_o += 1
k_o += 1
PictureBox10.Visible = False
PictureBox11.Location = New System.Drawing.Point(36, 150)
Label1.Visible = True
Timer3.Enabled = True
PictureBox11.Enabled = False
PictureBox11.BorderStyle = BorderStyle.None
flag = False
ElseIf PictureBox11.Location.X > 458 And PictureBox11.Location.X < 580 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox11.Location.X > 178 And PictureBox11.Location.X < 300 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox11.Location.X > 323 And PictureBox11.Location.X < 439 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox11.Location.X > 599 And PictureBox11.Location.X < 730 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag = True
End If
End Sub
Private Sub PictureBox11_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseUp
sender.cursor() = Cursors.Default
PictureBox11.BorderStyle = BorderStyle.None
flag = False
End Sub
Private Sub PictureBox11_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown
sender.cursor() = Cursors.Hand
PictureBox11.BorderStyle = BorderStyle.Fixed3D
flag = True
PictureBox11.BringToFront()
End Sub
Private Sub PictureBox12_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown
sender.cursor() = Cursors.Hand
PictureBox12.BorderStyle = BorderStyle.Fixed3D
flag2 = True
PictureBox12.BringToFront()
End Sub
Private Sub PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMove
If PictureBox12.Location.X > 458 And PictureBox12.Location.X < 580 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then
p_o += 1
k_o += 1
PictureBox6.Visible = False
PictureBox12.Location = New System.Drawing.Point(458, 150)
Label1.Visible = True
Timer3.Enabled = True
PictureBox12.Enabled = False
PictureBox12.BorderStyle = BorderStyle.None
flag2 = False
ElseIf PictureBox12.Location.X > 36 And PictureBox12.Location.X < 156 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox12.Location.X > 178 And PictureBox12.Location.X < 300 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox12.Location.X > 323 And PictureBox12.Location.X < 439 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox12.Location.X > 599 And PictureBox12.Location.X < 730 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag2 = True
End If
End Sub
Private Sub PictureBox12_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseUp
sender.cursor() = Cursors.Default
PictureBox12.BorderStyle = BorderStyle.None
flag2 = False
End Sub
Private Sub PictureBox13_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseDown
sender.cursor() = Cursors.Hand
PictureBox13.BorderStyle = BorderStyle.Fixed3D
flag3 = True
PictureBox13.BringToFront()
End Sub
Private Sub PictureBox13_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseMove
If PictureBox13.Location.X > 178 And PictureBox13.Location.X < 300 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then
p_o += 1
k_o += 1
PictureBox9.Visible = False
PictureBox13.Location = New System.Drawing.Point(178, 150)
Label1.Visible = True
Timer3.Enabled = True
PictureBox13.Enabled = False
PictureBox13.BorderStyle = BorderStyle.None
flag3 = False
ElseIf PictureBox13.Location.X > 36 And PictureBox13.Location.X < 156 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox13.Location.X > 323 And PictureBox13.Location.X < 439 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox13.Location.X > 458 And PictureBox13.Location.X < 580 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox13.Location.X > 599 And PictureBox13.Location.X < 730 And PictureBox13.Location.Y > 140 And PictureBox13.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag3 = True
End If
End Sub
Private Sub PictureBox13_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseUp
sender.cursor() = Cursors.Default
PictureBox13.BorderStyle = BorderStyle.None
flag3 = False
PictureBox13.BringToFront()
End Sub
Private Sub PictureBox14_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseUp
sender.cursor() = Cursors.Default
PictureBox14.BorderStyle = BorderStyle.None
flag4 = False
End Sub
Private Sub PictureBox14_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseDown
sender.cursor() = Cursors.Hand
PictureBox14.BorderStyle = BorderStyle.Fixed3D
flag4 = True
PictureBox14.BringToFront()
End Sub
Private Sub PictureBox14_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseMove
If PictureBox14.Location.X > 323 And PictureBox14.Location.X < 439 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then
p_o += 1
k_o += 1
PictureBox8.Visible = False
PictureBox14.Location = New System.Drawing.Point(323, 150)
Label1.Visible = True
Timer3.Enabled = True
PictureBox14.Enabled = False
PictureBox14.BorderStyle = BorderStyle.None
flag4 = False
ElseIf PictureBox14.Location.X > 36 And PictureBox14.Location.X < 156 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox14.Location.X > 178 And PictureBox14.Location.X < 300 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox14.Location.X > 458 And PictureBox14.Location.X < 580 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox14.Location.X > 599 And PictureBox14.Location.X < 730 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag4 = True
End If
End Sub
Private Sub PictureBox15_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox15.MouseDown
sender.cursor() = Cursors.Hand
PictureBox15.BorderStyle = BorderStyle.Fixed3D
flag5 = True
PictureBox15.BringToFront()
End Sub
Private Sub PictureBox15_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox15.MouseUp
sender.cursor() = Cursors.Default
PictureBox15.BorderStyle = BorderStyle.None
flag5 = False
End Sub
Private Sub Игра_Кто_что_ест_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If flag = True Then
PictureBox11.Location = New System.Drawing.Point(e.Location.X - PictureBox11.Width / 2, e.Location.Y - PictureBox11.Height / 2)
End If
If flag2 = True Then
PictureBox12.Location = New System.Drawing.Point(e.Location.X - PictureBox12.Width / 2, e.Location.Y - PictureBox12.Height / 2)
End If
If flag3 = True Then
PictureBox13.Location = New System.Drawing.Point(e.Location.X - PictureBox13.Width / 2, e.Location.Y - PictureBox13.Height / 2)
End If
If flag4 = True Then
PictureBox14.Location = New System.Drawing.Point(e.Location.X - PictureBox14.Width / 2, e.Location.Y - PictureBox14.Height / 2)
End If
If flag5 = True Then
PictureBox15.Location = New System.Drawing.Point(e.Location.X - PictureBox15.Width / 2, e.Location.Y - PictureBox15.Height / 2)
End If
If PictureBox11.Location = New System.Drawing.Point(36, 150) And PictureBox15.Location = New System.Drawing.Point(599, 150) And
PictureBox14.Location = New System.Drawing.Point(323, 150) And PictureBox13.Location = New System.Drawing.Point(178, 150) And
PictureBox12.Location = New System.Drawing.Point(458, 150) Then
Button2.Visible = True
Label3.Visible = True
End If
End Sub
Private Sub PictureBox15_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox15.MouseMove
If PictureBox15.Location.X > 599 And PictureBox15.Location.X < 730 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then
p_o += 1
k_o += 1
PictureBox7.Visible = False
PictureBox15.Location = New System.Drawing.Point(599, 150)
Label1.Visible = True
Timer3.Enabled = True
PictureBox15.Enabled = False
PictureBox15.BorderStyle = BorderStyle.None
flag5 = False
ElseIf PictureBox15.Location.X > 458 And PictureBox15.Location.X < 580 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag5 = True
ElseIf PictureBox15.Location.X > 178 And PictureBox15.Location.X < 300 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag5 = True
ElseIf PictureBox15.Location.X > 323 And PictureBox15.Location.X < 439 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag5 = True
ElseIf PictureBox15.Location.X > 36 And PictureBox15.Location.X < 156 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then
Label2.Visible = True
Timer4.Enabled = True
k_o += 1
flag5 = True
End If
End Sub
Private Sub Игра_Кто_что_ест_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If flagok = True Then
Me.Controls.Clear()
InitializeComponent()
End If
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Label2.Visible = False
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label1.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Refresh()
Form1.Show()
Me.Hide()
Кто_что_ест.AxWindowsMediaPlayer1.close()
End Sub
End Class
Public Class Фруктовое_Ассорти
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Фруктовое_Ассорти2.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Show()
Me.Hide()
AxWindowsMediaPlayer1.close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
фрукты_игра.show()
Me.Hide()
Фрукты_игра.Update()
Фрукты_игра2.Update()
End Sub
Private Sub Фруктовое_Ассорти_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim filaname As String = Application.StartupPath + "\" + "fonfru.mp3"
AxWindowsMediaPlayer1.URL = filaname
End Sub
End Class
Public Class Фруктовое_Ассорти2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Фруктовое_Ассорти.Show()
Me.Hide()
End Sub
Private Sub Фруктовое_Ассорти2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Фрукты_игра
Public flag As Boolean
Public flag2 As Boolean
Public flag3 As Boolean
Public flag4 As Boolean
Private Sub Фрукты_игра_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If flag = True Then
PictureBox2.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y - PictureBox2.Height / 2)
PictureBox2.BringToFront()
End If
If flag2 = True Then
PictureBox6.Location = New System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y - PictureBox6.Height / 2)
PictureBox6.BringToFront()
End If
If flag3 = True Then
PictureBox7.Location = New System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y - PictureBox7.Height / 2)
PictureBox7.BringToFront()
End If
If flag4 = True Then
PictureBox8.Location = New System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y - PictureBox8.Height / 2)
PictureBox8.BringToFront()
End If
If PictureBox2.Location = New System.Drawing.Point(524, 439) And PictureBox6.Location = New System.Drawing.Point(151, 436) And
PictureBox7.Location = New System.Drawing.Point(646, 143) And PictureBox8.Location = New System.Drawing.Point(15, 149) Then
Button1.Visible = True
Button2.Visible = True
End If
End Sub
Private Sub Фрукты_игра_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If flagok = True Then
Me.Controls.Clear()
InitializeComponent()
End If
End Sub
Private Sub PictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
sender.cursor() = Cursors.Hand
PictureBox2.BorderStyle = BorderStyle.Fixed3D
flag = True
End Sub
Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
If PictureBox2.Location.X > 520 And PictureBox2.Location.X < 750 And PictureBox2.Location.Y > 437 And PictureBox2.Location.Y < 552 Then
p_o += 1
k_o += 1
PictureBox2.Location = New System.Drawing.Point(524, 439)
Label5.Visible = True
Label1.Visible = True
Timer1.Enabled = True
PictureBox2.Enabled = False
PictureBox2.BorderStyle = BorderStyle.None
flag = False
ElseIf PictureBox2.Location.X > 11 And PictureBox2.Location.X < 146 And PictureBox2.Location.Y > 13 And PictureBox2.Location.Y < 263 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox2.Location.X > 17 And PictureBox2.Location.X < 277 And PictureBox2.Location.Y > 433 And PictureBox2.Location.Y < 550 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox2.Location.X > 643 And PictureBox2.Location.X < 765 And PictureBox2.Location.Y > 14 And PictureBox2.Location.Y < 253 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag = True
End If
End Sub
Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
sender.cursor() = Cursors.Default
PictureBox2.BorderStyle = BorderStyle.None
flag = False
End Sub
Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove
If PictureBox6.Location.X > 17 And PictureBox6.Location.X < 277 And PictureBox6.Location.Y > 433 And PictureBox6.Location.Y < 550 Then
p_o += 1
k_o += 1
PictureBox6.Location = New System.Drawing.Point(151, 436)
Label1.Visible = True
Label6.Visible = True
Timer1.Enabled = True
PictureBox6.Enabled = False
PictureBox6.BorderStyle = BorderStyle.None
flag2 = False
ElseIf PictureBox6.Location.X > 11 And PictureBox6.Location.X < 146 And PictureBox6.Location.Y > 13 And PictureBox6.Location.Y < 263 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox6.Location.X > 520 And PictureBox6.Location.X < 750 And PictureBox6.Location.Y > 437 And PictureBox6.Location.Y < 552 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox6.Location.X > 643 And PictureBox6.Location.X < 765 And PictureBox6.Location.Y > 14 And PictureBox6.Location.Y < 253 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag2 = True
End If
End Sub
Private Sub PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp
sender.cursor() = Cursors.Default
PictureBox6.BorderStyle = BorderStyle.None
flag2 = False
End Sub
Private Sub PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown
sender.cursor() = Cursors.Hand
PictureBox6.BorderStyle = BorderStyle.Fixed3D
flag2 = True
End Sub
Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove
If PictureBox7.Location.X > 643 And PictureBox7.Location.X < 765 And PictureBox7.Location.Y > 14 And PictureBox7.Location.Y < 253 Then
p_o += 1
k_o += 1
PictureBox7.Location = New System.Drawing.Point(646, 143)
Label1.Visible = True
Label4.Visible = True
Timer1.Enabled = True
PictureBox7.Enabled = False
PictureBox7.BorderStyle = BorderStyle.None
flag3 = False
ElseIf PictureBox7.Location.X > 11 And PictureBox7.Location.X < 146 And PictureBox7.Location.Y > 13 And PictureBox7.Location.Y < 263 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox7.Location.X > 520 And PictureBox7.Location.X < 750 And PictureBox7.Location.Y > 437 And PictureBox7.Location.Y < 552 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox7.Location.X > 17 And PictureBox7.Location.X < 277 And PictureBox7.Location.Y > 433 And PictureBox7.Location.Y < 550 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag3 = True
End If
End Sub
Private Sub PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp
sender.cursor() = Cursors.Default
PictureBox7.BorderStyle = BorderStyle.None
flag3 = False
End Sub
Private Sub PictureBox7_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown
sender.cursor() = Cursors.Hand
PictureBox7.BorderStyle = BorderStyle.Fixed3D
flag3 = True
End Sub
Private Sub PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown
sender.cursor() = Cursors.Hand
PictureBox8.BorderStyle = BorderStyle.Fixed3D
flag4 = True
End Sub
Private Sub PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp
sender.cursor() = Cursors.Default
PictureBox8.BorderStyle = BorderStyle.None
flag4 = False
End Sub
Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove
If PictureBox8.Location.X > 11 And PictureBox8.Location.X < 146 And PictureBox8.Location.Y > 13 And PictureBox8.Location.Y < 263 Then
p_o += 1
k_o += 1
PictureBox8.Location = New System.Drawing.Point(15, 149)
Label1.Visible = True
Label3.Visible = True
Timer1.Enabled = True
PictureBox8.Enabled = False
PictureBox8.BorderStyle = BorderStyle.None
flag4 = False
ElseIf PictureBox8.Location.X > 643 And PictureBox8.Location.X < 765 And PictureBox8.Location.Y > 14 And PictureBox8.Location.Y < 253 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox8.Location.X > 520 And PictureBox8.Location.X < 750 And PictureBox8.Location.Y > 437 And PictureBox8.Location.Y < 552 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox8.Location.X > 17 And PictureBox8.Location.X < 277 And PictureBox8.Location.Y > 433 And PictureBox8.Location.Y < 550 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag4 = True
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Visible = False
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
label2.visible = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Фрукты_игра2.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Фруктовое_Ассорти.AxWindowsMediaPlayer1.close()
Form1.Show()
Me.Hide()
End Sub
End Class
Public Class Фрукты_игра2
Public flag As Boolean
Public flag2 As Boolean
Public flag3 As Boolean
Public flag4 As Boolean
Public flag5 As Boolean
Private Sub PictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
sender.cursor() = Cursors.Hand
PictureBox2.BorderStyle = BorderStyle.Fixed3D
flag = True
End Sub
Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
If PictureBox2.Location.X > 213 And PictureBox2.Location.X < 483 And PictureBox2.Location.Y > 9 And PictureBox2.Location.Y < 128 Then
p_o += 1
k_o += 1
PictureBox2.Location = New System.Drawing.Point(367, 12)
Label1.Visible = True
Label8.Visible = True
Timer1.Enabled = True
PictureBox2.Enabled = False
PictureBox2.BorderStyle = BorderStyle.None
flag = False
ElseIf PictureBox2.Location.X > 9 And PictureBox2.Location.X < 119 And PictureBox2.Location.Y > 9 And PictureBox2.Location.Y < 228 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox2.Location.X > 595 And PictureBox2.Location.X < 727 And PictureBox2.Location.Y > 10 And PictureBox2.Location.Y < 251 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox2.Location.X > 479 And PictureBox2.Location.X < 730 And PictureBox2.Location.Y > 409 And PictureBox2.Location.Y < 540 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag = True
ElseIf PictureBox2.Location.X > 22 And PictureBox2.Location.X < 280 And PictureBox2.Location.Y > 423 And PictureBox2.Location.Y < 543 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag = True
End If
End Sub
Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
sender.cursor() = Cursors.Default
PictureBox2.BorderStyle = BorderStyle.None
flag = False
End Sub
Private Sub PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp
sender.cursor() = Cursors.Default
PictureBox6.BorderStyle = BorderStyle.None
flag2 = False
End Sub
Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove
If PictureBox6.Location.X > 9 And PictureBox6.Location.X < 119 And PictureBox6.Location.Y > 9 And PictureBox6.Location.Y < 228 Then
p_o += 1
k_o += 1
PictureBox6.Location = New System.Drawing.Point(12, 117)
Label1.Visible = True
Label4.Visible = True
Timer1.Enabled = True
PictureBox6.Enabled = False
PictureBox6.BorderStyle = BorderStyle.None
flag2 = False
ElseIf PictureBox6.Location.X > 213 And PictureBox6.Location.X < 483 And PictureBox6.Location.Y > 9 And PictureBox6.Location.Y < 128 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox6.Location.X > 595 And PictureBox6.Location.X < 727 And PictureBox6.Location.Y > 10 And PictureBox6.Location.Y < 251 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox6.Location.X > 479 And PictureBox6.Location.X < 730 And PictureBox6.Location.Y > 409 And PictureBox6.Location.Y < 540 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag2 = True
ElseIf PictureBox6.Location.X > 22 And PictureBox6.Location.X < 280 And PictureBox6.Location.Y > 423 And PictureBox6.Location.Y < 543 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag2 = True
End If
End Sub
Private Sub PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown
sender.cursor() = Cursors.Hand
PictureBox6.BorderStyle = BorderStyle.Fixed3D
flag2 = True
End Sub
Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove
If PictureBox7.Location.X > 22 And PictureBox7.Location.X < 280 And PictureBox7.Location.Y > 423 And PictureBox7.Location.Y < 543 Then
p_o += 1
k_o += 1
PictureBox7.Location = New System.Drawing.Point(147, 427)
Label1.Visible = True
Label6.Visible = True
Timer1.Enabled = True
PictureBox7.Enabled = False
PictureBox7.BorderStyle = BorderStyle.None
flag3 = False
ElseIf PictureBox7.Location.X > 479 And PictureBox7.Location.X < 730 And PictureBox7.Location.Y > 409 And PictureBox7.Location.Y < 540 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox7.Location.X > 595 And PictureBox7.Location.X < 727 And PictureBox7.Location.Y > 10 And PictureBox7.Location.Y < 251 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox7.Location.X > 213 And PictureBox7.Location.X < 483 And PictureBox7.Location.Y > 9 And PictureBox7.Location.Y < 128 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag3 = True
ElseIf PictureBox7.Location.X > 9 And PictureBox7.Location.X < 119 And PictureBox7.Location.Y > 9 And PictureBox7.Location.Y < 228 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag3 = True
End If
End Sub
Private Sub PictureBox7_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown
sender.cursor() = Cursors.Hand
PictureBox7.BorderStyle = BorderStyle.Fixed3D
flag3 = True
End Sub
Private Sub PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp
sender.cursor() = Cursors.Default
PictureBox7.BorderStyle = BorderStyle.None
flag3 = False
End Sub
Private Sub PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp
sender.cursor() = Cursors.Default
PictureBox8.BorderStyle = BorderStyle.None
flag4 = False
End Sub
Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove
If PictureBox8.Location.X > 479 And PictureBox8.Location.X < 730 And PictureBox8.Location.Y > 409 And PictureBox8.Location.Y < 540 Then
p_o += 1
k_o += 1
PictureBox8.Location = New System.Drawing.Point(483, 412)
Label1.Visible = True
Label7.Visible = True
Timer1.Enabled = True
PictureBox8.Enabled = False
PictureBox8.BorderStyle = BorderStyle.None
flag4 = False
ElseIf PictureBox8.Location.X > 22 And PictureBox8.Location.X < 280 And PictureBox8.Location.Y > 423 And PictureBox8.Location.Y < 543 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox8.Location.X > 595 And PictureBox8.Location.X < 727 And PictureBox8.Location.Y > 10 And PictureBox8.Location.Y < 251 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox8.Location.X > 213 And PictureBox8.Location.X < 483 And PictureBox8.Location.Y > 9 And PictureBox8.Location.Y < 128 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag4 = True
ElseIf PictureBox8.Location.X > 9 And PictureBox8.Location.X < 119 And PictureBox8.Location.Y > 9 And PictureBox8.Location.Y < 228 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag4 = True
End If
End Sub
Private Sub PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown
sender.cursor() = Cursors.Hand
PictureBox8.BorderStyle = BorderStyle.Fixed3D
flag4 = True
End Sub
Private Sub PictureBox10_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown
sender.cursor() = Cursors.Hand
PictureBox10.BorderStyle = BorderStyle.Fixed3D
flag5 = True
End Sub
Private Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove
If PictureBox10.Location.X > 595 And PictureBox10.Location.X < 727 And PictureBox10.Location.Y > 10 And PictureBox10.Location.Y < 251 Then
p_o += 1
k_o += 1
PictureBox10.Location = New System.Drawing.Point(599, 126)
Label1.Visible = True
Label5.Visible = True
Timer1.Enabled = True
PictureBox10.Enabled = False
PictureBox10.BorderStyle = BorderStyle.None
flag5 = False
ElseIf PictureBox10.Location.X > 22 And PictureBox10.Location.X < 280 And PictureBox10.Location.Y > 423 And PictureBox10.Location.Y < 543 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag5 = True
ElseIf PictureBox10.Location.X > 479 And PictureBox10.Location.X < 730 And PictureBox10.Location.Y > 409 And PictureBox10.Location.Y < 540 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag5 = True
ElseIf PictureBox10.Location.X > 213 And PictureBox10.Location.X < 483 And PictureBox10.Location.Y > 9 And PictureBox10.Location.Y < 128 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag5 = True
ElseIf PictureBox10.Location.X > 9 And PictureBox10.Location.X < 119 And PictureBox10.Location.Y > 9 And PictureBox10.Location.Y < 228 Then
Label2.Visible = True
Timer2.Enabled = True
k_o += 1
flag5 = True
End If
End Sub
Private Sub PictureBox10_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseUp
sender.cursor() = Cursors.Default
PictureBox10.BorderStyle = BorderStyle.None
flag5 = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Me.Update()
Form1.Show()
Фруктовое_Ассорти.AxWindowsMediaPlayer1.close()
End Sub
Private Sub Фрукты_игра2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If flag = True Then
PictureBox2.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y - PictureBox2.Height / 2)
PictureBox2.BringToFront()
End If
If flag2 = True Then
PictureBox6.Location = New System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y - PictureBox6.Height / 2)
PictureBox6.BringToFront()
End If
If flag3 = True Then
PictureBox7.Location = New System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y - PictureBox7.Height / 2)
PictureBox7.BringToFront()
End If
If flag4 = True Then
PictureBox8.Location = New System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y - PictureBox8.Height / 2)
PictureBox8.BringToFront()
End If
If flag5 = True Then
PictureBox10.Location = New System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y - PictureBox10.Height / 2)
PictureBox8.BringToFront()
End If
If PictureBox2.Location = New System.Drawing.Point(367, 12) And PictureBox6.Location = New System.Drawing.Point(12, 117) And
PictureBox7.Location = New System.Drawing.Point(147, 427) And PictureBox8.Location = New System.Drawing.Point(483, 412) And PictureBox10.Location = New System.Drawing.Point(599, 126) Then
Button1.Visible = True
Label3.Visible = True
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Visible = False
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label2.Visible = False
End Sub
Private Sub Фрукты_игра2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If flagok = True Then
Me.Controls.Clear()
InitializeComponent()
End If
End Sub
End Class
Public Class Фрукты_и_Овощи
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Hide()
Фрукты_и_Овощи2.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Фрукты_Овощи.Refresh()
Me.Hide()
Фрукты_Овощи.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
Form1.Show()
End Sub
Private Sub Фрукты_и_Овощи_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fon As String = Application.StartupPath + "\" + "fonfo.mp3"
AxWindowsMediaPlayer1.URL = fon
End Sub
End Class
Public Class Фрукты_и_Овощи2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Фрукты_Овощи.Show()
End Sub
Private Sub Фрукты_и_Овощи2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Фрукты_Овощи
Public flag As Boolean
Public flag2 As Boolean
Public flag3 As Boolean
Public flag4 As Boolean
Public flag5 As Boolean
Public flag6 As Boolean
Public flag7 As Boolean
Public flag8 As Boolean
Public flag9 As Boolean
Public flag10 As Boolean
Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If PictureBox1.Location.X > 0 And PictureBox1.Location.X < 155 And PictureBox1.Location.Y > 55 And PictureBox1.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox1.Location = New System.Drawing.Point(5, 50)
PictureBox1.Enabled = False
PictureBox1.BorderStyle = BorderStyle.None
flag = False
End If
If PictureBox1.Location.X > 490 And PictureBox1.Location.X < 570 And PictureBox1.Location.Y > 55 And PictureBox1.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
PictureBox1.Enabled = True
flag = True
End If
End Sub
Private Sub Фрукты_Овощи_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If flag = True Then
PictureBox1.Location = New System.Drawing.Point(e.Location.X - PictureBox1.Width / 2, e.Location.Y - PictureBox1.Height / 2)
PictureBox1.BringToFront()
End If
If flag2 = True Then
PictureBox2.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y - PictureBox2.Height / 2)
PictureBox2.BringToFront()
End If
If flag3 = True Then
PictureBox3.Location = New System.Drawing.Point(e.Location.X - PictureBox3.Width / 2, e.Location.Y - PictureBox3.Height / 2)
PictureBox3.BringToFront()
End If
If flag4 = True Then
PictureBox4.Location = New System.Drawing.Point(e.Location.X - PictureBox4.Width / 2, e.Location.Y - PictureBox4.Height / 2)
PictureBox4.BringToFront()
End If
If flag5 = True Then
PictureBox5.Location = New System.Drawing.Point(e.Location.X - PictureBox5.Width / 2, e.Location.Y - PictureBox5.Height / 2)
PictureBox5.BringToFront()
End If
If flag6 = True Then
PictureBox6.Location = New System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y - PictureBox6.Height / 2)
PictureBox6.BringToFront()
End If
If flag7 = True Then
PictureBox7.Location = New System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y - PictureBox7.Height / 2)
PictureBox7.BringToFront()
End If
If flag8 = True Then
PictureBox8.Location = New System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y - PictureBox8.Height / 2)
PictureBox8.BringToFront()
End If
If flag9 = True Then
PictureBox9.Location = New System.Drawing.Point(e.Location.X - PictureBox9.Width / 2, e.Location.Y - PictureBox9.Height / 2)
PictureBox9.BringToFront()
End If
If flag10 = True Then
PictureBox10.Location = New System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y - PictureBox10.Height / 2)
PictureBox10.BringToFront()
End If
If PictureBox1.Location = New System.Drawing.Point(5, 50) And PictureBox6.Location = New System.Drawing.Point(4, 144) And PictureBox5.Location = New System.Drawing.Point(586, 437) And PictureBox7.Location = New System.Drawing.Point(595, 249) And
PictureBox4.Location = New System.Drawing.Point(591, 164) And PictureBox2.Location = New System.Drawing.Point(591, 335) And PictureBox3.Location = New System.Drawing.Point(5, 406) And PictureBox10.Location = New System.Drawing.Point(2, 229) And
PictureBox9.Location = New System.Drawing.Point(584, 45) And PictureBox8.Location = New System.Drawing.Point(3, 316) Then
Label5.Visible = True
Button2.Visible = True
End If
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
sender.cursor() = Cursors.Hand
PictureBox1.BorderStyle = BorderStyle.Fixed3D
flag = True
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
sender.cursor() = Cursors.Default
PictureBox1.BorderStyle = BorderStyle.None
flag = False
End Sub
Private Sub Фрукты_Овощи_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If flagok = True Then
Me.Controls.Clear()
InitializeComponent()
End If
End Sub
Private Sub PictureBox4_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseUp
sender.cursor() = Cursors.Default
PictureBox4.BorderStyle = BorderStyle.None
flag4 = False
End Sub
Private Sub PictureBox4_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDown
sender.cursor() = Cursors.Hand
PictureBox4.BorderStyle = BorderStyle.Fixed3D
flag4 = True
End Sub
Private Sub PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown
sender.cursor() = Cursors.Hand
PictureBox6.BorderStyle = BorderStyle.Fixed3D
flag6 = True
End Sub
Private Sub PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp
sender.cursor() = Cursors.Default
PictureBox6.BorderStyle = BorderStyle.None
flag6 = False
End Sub
Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove
If PictureBox6.Location.X > 0 And PictureBox6.Location.X < 155 And PictureBox6.Location.Y > 55 And PictureBox6.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox6.Location = New System.Drawing.Point(4, 144)
PictureBox6.Enabled = False
PictureBox6.BorderStyle = BorderStyle.None
flag6 = False
End If
If PictureBox6.Location.X > 490 And PictureBox6.Location.X < 570 And PictureBox6.Location.Y > 55 And PictureBox6.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
PictureBox6.Enabled = True
flag6 = True
End If
End Sub
Private Sub PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp
sender.cursor() = Cursors.Default
PictureBox7.BorderStyle = BorderStyle.None
flag7 = False
End Sub
Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove
If PictureBox7.Location.X > 0 And PictureBox7.Location.X < 155 And PictureBox7.Location.Y > 55 And PictureBox7.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
flag7 = True
End If
If PictureBox7.Location.X > 490 And PictureBox7.Location.X < 570 And PictureBox7.Location.Y > 55 And PictureBox7.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox7.Location = New System.Drawing.Point(595, 249)
PictureBox7.Enabled = False
flag7 = False
PictureBox7.BorderStyle = BorderStyle.None
End If
End Sub
Private Sub PictureBox7_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown
sender.cursor() = Cursors.Hand
PictureBox7.BorderStyle = BorderStyle.Fixed3D
flag7 = True
End Sub
Private Sub PictureBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseMove
If PictureBox4.Location.X > 0 And PictureBox4.Location.X < 155 And PictureBox4.Location.Y > 55 And PictureBox4.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
flag4 = True
End If
If PictureBox4.Location.X > 490 And PictureBox4.Location.X < 570 And PictureBox4.Location.Y > 55 And PictureBox4.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox4.Location = New System.Drawing.Point(591, 164)
PictureBox4.Enabled = False
flag4 = False
PictureBox4.BorderStyle = BorderStyle.None
End If
End Sub
Private Sub PictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
sender.cursor() = Cursors.Hand
PictureBox2.BorderStyle = BorderStyle.Fixed3D
flag2 = True
End Sub
Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
If PictureBox2.Location.X > 0 And PictureBox2.Location.X < 155 And PictureBox2.Location.Y > 55 And PictureBox2.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
flag2 = True
End If
If PictureBox2.Location.X > 490 And PictureBox2.Location.X < 570 And PictureBox2.Location.Y > 55 And PictureBox2.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox2.Location = New System.Drawing.Point(591, 335)
PictureBox2.Enabled = False
flag2 = False
PictureBox2.BorderStyle = BorderStyle.None
End If
End Sub
Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
sender.cursor() = Cursors.Default
PictureBox2.BorderStyle = BorderStyle.None
flag2 = False
End Sub
Private Sub PictureBox3_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown
sender.cursor() = Cursors.Hand
PictureBox3.BorderStyle = BorderStyle.Fixed3D
flag3 = True
End Sub
Private Sub PictureBox3_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp
sender.cursor() = Cursors.Default
PictureBox3.BorderStyle = BorderStyle.None
flag3 = False
End Sub
Private Sub PictureBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMove
If PictureBox3.Location.X > 0 And PictureBox3.Location.X < 155 And PictureBox3.Location.Y > 55 And PictureBox3.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox3.Location = New System.Drawing.Point(5, 406)
PictureBox3.Enabled = False
PictureBox3.BorderStyle = BorderStyle.None
flag3 = False
End If
If PictureBox3.Location.X > 490 And PictureBox3.Location.X < 570 And PictureBox3.Location.Y > 55 And PictureBox3.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
PictureBox3.Enabled = True
flag3 = True
End If
End Sub
Private Sub PictureBox10_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseUp
sender.cursor() = Cursors.Default
PictureBox10.BorderStyle = BorderStyle.None
flag10 = False
End Sub
Private Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove
If PictureBox10.Location.X > 0 And PictureBox10.Location.X < 155 And PictureBox10.Location.Y > 55 And PictureBox10.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox10.Location = New System.Drawing.Point(2, 229)
PictureBox10.Enabled = False
PictureBox10.BorderStyle = BorderStyle.None
flag10 = False
End If
If PictureBox10.Location.X > 490 And PictureBox10.Location.X < 570 And PictureBox10.Location.Y > 55 And PictureBox10.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
PictureBox10.Enabled = True
flag10 = True
End If
End Sub
Private Sub PictureBox10_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown
sender.cursor() = Cursors.Hand
PictureBox10.BorderStyle = BorderStyle.Fixed3D
flag10 = True
End Sub
Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove
If PictureBox8.Location.X > 0 And PictureBox8.Location.X < 155 And PictureBox8.Location.Y > 55 And PictureBox8.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox8.Location = New System.Drawing.Point(3, 316)
PictureBox8.Enabled = False
PictureBox8.BorderStyle = BorderStyle.None
flag8 = False
End If
If PictureBox8.Location.X > 490 And PictureBox8.Location.X < 570 And PictureBox8.Location.Y > 55 And PictureBox8.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
PictureBox8.Enabled = True
flag8 = True
End If
End Sub
Private Sub PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp
sender.cursor() = Cursors.Default
PictureBox8.BorderStyle = BorderStyle.None
flag8 = False
End Sub
Private Sub PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown
sender.cursor() = Cursors.Hand
PictureBox8.BorderStyle = BorderStyle.Fixed3D
flag8 = True
End Sub
Private Sub PictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMove
If PictureBox9.Location.X > 0 And PictureBox9.Location.X < 155 And PictureBox9.Location.Y > 55 And PictureBox9.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
flag9 = True
End If
If PictureBox9.Location.X > 490 And PictureBox9.Location.X < 570 And PictureBox9.Location.Y > 55 And PictureBox9.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox9.Location = New System.Drawing.Point(584, 45)
PictureBox9.Enabled = False
flag9 = False
PictureBox9.BorderStyle = BorderStyle.None
End If
End Sub
Private Sub PictureBox9_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseUp
sender.cursor() = Cursors.Default
PictureBox9.BorderStyle = BorderStyle.None
flag9 = False
End Sub
Private Sub PictureBox9_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDown
sender.cursor() = Cursors.Hand
PictureBox9.BorderStyle = BorderStyle.Fixed3D
flag9 = True
End Sub
Private Sub PictureBox5_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseDown
sender.cursor() = Cursors.Hand
PictureBox5.BorderStyle = BorderStyle.Fixed3D
flag5 = True
End Sub
Private Sub PictureBox5_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseMove
If PictureBox5.Location.X > 0 And PictureBox5.Location.X < 155 And PictureBox5.Location.Y > 55 And PictureBox5.Location.Y < 515 Then
Label4.Visible = True
Timer2.Enabled = True
k_o += 1
flag5 = True
End If
If PictureBox5.Location.X > 490 And PictureBox5.Location.X < 570 And PictureBox5.Location.Y > 55 And PictureBox5.Location.Y < 515 Then
Label3.Visible = True
Timer1.Enabled = True
p_o += 1
k_o += 1
PictureBox5.Location = New System.Drawing.Point(586, 437)
PictureBox5.Enabled = False
flag5 = False
PictureBox5.BorderStyle = BorderStyle.None
End If
End Sub
Private Sub PictureBox5_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseUp
sender.cursor() = Cursors.Default
PictureBox5.BorderStyle = BorderStyle.None
flag5 = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
Form1.Show()
Фрукты_и_Овощи.AxWindowsMediaPlayer1.close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label3.Visible = False
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label4.Visible = False
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
End Sub
End Class
