TextBox值更改=禁用其他工具项

时间:2013-10-21 15:21:55

标签: vb.net vb6 vb.net-2010

我需要您的协助才能对我的项目进行更改。

每当文本框值发生变化时,我都需要禁用单选按钮,标签,文本框和其他工具()。

实际上我是通过使用按钮点击事件将值从数据网格移动到文本框。当我这样做时,文字正在移动,但条件不起作用

我已经尝试过这个但是没有用。协助我。

  Private Sub txtIEG_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIEG.TextChanged

    If txtIEG.Text = "RR1" AndAlso txtIEG.Text = "RR2" Then

        lblStatus.Visible = False
        cborderstatus.Visible = False
        lblticketno.Visible = False
        txtTicket.Visible = False
        lblPR.Visible = False
        txtPR.Visible = False
        lblPOno.Visible = False
        txtPOno.Visible = False
        rbneworder.Visible = False
        rbreprocessed.Visible = False

    End If
End Sub

2 个答案:

答案 0 :(得分:0)

尝试设置Enabled属性,而不是Visible

lblStatus.Enabled = False
cborderstatus.Enabled = False

修改

现在我知道,您正在检查您的文字是否同时为RR1RR2。这有点不可能,因此if中的代码永远不会被执行。将其更改为

If txtIEG.Text = "RR1" OrElse txtIEG.Text = "RR2" Then

答案 1 :(得分:0)

这永远不会成真:

If txtIEG.Text = "RR1" AndAlso txtIEG.Text = "RR2" Then

TB可能是“RR1”,也可能是“RR2”,但它可能永远不会同时出现。也许你的意思是:

If txtIEG.Text = "RR1" OrElse txtIEG.Text = "RR2" Then