遇到问题,为什么这不会检查文本框以及选定的颜色。
如果我没有放置颜色,它会标记“请输入字段”消息,但是如果我确实选择了一种颜色,但不在名称文本框中输入任何内容,则它会继续并在msgbox中输出一个空白字符串。检查是否为空VB.NET
代码是:
Dim newColor As Color
Dim userName As String
Dim notEnoughArguments As String = "Please fill out the fields"
'Click event for button
Private Sub enterBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enterBtn.Click
If (userName Is "") Then
MsgBox(notEnoughArguments)
ElseIf (userName Is "" And colorLtb.SelectedItem Is Nothing) Then
MsgBox(notEnoughArguments)
ElseIf (colorLtb.SelectedItem Is Nothing) Then
MsgBox(notEnoughArguments)
Else
userName = txt1.Text
Dim selectedColor As String = colorLtb.SelectedItem.ToString
newColor = Color.FromName(selectedColor)
Dim msgBoxText As String = "Hello " + txt1.Text + "." & vbCrLf + "Changing your color to " + selectedColor + "."
MsgBox(msgBoxText)
Me.BackColor = newColor
End If
End Sub
发现我只检查,他们俩都做了,但把它们当进入单独的,如果我们从一个ELSEIF它仍然无法正常工作? - 编辑主文章以显示新代码。尽管如此,仍然有同样的问题。 – 2014-09-11 09:08:37