0

私はVB.NETに4つtextboxesあり、それらのユーザー入力を検証する必要があります。テキストボックスに入力されたデータによると、次のメッセージのいずれかを表示する必要があります。

スコア 1 は空白です

スコア 1 は数値ではありません

スコア 1 は範囲外です: 0-10

スコア 1 が有効

Score2Score3、およびに対してこれを繰り返さなければなりませんScore4

これは私のコードです:

Public Class Form1
    Dim vintScore As Integer = 1

    Private Sub btn_Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Clear.Click
        Call Clear()
    End Sub

    Private Sub btn_DefaultValues_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_DefaultValues.Click
        Call DefaultValues()
    End Sub

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

    Private Sub Clear()
        txt_score1.Text = ""
        txt_score2.Text = ""
        txt_score3.Text = ""
        txt_score4.Text = ""
        txt_category.Text = ""
        lbl_StatusContent.Text = "All Data Cleared!"
    End Sub

    Private Sub DefaultValues()
        Call Clear()
        txt_score1.Text = "4"
        txt_score2.Text = "1"
        txt_score3.Text = "2"
        txt_score4.Text = "4"
        txt_category.Text = "A"
        lbl_StatusContent.Text = vbCrLf & "TextBox values set to default values"
    End Sub

    Private Sub ValidateData(ByVal vScore 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
End Class

私が現在出力として得ているものは次のとおりです。

スコア 4 は有効です

スコア 8 が有効です

スコア 12 は数値ではありません

等々...

私が求めているのはこれです:

スコア 1 が有効

スコア 2 は数値ではありません

スコア 3 は範囲外です: 0-10

スコア 4 は有効です

このような...

4

2 に答える 2

0

数値をパラメーターとして渡します。

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
End Sub

発信者:

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
于 2013-09-07T11:55:40.437 に答える
0

コメントで提案したように、次を使用しStringBuilderます。

Private Sub btn_Validate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Validate.Click
    Dim sb As New StringBuilder()
    Call ValidateData(txt_score1.Text, 1, sb)
    Call ValidateData(txt_score2.Text, 2, sb)
    Call ValidateData(txt_score3.Text, 3, sb)
    Call ValidateData(txt_score4.Text, 4, sb)
    lbl_StatusContent.Text = sb.ToString()
End Sub

Private Sub ValidateData(ByVal vScore As String, ByVal vintScore As Integer, sb As StringBuilder)
    If vScore = "" Then
        sb.AppendLine("Score " & vintScore & " is blank")
    ElseIf Not (IsNumeric(vScore)) Then
        sb.AppendLine("Score " & vintScore & " is not numeric")
    '...
End Sub
于 2013-09-07T14:56:16.767 に答える