Question

好吧，我在VB [2013]

中完成了一个非常混乱的编码

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

  If TextBox1.Text <= 10 Then
      TextBox1.Text += 2
  ElseIf TextBox1.Text > 10 Then
      TextBox1.Text = "Greater than 10!"
      Button1.Enabled = False
  End If

End Sub

现在我需要的是显示文本框上的最后一条消息。例如：

＆＃34;大于10岁！＆＃34;

＆＃34;您的上一条消息是：11＆＃34;

Answer 1

这不会解决您的问题，但无论如何强烈建议您这样做。始终使用Option Strict，然后TextBox1.Text <= 10将不再编译，因为您无法将字符串与整数进行比较。防止不必要的隐式转换或其他问题很有帮助。它还有助于理解.NET类型。因此，请转到“工具/选项/项目和解决方案”，然后将其设置为On：Strict（！），Explicit，Infer。

根据实际问题。如果您希望Integer使用String使用System.Int32.Parse或（如果格式可能与用户输入无效）Int32.TryParse：

Dim number As Int32
If Int32.TryParse(TextBox1.Text, number) Then
    If number <= 10 Then 
        number += 2
        TextBox1.Text = number.ToString()
    Else
        TextBox1.Text = "Greater than 10!"
        Button1.Enabled = False 
    End If
Else
    TextBox1.Text = "Not an integer!"
    Button1.Enabled = False 
End If

Answer 2

如果要在“大于10”时显示“您的上一条消息是：11”将显示消息，然后您必须更改您的其他声明

TextBox1.Text = "Greater than 10!"

通过

TextBox1.Text = "Greater than 10!" & " Your last message is:" & TextBox1.Text

在文本框上显示最后一个文本

2 个答案: