主题：VB.net中如何检测textbox控件里的字符内容是否符合人为确定的格式？
sun4742002716
[专家分：10] 发布于 2009-06-15 22:34:00
我在VB2005的一个窗体上面加了个TEXTBOX的控件，这个控件在窗体加载后需要人在里面输入一个表达式字符串
“ax+b=0”,其中a是一个十进制数字，b也是一样。比如举例来说，当窗体加载后，弹出窗口。人可以在这个textbox里面输入
5x+10=0,关闭窗体后，重新加载程序，在该控件里面可以输入x-8=0。总之是这个形式：ax+b=0.否则弹出对话框报错。
这里先谢过了。
回复列表 （共2个回复）
沙发
sywzs [专家分：5650] 发布于 2009-06-17 15:28:00
TextBox1.CharacterCasing = Lower
--------
If Len(TextBox1.Text) > 4 And InStr(TextBox1.Text, "x+") > 0 And InStr(TextBox1.Text, "=0") > 0 Then
Dim c0 As String = Trim(TextBox1.Text)
If Mid(c0, 1, 1) = "x" Then
c0 = "1" + c0
End If
Dim n0 As Integer = Len(c0)
Dim n1 As Integer = InStr(c0, "x+") - 1
Dim n2 As Integer = InStr(c0, "=0") - 1
Dim c1 As String = Mid(c0, 1, n1)
Dim c2 As String = Mid(c0, n1 + 3, n0 - n1 - 4)
If Not IsNumeric(c1) Or Not IsNumeric(c2) Then
MessageBox.Show("表达式错误！")
End If
End If
板凳
7testing [专家分：0] 发布于 2009-10-20 17:42:00
似乎不行啊。不知道是不是我的操作问题？？
我来回复
您所在位置：