实例087错误提示ErrorProvider 组件（Windows 窗体）

134 阅读 0 评论 89 点赞

我是靠谱客的博主风中板凳，这篇文章主要介绍实例087错误提示ErrorProvider 组件（Windows 窗体），现在分享给大家，希望可以做个参考。

ErrorProvider 组件（Windows 窗体）

https://docs.microsoft.com/zh-cn/dotnet/framework/winforms/controls/errorprovider-component-windows-forms

ErrorProvider类是由Component类继承而柬。ErrorProvider显示一个简单的界面，向最终用户指出窗体上的控件具有与它关联的错误。如果为控件指定了错误描述字符串，控件旁将会出现一个图标。
ErrorProvider类的主要属性和方法包括：

BlinkStyle．图标闪动的方式；
BlinkRate，图标闪烁的速率；
SetError，绑定显示错误图标的控件及错误信息，SetError有两个参数：一个是绑定的控件，一个是当鼠标在错误图标上悬停时显示的错误信息。

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Class Form1

    Private Function SpecialChars(ByVal s As String) As Boolean
        Dim str() As Char
        str = s.ToCharArray

        Dim icount As Integer
        Dim ch As Char
        For icount = 0 To str.Length - 1
            ch = str(icount)
            If Not (Asc(ch) >= Asc("a") And Asc(ch) <= Asc("z")) Or _
                (Asc(ch) >= Asc("A") And Asc(ch) <= Asc("Z")) Then
                Return True
            End If
        Next
        Return False
    End Function

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If SpecialChars(TextBox1.Text) Then
            ErrorProvider1.SetError(TextBox1, "该文本框只接受字母")
        Else
            ErrorProvider1.SetError(TextBox1, "")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class