0

这是我的代码：

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 个分数，并且没有一个重叠。

4

2 回答 2

0

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

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 行文本

于 2013-09-07T12:17:26.783 回答
0

我希望他们都在下一行。

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

于 2013-09-07T12:11:22.020 回答