在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>
答案 0 :(得分:2)
.NET区分大小写,这意味着shutdown
与SHUTDOWN
不同。您可以将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变量。
可能不会声明存储按钮?