esigner
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.WithEvents Button1 As System.Windows.Forms.ButtonWithEvents AxWebBrowser1 As AxSHDocVw.AxWebBrowser
Private Sub InitializeComponent () resources As System.Resources.ResourceManager=New System.Resources.ResourceManager (GetType (Form4)). Button1=New System.Windows.Forms.Button.AxWebBrowser1=New AxSHDocVw.AxWebBrowser (Me.AxWebBrowser1, System. ComponentModel.ISupportInitialize). BeginInit (). SuspendLayout ()
«» Button1
'Me.Button1.BackColor=System.Drawing.Color.GreenYellow.Button1.Font=New System.Drawing.Font («Comic Sans MS», 18.0!, System.Drawing.FontStyle. Bold, System.Drawing.GraphicsUnit.Point, CType (204, Byte)). Button1.ForeColor=System.Drawing.Color.Blue.Button1.Location=New System.Drawing.Point (576, 488). Button1.Name= «Button1». Button1.Size=New System.Drawing.Size (144, 32). Button1.TabIndex=0.Button1.Text=«<< Назад »
«» AxWebBrowser1
'Me.AxWebBrowser1.Dock=System.Windows.Forms.DockStyle.Fill.AxWebBrowser1.Enabled=True.AxWebBrowser1.Location=New System.Drawing.Point (0, 0). AxWebBrowser1.OcxState =CType (resources.GetObject («AxWebBrowser1.OcxState»), System.Windows.Forms.AxHost.State). AxWebBrowser1.Size=New System.Drawing.Size (736, 533). AxWebBrowser1.TabIndex=1
«» Form4
'Me.AutoScaleBaseSize=New System.Drawing.Size (5, 13). ClientSize=New System.Drawing.Size (736, 533). Controls.Add (Me.AxWebBrowser1). Controls. Add (Me.Button1). Name=«Form4». Text=«Презентація» (Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize). EndInit (). ResumeLayout (False) Sub
# End RegionSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) () SubSub Form4_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load . Navigate (filename) SubSub Button1_Click_1 (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click () SubClass
Програма для форми 5
Public Class Form5
Inherits System.Windows.Forms.Form
Dim a () As String={«Покажіть кнопку, яка виробляє відтворення відеосюжету», «Покажіть кнопку, яка перемотує відеосюжет назад», «Покажіть кнопку, яка перемотує відеосюжет вперед», « ; Покажіть кнопку, яка видає відеокасету »,« Покажіть кнопку, яка зупиняє всі дії »}
Dim i As Integer=Int (5 * Rnd ()) Mas () As Integer={0, 0, 0, 0, 0} s As Double
# 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 W...
