form1.vb

vb 应用实例 简单应用 ddddddddddddddddddddddddddddddddd

        Me.HelpProvider1.SetHelpString(Me.Button3, "")
        Me.Button3.Location = New System.Drawing.Point(19, 157)
        Me.Button3.Name = "Button3"
        Me.HelpProvider1.SetShowHelp(Me.Button3, True)
        Me.Button3.Size = New System.Drawing.Size(183, 22)
        Me.Button3.TabIndex = 12
        Me.Button3.Text = "HelpProvider(内容)"
        Me.ToolTip1.SetToolTip(Me.Button3, "按我喔...(ToolTip)")
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.HelpProvider1.SetHelpString(Me.Label4, "我是提示文字喔...(HelpProvider)")
        Me.Label4.Location = New System.Drawing.Point(10, 246)
        Me.Label4.Name = "Label4"
        Me.HelpProvider1.SetShowHelp(Me.Label4, True)
        Me.Label4.Size = New System.Drawing.Size(307, 17)
        Me.Label4.TabIndex = 13
        Me.Label4.Text = "ErrorProvider：输入非数字会出现红色叹号的错误符号"
        Me.ToolTip1.SetToolTip(Me.Label4, "我是提示文字喔...(ToolTip)")
        '
        'TextBox3
        '
        Me.HelpProvider1.SetHelpString(Me.TextBox3, "输入您的大名喔...(HelpProvider)")
        Me.TextBox3.Location = New System.Drawing.Point(29, 269)
        Me.TextBox3.Name = "TextBox3"
        Me.HelpProvider1.SetShowHelp(Me.TextBox3, True)
        Me.TextBox3.Size = New System.Drawing.Size(163, 21)
        Me.TextBox3.TabIndex = 14
        Me.TextBox3.Text = ""
        Me.ToolTip1.SetToolTip(Me.TextBox3, "输入数字喔...(ToolTip)")
        '
        'Button7
        '
        Me.HelpProvider1.SetHelpString(Me.Button7, "按我喔...(HelpProvider)")
        Me.Button7.Location = New System.Drawing.Point(269, 269)
        Me.Button7.Name = "Button7"
        Me.HelpProvider1.SetShowHelp(Me.Button7, True)
        Me.Button7.Size = New System.Drawing.Size(90, 22)
        Me.Button7.TabIndex = 15
        Me.Button7.Text = "验证"
        Me.ToolTip1.SetToolTip(Me.Button7, "按我喔...(ToolTip)")
        '
        'ErrorProvider1
        '
        Me.ErrorProvider1.ContainerControl = Me
        Me.ErrorProvider1.DataMember = ""
        '
        'HelpProvider1
        '
        Me.HelpProvider1.HelpNamespace = "..\htmlhelp.chm"
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
        Me.MenuItem1.Text = "说明(&H)"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Text = "内容(&C)"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "索引(&I)"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 2
        Me.MenuItem4.Text = "搜寻(&S)"
        '
        'HelpProvider2
        '
        Me.HelpProvider2.HelpNamespace = "..\Myhelp.htm"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(470, 307)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.HelpButton = True
        Me.MaximizeBox = False
        Me.Menu = Me.MainMenu1
        Me.MinimizeBox = False
        Me.Name = "Form1"
        Me.HelpProvider1.SetShowHelp(Me, True)
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Help"
        Me.ResumeLayout(False)

    End Sub

#End Region

    '由 [工具箱] 拖拉 ErrorProvider, ToolTip, HelpProvider * 2, MainMenu
    'From1 HelpButton = True, MaximizeBox = False, MinimizeBox = False


    'ToolTip（提示文字）：鼠标移到上面会出现提示的文字
    '由 [工具箱] 拖拉 ToolTip
    '于待显示的 TextBox. Button 等 control 之 属性 ToolTip 输入待显示的文字
    '鼠标移到待显示的 TextBox. Button 等 control上面会出现提示的文字

    '<HelpProvider 功能 1>
    'HelpProvider：鼠标按窗体右上 ? 再按下待说明的控件会出现提示的文字
    'From1 HelpButton = True, MaximizeBox = False, MinimizeBox = False
    '由 [工具箱] 拖拉 HelpProvider
    '于待显示的 TextBox. Button 等 control 之 属性 HelpString 输入待显示的文字
    '鼠标按窗体右上 ? 再移到待显示的 TextBox. Button 等 control 上面会出现提示的文字


    '<HelpProvider 功能 2>
    'HelpProvider：鼠标按窗体右上 ? 再按下待说明的控件会出现Help档案

    'HelpProvider(内容)
    'HelpProvider1 属性 HelpNamespace 输入 ..\htmlhelp.chm
    'ShowHelp 于 HelpProvider1 : True
    'ShowHelp 于 HelpProvider2 : False
    'HelpNavigator 于 HelpProvider1 : TableOfContents

    'HelpProvider(带索引) : 带 Keyword 给.chm help 索引
    'HelpProvider1 属性 HelpNamespace 输入 ..\htmlhelp.chm
    'ShowHelp 于 HelpProvider1 : True
    'ShowHelp 于 HelpProvider2 : False
    'HelpNavigator 于 HelpProvider1 : KeywordIndex
    'HelpKeyword 于 HelpProvider1 : 待索引的文字 (譬如: indexing for Web search engines)

    'HelpProvider(带搜寻) : 带 Keyword 给.chm help 搜寻
    'HelpProvider1 属性 HelpNamespace 输入 ..\htmlhelp.chm
    'ShowHelp 于 HelpProvider1 : True
    'ShowHelp 于 HelpProvider2 : False
    'HelpNavigator 于 HelpProvider1 : Find
    'HelpKeyword 于 HelpProvider1 : 待搜寻的文字 (譬如: ActiveX control)

    'HelpProvider(Html)
    'HelpProvider2 属性 HelpNamespace 输入 ..\Myhelp.htm
    'ShowHelp 于 HelpProvider1 : False
    'ShowHelp 于 HelpProvider2 : True


    '<HelpProvider 功能 3>
    'HelpProvider Menu 说明 (内容/索引/搜寻)
    '由 [工具箱] 拖拉 两个 HelpProvider (HelpProvider1, HelpProvider2)
    'HelpProvider1 属性 HelpNamespace 输入 ..\htmlhelp.chm
    'HelpProvider2 属性 HelpNamespace 输入 ..\Myhelp.htm
    '于各个 menu Click 输入以下程序
    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        ' 说明内容
        Help.ShowHelp(Me, HelpProvider1.HelpNamespace)
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        ' 说明索引
        Help.ShowHelpIndex(Me, HelpProvider1.HelpNamespace)
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        ' 说明搜寻
        Help.ShowHelp(Me, HelpProvider1.HelpNamespace, HelpNavigator.Find, "")
    End Sub


    'ErrorProvider：输入非数字会出现红色问号的错误符号
    Private Sub TextBox3_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox3.Validating
        If Not IsNumeric(TextBox3.Text) Then
            '设定 Error
            ErrorProvider1.SetError(TextBox3, "不是一个数字.")
            TextBox3.ForeColor = Color.Red
        Else
            '清除 Error
            ErrorProvider1.SetError(TextBox3, "")
            TextBox3.ForeColor = Me.DefaultForeColor
            MsgBox("OK")
        End If
    End Sub

End Class