form1.vb

vb 应用实例 简单应用 ddddddddddddddddddddddddddddddddd

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form 设计工具产生的程序代码 "

    Public Sub New()
        MyBase.New()

        '此呼叫为 Windows Form 设计工具的必要项。
        InitializeComponent()

        '在 InitializeComponent() 呼叫之后加入所有的初始设定

    End Sub

    'Form 覆写 Dispose 以清除组件清单。
    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

    '为 Windows Form 设计工具的必要项
    Private components As System.ComponentModel.IContainer

    '注意: 以下为 Windows Form 设计工具所需的程序
    '您可以使用 Windows Form 设计工具进行修改。
    '请勿使用程序代码编辑器来修改这些程序。
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
    Friend WithEvents HelpProvider1 As System.Windows.Forms.HelpProvider
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents HelpProvider2 As System.Windows.Forms.HelpProvider
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Button7 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.Button2 = New System.Windows.Forms.Button
        Me.Label3 = New System.Windows.Forms.Label
        Me.Button4 = New System.Windows.Forms.Button
        Me.Button5 = New System.Windows.Forms.Button
        Me.Button6 = New System.Windows.Forms.Button
        Me.Button3 = New System.Windows.Forms.Button
        Me.Label4 = New System.Windows.Forms.Label
        Me.TextBox3 = New System.Windows.Forms.TextBox
        Me.Button7 = New System.Windows.Forms.Button
        Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
        Me.HelpProvider1 = New System.Windows.Forms.HelpProvider
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.HelpProvider2 = New System.Windows.Forms.HelpProvider
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(202, 30)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(90, 21)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "ToolTip"
        Me.ToolTip1.SetToolTip(Me.Button1, "按我喔...(ToolTip)")
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(58, 30)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(120, 21)
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = "ToolTip"
        Me.ToolTip1.SetToolTip(Me.TextBox1, "输入您的大名喔...(ToolTip)")
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(10, 7)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(307, 17)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "ToolTip（提示文字）：鼠标移到上面会出现提示的文字"
        Me.ToolTip1.SetToolTip(Me.Label1, "我是提示文字喔...(ToolTip)")
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.HelpProvider1.SetHelpString(Me.Label2, "我是提示文字喔...(HelpProvider)")
        Me.Label2.Location = New System.Drawing.Point(10, 75)
        Me.Label2.Name = "Label2"
        Me.HelpProvider1.SetShowHelp(Me.Label2, True)
        Me.Label2.Size = New System.Drawing.Size(357, 17)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "HelpProvider：鼠标按窗体右上 ? 再按下控件会出现提示的文字"
        Me.ToolTip1.SetToolTip(Me.Label2, "我是提示文字喔...(ToolTip)")
        '
        'TextBox2
        '
        Me.HelpProvider1.SetHelpString(Me.TextBox2, "输入您的大名喔...(HelpProvider)")
        Me.TextBox2.Location = New System.Drawing.Point(58, 97)
        Me.TextBox2.Name = "TextBox2"
        Me.HelpProvider1.SetShowHelp(Me.TextBox2, True)
        Me.TextBox2.Size = New System.Drawing.Size(120, 21)
        Me.TextBox2.TabIndex = 4
        Me.TextBox2.Text = "HelpProvider"
        Me.ToolTip1.SetToolTip(Me.TextBox2, "输入您的大名喔...(ToolTip)")
        '
        'Button2
        '
        Me.HelpProvider1.SetHelpString(Me.Button2, "按我喔...(HelpProvider)")
        Me.Button2.Location = New System.Drawing.Point(211, 97)
        Me.Button2.Name = "Button2"
        Me.HelpProvider1.SetShowHelp(Me.Button2, True)
        Me.Button2.Size = New System.Drawing.Size(90, 22)
        Me.Button2.TabIndex = 5
        Me.Button2.Text = "HelpProvider"
        Me.ToolTip1.SetToolTip(Me.Button2, "按我喔...(ToolTip)")
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.HelpProvider1.SetHelpString(Me.Label3, "我是提示文字喔...(HelpProvider)")
        Me.Label3.Location = New System.Drawing.Point(10, 134)
        Me.Label3.Name = "Label3"
        Me.HelpProvider1.SetShowHelp(Me.Label3, True)
        Me.Label3.Size = New System.Drawing.Size(381, 17)
        Me.Label3.TabIndex = 6
        Me.Label3.Text = "HelpProvider：鼠标按窗体右上 ? 再按下控件会出现提示的Help档案"
        Me.ToolTip1.SetToolTip(Me.Label3, "我是提示文字喔...(ToolTip)")
        '
        'Button4
        '
        Me.HelpProvider2.SetHelpKeyword(Me.Button4, "")
        Me.HelpProvider1.SetHelpString(Me.Button4, "")
        Me.Button4.Location = New System.Drawing.Point(211, 157)
        Me.Button4.Name = "Button4"
        Me.HelpProvider2.SetShowHelp(Me.Button4, True)
        Me.HelpProvider1.SetShowHelp(Me.Button4, False)
        Me.Button4.Size = New System.Drawing.Size(183, 22)
        Me.Button4.TabIndex = 9
        Me.Button4.Text = "HelpProvider(Html)"
        Me.ToolTip1.SetToolTip(Me.Button4, "按我喔...(ToolTip)")
        '
        'Button5
        '
        Me.HelpProvider1.SetHelpKeyword(Me.Button5, "indexing for Web search engines")
        Me.HelpProvider1.SetHelpNavigator(Me.Button5, System.Windows.Forms.HelpNavigator.KeywordIndex)
        Me.HelpProvider1.SetHelpString(Me.Button5, "")
        Me.Button5.Location = New System.Drawing.Point(19, 179)
        Me.Button5.Name = "Button5"
        Me.HelpProvider1.SetShowHelp(Me.Button5, True)
        Me.Button5.Size = New System.Drawing.Size(183, 23)
        Me.Button5.TabIndex = 10
        Me.Button5.Text = "HelpProvider(带索引)"
        Me.ToolTip1.SetToolTip(Me.Button5, "按我喔...(ToolTip)")
        '
        'Button6
        '
        Me.HelpProvider1.SetHelpKeyword(Me.Button6, "ActiveX control")
        Me.HelpProvider1.SetHelpNavigator(Me.Button6, System.Windows.Forms.HelpNavigator.Find)
        Me.HelpProvider1.SetHelpString(Me.Button6, "")
        Me.Button6.Location = New System.Drawing.Point(19, 202)
        Me.Button6.Name = "Button6"
        Me.HelpProvider1.SetShowHelp(Me.Button6, True)
        Me.Button6.Size = New System.Drawing.Size(183, 22)
        Me.Button6.TabIndex = 11
        Me.Button6.Text = "HelpProvider(带搜寻)"
        Me.ToolTip1.SetToolTip(Me.Button6, "按我喔...(ToolTip)")
        '
        'Button3
        '
        Me.HelpProvider1.SetHelpKeyword(Me.Button3, "")
        Me.HelpProvider1.SetHelpNavigator(Me.Button3, System.Windows.Forms.HelpNavigator.TableOfContents)