在VB.NET标签的下一行中打印

Question

这是我的代码：

Private Sub btn_Validate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Validate.Click
    Call ValidateData(txt_score1.Text, "1")
    Call ValidateData(txt_score2.Text, "2")
    Call ValidateData(txt_score3.Text, "3")
    Call ValidateData(txt_score4.Text, "4")
End Sub

Private Sub ValidateData(ByVal vScore As String, ByVal vintScore As String)
    If (vScore = "") Then
        lbl_StatusContent.Text = vbCrLf & "Score " & vintScore & " is blank"
    ElseIf Not (IsNumeric(vScore)) Then
        lbl_StatusContent.Text = vbCrLf & "Score " & vintScore & " is not numeric"
    ElseIf (vScore < 0 And vScore > 10) Then
        lbl_StatusContent.Text = vbCrLf & "Score " & vintScore & " is not in range: 0-10"
    Else
        lbl_StatusContent.Text = vbCrLf & "Score " & vintScore & " is Valid"

    End If
    vintScore = vintScore + 1
End Sub

问题是它只显示我的成绩4结果。 得分1，得分2和得分3与第四位重叠。

我希望所有它们都在下一行中。 这样我就可以看到所有4个分数，并且没有一个重叠。

Answer 1

我希望所有它们都在下一行中。

我认为您正在寻找vbnewline或Environment.NewLine

Answer 2

当然，您只会看到最后的结果。 每次调用该方法时，都会覆盖先前的输出。 我认为您需要一些东西来连接结果并一起打印

Private Sub btn_Validate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Validate.Click
    Dim result As String 
    result = ValidateData(txt_score1.Text, "1")
    result = result & ValidateData(txt_score2.Text, "2")
    result = result & ValidateData(txt_score3.Text, "3")
    result = result & ValidateData(txt_score4.Text, "4")
    lbl_StatusContent.Text = result
End Sub

Private Function ValidateData(ByVal vScore As String, ByVal vintScore As String) As String
    Dim result As String
    If (vScore = "") Then
        result = vbCrLf & "Score " & vintScore & " is blank"
    ElseIf Not (IsNumeric(vScore)) Then
        result = vbCrLf & "Score " & vintScore & " is not numeric"
    ElseIf (vScore < 0 And vScore > 10) Then
        result = vbCrLf & "Score " & vintScore & " is not in range: 0-10"
    Else
        result = vbCrLf & "Score " & vintScore & " is Valid"
    End If
    return result
End Function

并确保lbl_StatusContext.Height足以容纳至少4行文本