ystem.EventArgs) Handles Button6.ClickSubSub Button5_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click.Hide () obj_Form9_About As New Form9_About_Form9_About.Show () SubSub MenuItem2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click.Hide () obj_Form9_About As New Form9_About_Form9_About.Show () Sub
End Class
Public Class Form3_ДемонстрацияSystem.Windows.Forms.Form
'# Region «Установка кнопок» Sub PictureBox1_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
'Play (e.X> 870) And (e.X <890) And
(eY> 70) And (eY <91) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « PLAY.ppt» _Form4_Презентація.Show () If
'CD_Rom (eX> 894) And (eX <914) And (eY> 75) And (eY <95) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « OPEN_CLOSE.ppt» _Form4_Презентація. Show () If
'Flopy (eX> 838) And (eX <858) And (eY> 294) And (eY <314) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « Дісковод.ppt» _Form4_Презентація. Show () If
'Resert (eX> 806) And (eX <826) And (eY> 486) And (eY <506) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « RESET.ppt» _Form4_Презентація. Show () If
'Power (eX> 470) And (eX <490) And (eY> 430) And (eY <450) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « POWER.ppt» _Form4_Презентація. Show () If
'Select (eX> 406) And (eX <426) And (eY> 445) And (eY <466) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « SELECT.ppt» _Form4_Презентація. Show () If
'Меню (eX> 290) And (eX <315) And (eY> 441) And (eY <469) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « МЕНЮ.ppt» _Form4_Презентація. Show () If
'Контраст (eX> 364) And (eX <388) And (eY> 445) And (eY <466) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « Контраст.ppt» _Form4_Презентація. Show () If
'Яскравість (eX> 325) And (eX <346) And (eY> 440) And (eY <461) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « Яркость.ppt» _Form4_Презентація. Show () If
'Гучність (eX> 750) And (eX <770) And (eY> 70) And (eY <90) Then_Form4_Презентація=New Form4_Презентація=Application.StartupPath + « Громкость.ppt» _Form4_Презентація. Show () IfSub
'# End Region
'# Region «Установка курсора» Sub PictureBox1_MouseMove (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove ((eX> 750) And (eX <770) And (eY> 70) And (eY <90) Or _
(eX> 894) And (eX <914) And (eY> 75) And (eY <95) Or _
(eX> 806) And (eX <826) And (eY> 486) And (eY <506) Or _
(eX> 838) And (eX <858) And (eY> 294) And (eY <314) Or _
(eX> 470) And (eX <490) And (eY> 430) And (eY <450) Or _
(eX> 364) And (eX <388) And (eY> 445) And (eY <466) Or _
(eX> 325) And (eX <346) And (eY> 440) And (eY <461) Or _
(eX> 290) And (eX <315) And (eY> 441) And (eY <469) Or _
(eX> 406) And (eX <426) And (eY> 445) And (eY <466) Or _
(eX> 870) And (eX <890) And (eY> 70) And (eY <91)) Then.Cursor=Cursors.Hand.Cursor=Cursors.DefaultIf ...
