在put中验证用户的VB.NET
在put中验证用户的VB.NET
提问于 2013-09-07 11:36:12
我在VB.NET中有4个VB.NET，我必须验证它们中的用户输入。根据输入到文本框中的数据，我必须显示下列消息之一：
1分为空白 1不是数字 1分不在范围内: 0-10。 分数1有效
我必须对Score2、Score3和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有效
像这样..。
回答 2
Stack Overflow用户
发布于 2013-09-07 11:55:40
将数字作为参数传递：
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 SubStack Overflow用户
发布于 2013-09-07 14:56:16
正如我在评论中建议的那样，使用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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/18672880
复制相关文章
相似问题
腾讯云开发者
