vb.net 带有鼠标按钮事件和标签的奇怪动作

Question

我有一个问题，label1.text 需要到达号码5 与mouse left button 点击label8 使，一个tool strip menu item 出现，但即使是5 它保持不可见除了点击一次与mouse right button。这是代码：

 Private Sub Label8_Click(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Label8.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Label1.Text = Val(Label1.Text) + 1
        Else
            If IsNumeric(Label1.Text = 5) Then
                CustomizeModeToolStripMenuItem.Visible = True
            End If
        End If
End Sub

Answer 1

更新：

Private Sub Label8_Click(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Label8.Click
            If e.Button = Windows.Forms.MouseButtons.Left And  (Label1.Text <> "5") Then
                Label1.Text = Val(Label1.Text) + 1
            ElseIf  (Label1.Text = "5") Then
                    CustomizeModeToolStripMenuItem.Visible = True
            End If
    End Sub

你遇到的问题是：

Else
            If IsNumeric(Label1.Text = 5) Then
                CustomizeModeToolStripMenuItem.Visible = True
            End If
        End If

您需要右键单击，因为if statement 完成了所有左键单击。我没有测试它，所以如果有什么不工作，说出来，我会修复它。