button的间断可用以及文本框输入限制谢谢

#2

fily13142011-03-10 17:19

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If (TextBox1.Text <> "" And TextBox2.Text <> "") Then
            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If (TextBox1.Text <> "" And TextBox2.Text <> "") Then
            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        '限制文本框只能输入数字
        If Not System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar.ToString(), "[0-9]") Then
            e.Handled = True
        Else
            e.Handled = False
        End If
    End Sub

#3

qq10235692232011-03-10 18:41

LS高人！

#4

sywzs2011-03-10 20:03

2楼的前两段代码可以合并，如下
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged,TextBox2.TextChanged
        If (TextBox1.Text <> "" And TextBox2.Text <> "") Then
            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub

#5

DYXLXZ2011-03-11 10:15

回复 2楼 fily1314

多谢指教啊，呵呵！！！！

#6

DYXLXZ2011-03-11 10:17

回复 4楼 sywzs

辽宁的大侠，精简，谢谢啊！！！

#7

除了你2011-03-31 19:14

厉害嘛,我找好久了,多谢了!

#8

dylju2011-04-02 08:48

二楼的数字限制如果包括小数点和负号就好了，以前没见过
System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar.ToString(), "[0-9]")
的用法，可不可以解释一二？我是初学者，大家见笑了

button的间断可用 以及 文本框输入限制 谢谢