ErrorProvider控件的使用

 添加一个文本框,一个ErrorProvider,,当光标离开这个文本框时判断输入的是否是一个数据

代码:

1. Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
2.         If Not IsNumeric(TextBox1.Text) Then
3.             ErrorProvider1.SetError(TextBox1, "You must enter a numeric value.")
4.         Else
5.             ErrorProvider1.SetError(TextBox1, "")
6.         End If
7.     End Sub

'获取当前计算机的相关信息

1.         Label1.Text = My.Application.Info.Version.ToString()          '获取当前应用程序的版本号
2.         Label1.Text = My.Computer.Name.ToString                        '获取当前计算机的名称