我在这段代码上得到了一个语法:
Public Class Form1
Private Sub mysub()
TextBox1.Text = "lol"
then
TextBox2.Text = "hi"
End Sub
End Class
错误已经开启,请帮助我。
答案 0 :(得分:0)
我不确定你想要实现什么,虽然我猜,你的代码应该是这样的:
Public Class Form1
Private Sub mysub()
If TextBox1.Text == "lol"
then
TextBox2.Text = "hi"
End If
End Sub
End Class
答案 1 :(得分:0)
这是你的方法:
Private Sub mysub()
TextBox1.Text = "lol" then TextBox2.Text = "hi"
End Sub
这不会编译,因为这个语句做了两件事:
TextBox1.Text
Then
而没有If
当然,您只能使用前一个If
Then
。我想你想做:
TextBox1.Text = "lol"
TextBox2.Text = "hi"
答案 2 :(得分:0)
此处的错误是then
,仅在if
块中使用;
Public Class Form1
Private Sub mysub()
TextBox1.Text = "lol"
then <-- error
TextBox2.Text = "hi"
End Sub
End Class
因此,您要么删除then
,这将设置textbox1和textbox2值。
或者你添加一个条件,如;
If TextBox1.Text = "lol" then
TextBox2.Text = "hi"
End If