formmain.vb

Visual Basic.net 实例入门

Public Class formMain
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents btStart As System.Windows.Forms.Button
    Friend WithEvents btExit As System.Windows.Forms.Button
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents prgThread1 As System.Windows.Forms.ProgressBar
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents prgThread2 As System.Windows.Forms.ProgressBar
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents prgThread3 As System.Windows.Forms.ProgressBar
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents btPause1 As System.Windows.Forms.Button
    Friend WithEvents btStop1 As System.Windows.Forms.Button
    Friend WithEvents btPause2 As System.Windows.Forms.Button
    Friend WithEvents btStop2 As System.Windows.Forms.Button
    Friend WithEvents btPause3 As System.Windows.Forms.Button
    Friend WithEvents btStop3 As System.Windows.Forms.Button
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents mStop3 As System.Windows.Forms.MenuItem
    Friend WithEvents mPause1 As System.Windows.Forms.MenuItem
    Friend WithEvents mStop1 As System.Windows.Forms.MenuItem
    Friend WithEvents mPause2 As System.Windows.Forms.MenuItem
    Friend WithEvents mStop2 As System.Windows.Forms.MenuItem
    Friend WithEvents mPause3 As System.Windows.Forms.MenuItem
    Friend WithEvents mThread As System.Windows.Forms.MenuItem
    Friend WithEvents mHelp As System.Windows.Forms.MenuItem
    Friend WithEvents mAbout As System.Windows.Forms.MenuItem
    Friend WithEvents mFile As System.Windows.Forms.MenuItem
    Friend WithEvents mStart As System.Windows.Forms.MenuItem
    Friend WithEvents mExit As System.Windows.Forms.MenuItem
    Friend WithEvents mThread1 As System.Windows.Forms.MenuItem
    Friend WithEvents mThread2 As System.Windows.Forms.MenuItem
    Friend WithEvents mThread3 As System.Windows.Forms.MenuItem
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents trkSpeed As System.Windows.Forms.TrackBar
    Private components As System.ComponentModel.IContainer

    'Required by the Windows Form Designer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.mPause2 = New System.Windows.Forms.MenuItem()
        Me.mThread = New System.Windows.Forms.MenuItem()
        Me.mThread1 = New System.Windows.Forms.MenuItem()
        Me.mPause1 = New System.Windows.Forms.MenuItem()
        Me.mStop1 = New System.Windows.Forms.MenuItem()
        Me.mThread2 = New System.Windows.Forms.MenuItem()
        Me.mStop2 = New System.Windows.Forms.MenuItem()
        Me.mThread3 = New System.Windows.Forms.MenuItem()
        Me.mPause3 = New System.Windows.Forms.MenuItem()
        Me.mStop3 = New System.Windows.Forms.MenuItem()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.mStart = New System.Windows.Forms.MenuItem()
        Me.mExit = New System.Windows.Forms.MenuItem()
        Me.prgThread2 = New System.Windows.Forms.ProgressBar()
        Me.btPause2 = New System.Windows.Forms.Button()
        Me.btPause3 = New System.Windows.Forms.Button()
        Me.btPause1 = New System.Windows.Forms.Button()
        Me.btStop1 = New System.Windows.Forms.Button()
        Me.btStop2 = New System.Windows.Forms.Button()
        Me.btStop3 = New System.Windows.Forms.Button()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.mFile = New System.Windows.Forms.MenuItem()
        Me.mHelp = New System.Windows.Forms.MenuItem()
        Me.mAbout = New System.Windows.Forms.MenuItem()
        Me.btExit = New System.Windows.Forms.Button()
        Me.trkSpeed = New System.Windows.Forms.TrackBar()
        Me.prgThread1 = New System.Windows.Forms.ProgressBar()
        Me.prgThread3 = New System.Windows.Forms.ProgressBar()
        Me.btStart = New System.Windows.Forms.Button()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        CType(Me.trkSpeed, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.SuspendLayout()
        '
        'mPause2
        '
        Me.mPause2.Index = 0
        Me.mPause2.Shortcut = System.Windows.Forms.Shortcut.Ctrl5
        Me.mPause2.Text = "暂停(&P)"
        '
        'mThread
        '
        Me.mThread.Index = 1
        Me.mThread.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mThread1, Me.mThread2, Me.mThread3})
        Me.mThread.Shortcut = System.Windows.Forms.Shortcut.CtrlT
        Me.mThread.ShowShortcut = False
        Me.mThread.Text = "线程(&T)"
        '
        'mThread1
        '
        Me.mThread1.Index = 0
        Me.mThread1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mPause1, Me.mStop1})
        Me.mThread1.Shortcut = System.Windows.Forms.Shortcut.Ctrl1
        Me.mThread1.Text = "线程1"
        '
        'mPause1
        '
        Me.mPause1.Index = 0
        Me.mPause1.Shortcut = System.Windows.Forms.Shortcut.Ctrl4
        Me.mPause1.Text = "暂停(&P)"
        '
        'mStop1
        '
        Me.mStop1.Index = 1
        Me.mStop1.Shortcut = System.Windows.Forms.Shortcut.Ctrl7
        Me.mStop1.Text = "终止(&S)"
        '
        'mThread2
        '
        Me.mThread2.Index = 1
        Me.mThread2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mPause2, Me.mStop2})
        Me.mThread2.Shortcut = System.Windows.Forms.Shortcut.Ctrl2
        Me.mThread2.Text = "线程2"
        '
        'mStop2
        '
        Me.mStop2.Index = 1
        Me.mStop2.Shortcut = System.Windows.Forms.Shortcut.Ctrl8
        Me.mStop2.Text = "终止(&S)"
        '
        'mThread3
        '
        Me.mThread3.Index = 2
        Me.mThread3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mPause3, Me.mStop3})
        Me.mThread3.Shortcut = System.Windows.Forms.Shortcut.Ctrl3
        Me.mThread3.Text = "线程3"
        '
        'mPause3
        '
        Me.mPause3.Index = 0
        Me.mPause3.Shortcut = System.Windows.Forms.Shortcut.Ctrl6
        Me.mPause3.Text = "暂停(&P)"
        '
        'mStop3
        '
        Me.mStop3.Index = 1
        Me.mStop3.Shortcut = System.Windows.Forms.Shortcut.Ctrl9
        Me.mStop3.Text = "终止(&S)"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 48)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(180, 16)
        Me.Label1.TabIndex = 2
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 48)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(180, 16)
        Me.Label2.TabIndex = 2
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 48)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(180, 16)
        Me.Label3.TabIndex = 2
        '
        'mStart
        '
        Me.mStart.Index = 0
        Me.mStart.Shortcut = System.Windows.Forms.Shortcut.CtrlS
        Me.mStart.Text = "开始(&S)"
        '
        'mExit
        '
        Me.mExit.Index = 1
        Me.mExit.Shortcut = System.Windows.Forms.Shortcut.CtrlX
        Me.mExit.Text = "退出(&X)"
        '
        'prgThread2
        '
        Me.prgThread2.Location = New System.Drawing.Point(8, 24)
        Me.prgThread2.Maximum = 1000
        Me.prgThread2.Name = "prgThread2"
        Me.prgThread2.Size = New System.Drawing.Size(352, 16)
        Me.prgThread2.TabIndex = 1
        '
        'btPause2
        '
        Me.btPause2.Location = New System.Drawing.Point(208, 44)
        Me.btPause2.Name = "btPause2"
        Me.btPause2.TabIndex = 3
        Me.btPause2.Text = "暂停"
        '
        'btPause3
        '
        Me.btPause3.Location = New System.Drawing.Point(208, 44)
        Me.btPause3.Name = "btPause3"
        Me.btPause3.TabIndex = 3
        Me.btPause3.Text = "暂停"
        '
        'btPause1
        '
        Me.btPause1.Location = New System.Drawing.Point(208, 44)
        Me.btPause1.Name = "btPause1"
        Me.btPause1.TabIndex = 3
        Me.btPause1.Text = "暂停"
        '
        'btStop1
        '
        Me.btStop1.Location = New System.Drawing.Point(288, 44)
        Me.btStop1.Name = "btStop1"
        Me.btStop1.TabIndex = 3
        Me.btStop1.Text = "终止"
        '
        'btStop2
        '
        Me.btStop2.Location = New System.Drawing.Point(288, 44)
        Me.btStop2.Name = "btStop2"
        Me.btStop2.TabIndex = 3
        Me.btStop2.Text = "终止"
        '
        'btStop3
        '
        Me.btStop3.Location = New System.Drawing.Point(288, 44)
        Me.btStop3.Name = "btStop3"
        Me.btStop3.TabIndex = 3
        Me.btStop3.Text = "终止"
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mFile, Me.mThread, Me.mHelp})
        '
        'mFile
        '
        Me.mFile.Index = 0
        Me.mFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mStart, Me.mExit})
        Me.mFile.Shortcut = System.Windows.Forms.Shortcut.CtrlF
        Me.mFile.ShowShortcut = False
        Me.mFile.Text = "文件(&F)"
        '
        'mHelp
        '
        Me.mHelp.Index = 2
        Me.mHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mAbout})
        Me.mHelp.Shortcut = System.Windows.Forms.Shortcut.CtrlH
        Me.mHelp.ShowShortcut = False
        Me.mHelp.Text = "帮助(&H)"
        '
        'mAbout
        '
        Me.mAbout.Index = 0
        Me.mAbout.Shortcut = System.Windows.Forms.Shortcut.CtrlA
        Me.mAbout.Text = "关于多线程实例(&A)..."
        '
        'btExit
        '
        Me.btExit.Location = New System.Drawing.Point(208, 320)
        Me.btExit.Name = "btExit"
        Me.btExit.TabIndex = 0
        Me.btExit.Text = "退出(&X)"
        '
        'trkSpeed
        '
        Me.trkSpeed.Location = New System.Drawing.Point(16, 16)
        Me.trkSpeed.Maximum = 25
        Me.trkSpeed.Minimum = 1
        Me.trkSpeed.Name = "trkSpeed"
        Me.trkSpeed.Size = New System.Drawing.Size(328, 42)
        Me.trkSpeed.TabIndex = 7
        Me.trkSpeed.Value = 1
        '
        'prgThread1
        '
        Me.prgThread1.Location = New System.Drawing.Point(8, 24)
        Me.prgThread1.Maximum = 1000
        Me.prgThread1.Name = "prgThread1"
        Me.prgThread1.Size = New System.Drawing.Size(352, 16)
        Me.prgThread1.TabIndex = 1
        '
        'prgThread3
        '
        Me.prgThread3.Location = New System.Drawing.Point(8, 24)
        Me.prgThread3.Maximum = 1000
        Me.prgThread3.Name = "prgThread3"
        Me.prgThread3.Size = New System.Drawing.Size(352, 16)
        Me.prgThread3.TabIndex = 1
        '
        'btStart
        '
        Me.btStart.Location = New System.Drawing.Point(128, 320)
        Me.btStart.Name = "btStart"
        Me.btStart.TabIndex = 0
        Me.btStart.Text = "开始(&S)"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.btStop1, Me.btPause1, Me.prgThread1, Me.Label1})
        Me.GroupBox1.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(368, 72)
        Me.GroupBox1.TabIndex = 4
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "线程1"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.btStop2, Me.btPause2, Me.Label2, Me.prgThread2})
        Me.GroupBox2.Location = New System.Drawing.Point(8, 88)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(368, 72)
        Me.GroupBox2.TabIndex = 5
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "线程2"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.btStop3, Me.btPause3, Me.prgThread3, Me.Label3})
        Me.GroupBox3.Location = New System.Drawing.Point(8, 168)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(368, 72)
        Me.GroupBox3.TabIndex = 6
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "线程3"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.trkSpeed})
        Me.GroupBox4.Location = New System.Drawing.Point(8, 248)
        Me.GroupBox4.Name = "GroupBox4"