ton2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickobj_Form16 As New Form16_Form16.Show () SubSub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click () Sub
# Region «Установка курсора» Sub PictureBox1_MouseMove (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove ((eX> 672) And (eX < 720) And (eY> 288) And (eY <312) Or _
(eX> 632) And (eX <672) And (eY> 288) And (eY <312) Or _
(eX> 728) And (eX <760) And (eY> 296) And (eY <320) Or _
(eX> 672) And (eX <696) And (eY> 344) And (eY <368)) Or _
(eX> 696) And (eX <712) And (eY> 344) And (eY <368) Then.Cursor=Cursors.Hand.Cursor=Cursors.DefaultIf (eX > 672) And (eX <720) And (eY> 288) And (eY <312) Then.Visible=True.Visible=FalseIf (eX> 632) And (eX <672) And (eY > 288) And (eY <312) Then.Visible=True.Visible=FalseIf (eX> 728) And (eX <760) And (eY> 296) And (eY <320) Then.Visible =True.Visible=FalseIf (eX> 672) And (eX <696) And (eY> 344) And (eY <368) Then.Visible=True.Visible=FalseIf (eX> 696) And ( eX <712) And (eY> 344) And (eY <368) Then.Visible=True.Visible=FalseIfSub
# End Region
# Region «Установка кнопок» Sub PictureBox1_MouseUp1 (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp (eX> 672) And (eX <720 ) And (eY> 288) And (eY <312) Then_Form4=New Form4=Application.StartupPath + « кнопка_Play.ppt» _Form4.Show () If (eX> 632) And (eX <672) And (eY> 288) And (eY <314) Then_Form4=New Form4=Application.StartupPath + « кнопка_Rewind.ppt» _Form4.Show () If (eX> 728) And (eX <760) And (eY> 296) And (eY <320) Then_Form4=New Form4=Application.StartupPath + « кнопка_F.FRD.ppt» _Form4.Show () If (eX> 672) And (eX <696) And (eY> 344) And (eY <368) Then_Form4=New Form4=Application.StartupPath + « кнопка_Eject.ppt» _Form4.Show () If (eX> 696) And (eX <712) And (eY> 344) And (eY <368) Then_Form4=New Form4=Application.StartupPath + « кнопка_Stop.ppt» _Form4.Show () IfSub
# End RegionSub Button5_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickObj_Form14 As New Form14_Form14.Show () _Form14.AxWebBrowser1.Navigate (Application.StartupPath + « СПРАВКА.htm ») SubSub Button4_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickobj_Form13 As New Form13_Form13.Show () SubClass
Програма для форми 4
Public Class Form4
Inherits System.Windows.Forms.Form
# Region « Windows Form Designer generated code »Sub New (). New ()
'This call is required by the Windows Form Designer. ()
'Add any initialization after the InitializeComponent () callSub
'Form overrides dispose to clean up the component list.Overloads Overrides Sub Dispose (ByVal disposing As Boolean) disposing ThenNot (components Is Nothing) Then.Dispose () IfIf.Dispose (disposing) Sub
'Required by the Windows Form Designercomponents As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form D...
