visual basic ..我想在TextBox1.text =“SHUTDOWN”时使TextBox2可见

时间:2014-01-07 11:23:40

标签: vb.net visual-studio-2010 visual-studio vba string-comparison

在visual basic中, 我想在TextBox2

时看到TextBox1.Text = "SHUTDOWN"

这是我的代码

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) 
                                                     Handles TextBox1.TextChanged
    AcceptButton = Button1
    If TextBox1.Text = "SHUTDOWN" Then
        TextBox2.Visible = True
    End If
End Sub

但它不起作用

注意:没有错误消息...而textbox1 charachter的外壳是“上”,所以它将是“SHUTDOWN”而不工作意味着当我在textbox1中写“SHUTDOWN”时,textbox2不会显示< / p>

5 个答案:

答案 0 :(得分:2)

.NET区分大小写,这意味着shutdownSHUTDOWN不同。您可以将Equals与带有StringComparison的重载:

一起使用
If TextBox1.Text.Equals("SHUTDOWN", StringComparison.CurrentCultureIgnorecase) Then
    TextBox2.Visible = True
End If

VB.NET中的另一个选项是在文件或项目级别使用OPTION Compare

如果您将其用作文件的第一行:

Option Compare Text

您会得到不区分大小写的比较。但是,我更喜欢.NET方式。

  

文本:基于不区分大小写的文本排序的字符串比较结果   订单由您系统的区域设置决定。这种比较是   如果您的字符串包含所有文本字符,并且您想要,则非常有用   比较它们考虑字母等价,如案例   不敏感和密切相关的信件。例如,您可能想要   考虑A和a是平等的,Ä和ä来到B和b之前。

答案 1 :(得分:1)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Textbox2.visible = False

End Sub


Protected Sub TxtBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtBox1.TextChanged
    If TxtBox1.Text.ToUpper = "SHUTDOWN" Then
       TextBox2.Visible = True
    Else
       TextBox2.Visible = False
    End If
End Sub

答案 2 :(得分:0)

要忽略文本的大小写(如果这是问题),您可以使用以下内容:

If TextBox1.Text.ToUpper() = "SHUTDOWN" Then
    TextBox2.Visible = True
End If

确保您的TextBox2在显示时具有正确的坐标

答案 3 :(得分:0)

Dim Wrd As String = "SHUTDOWN"
Protected Sub TxtBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtBox1.TextChanged
        If Wrd = TxtBox1.Text.ToUpper Then
            TxtBox5.Visible = True
         End If
End Sub

答案 4 :(得分:0)

刚做了一次测试:

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    If (TextBox1.Text = "SHUTDOWN") Then
        TextBox2.Visible = True
    End If
End Sub

发现没有问题 - 可能是AcceptButton = Button1。我不确定为什么它不起作用,但是当输入“SHUTDOWN”时我的工作正常。尝试将AcceptButton更改为注释(')然后尝试代码,如果它工作,那么它是AcceptButton变量。

可能不会声明存储按钮?