如何不允许文本框有负值？ (Visual Basic)

Question

这里的菜鸟问题。我正在尝试编写一个程序，以便当有人左键单击标签时，文本框中的值会增加 1。当他们右键单击它时，值会下降 1。这一切都有效，除了我没有'不希望该值能够成为负数。我试图阻止它发生，当文本框中已经有一个正值时它会起作用。但是，如果您在左键单击之前右键单击标签（在文本框中的任何值之前），它仍然会变为“-1”，然后停在那里。这是我正在使用的代码：

Private Sub Label5_MouseClick(sender As Object, e As MouseEventArgs) Handles Label5.MouseClick

    If e.Button = MouseButtons.Left Then
        SawWhetOwl.Text = (Val(SawWhetOwl.Text) + 1).ToString()
        Label5.Text = SawWhetOwl.Text
    ElseIf e.Button = MouseButtons.Right Then
        If SawWhetOwl.Text = CInt(SawWhetOwl.Text < 0) Then
            Exit Sub
        Else
            SawWhetOwl.Text = (Val(SawWhetOwl.Text) - 1).ToString()
            Label5.Text = SawWhetOwl.Text
        End If
    End If
End Sub

我认为，问题在于文本框中的值一开始是空的，没有分配任何值。因此，当我在给它一个值之前右键单击它时，它无法计算它是否小于 0，它只会给我 -1，我想。我很困惑，如果这个问题令人困惑，我很抱歉。我错过了什么明显的东西吗？

Answer 1

您可能需要检查文本是否为空以减少计数。

Private Sub Label5_MouseClick(sender As Object, e As MouseEventArgs) Handles Label5.MouseClick

    If e.Button = MouseButtons.Left Then
        SawWhetOwl.Text = (Val(SawWhetOwl.Text) + 1).ToString()
        Label5.Text = SawWhetOwl.Text
    ElseIf e.Button = MouseButtons.Right Then
        If  String.IsNullOrEmpty(SawWhetOwl.Text) OrElse CInt(SawWhetOwl.Text) <= 0 Then
            Exit Sub
        Else
            SawWhetOwl.Text = (Val(SawWhetOwl.Text) - 1).ToString()
            Label5.Text = SawWhetOwl.Text
        End If
    End If
End Sub