添加一个文本框,一个ErrorProvider,,当光标离开这个文本框时判断输入的是否是一个数据
代码:
- Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
- If Not IsNumeric(TextBox1.Text) Then
- ErrorProvider1.SetError(TextBox1, "You must enter a numeric value.")
- Else
- ErrorProvider1.SetError(TextBox1, "")
- End If
- End Sub
'获取当前计算机的相关信息
- Label1.Text = My.Application.Info.Version.ToString() '获取当前应用程序的版本号
- Label1.Text = My.Computer.Name.ToString '获取当前计算机的名称
本文介绍了一个使用Visual Basic编写的简单示例,该示例演示了如何在文本框失去焦点时验证输入是否为数值,并利用ErrorProvider显示错误信息。此外,还展示了如何获取当前应用程序的版本号及计算机名称。
6092

被折叠的 条评论
为什么被折叠?



