ictureBox2).Name =«Form8». StartPosition=System.Windows.Forms.FormStartPosition.CenterScreen.Text=«завдання 2». ResumeLayout (False) Sub
# End Regionbal_2 As IntegerSub PictureBox1_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp_2=0
'включення (eX> 528) And (eX <624) And (eY> 288) And (eY <328) Or _
(eX> 24) And (eX <72) And (eY> 120) And (eY <144) Then.Visible=False.Visible=True.Visible=False.Visible =FalseSubIf («Неправильно.» + vbCrLf + «Ви заробили 0 балів.», MsgBoxStyle.Critical, «Результат»)
Me.Hide () _2=0obj_Form9 As New Form9_Form9.Show () SubSub PictureBox2_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
'вставка касети (eX> 336) And (eX <512) And (eY> 152) And (eY <200) Then.Visible=False.Visible=False.Visible= True.Visible=FalseSubIf («Неправильно.» + vbCrLf + «Ви заробили 2 бали.», MsgBoxStyle.Critical, «Результат»)
Me.Hide () _2=2obj_Form9 As New Form9_Form9.Show () SubSub PictureBox3_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp
'Rewindobj_Form9 As New Form9 (eX> 528) And (eX <568) And (eY> 216) And (eY <240) Or _
(eX> 24) And (eX <56) And (eY> 168) And (eY <192) Then.Visible=False.Visible=False.Visible=False.Visible =True
MsgBox ("Ви повністю пройшли друге завдання, Ваша оцінка за друге завдання 5»)
Me.Hide () _2=5_Form9.Show () SubIf («Неправильно.» + vbCrLf + «Ви заробили 4 бали.», MsgBoxStyle.Critical, «Результат»)
Me.Hide () _2=4_Form9.Show () SubSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form13 As New Form13_Form13.Show () SubSub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show () _Form14.AxWebBrowser1.Navigate (Application.StartupPath + « СПРАВКА.htm»)
End SubClass
Програма для форми 9
Class Form9System.Windows.Forms.Form
# Region « Код, автоматично створений конструктором форм Windows »Sub New (). New ()
'Цей виклик вимагається конструктором форм Windows. ()
'Додайте код ініціалізації після виклику InitializeComponent () Sub
'Форма перевизначає метод Dispose для очищення списку компонентов.Overloads Overrides Sub Dispose (ByVal disposing As Boolean) disposing ThenNot (components Is Nothing) Then.Dispose () IfIf.Dispose (disposing) Sub
'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer
'ПРИМІТКА: наступна процедура потрібна для конструктора форм Windows.
'Її можна змінити в конструкторі форм Windows.
'Не змінюйте її в редакторі вихідного текста.WithEvents PictureBox1 As System.Windows.Forms.PictureBoxWithEvents Button3 As System.Windows.Forms.ButtonWithEvents Button1 As System.Windows.Forms.ButtonWithEvents Label1 As System.Windows . Forms.LabelWithEvents PictureBox2 As System.Windo...
