快速点击图片

the fast clicking on a picture

this is a game I am creating called: "Click the apple" its in dutch btw

我是一名初级程序员,所以我正在制作这款游戏​​,但我正在尝试添加一些图形,我正在尝试在 Photoshop 中进行一些操作,这就是我想出的,我非常喜欢它,现在是我放置时的问题picutebox(苹果)上的点击事件,每次我点击它时我都会增加一个标签它工作正常,但是当我点击快速时它无法跟上(我也使用了快速点击器但它只是缓慢增加)当我做同样的事情但是用一个按钮它工作得很好现在我想知道是什么问题,也许你们中的一些人可以帮助我,我把代码粘贴在这里:

Public Class Form1

    Dim appels As Integer = 0
    Dim aps As Integer = 0
    Dim apc As Integer = 10

    Dim ug_1_multiplier As Integer = 2
    Dim ug_1_prijs As Integer = 1500

    Dim appelstruik_prijs As Integer = 100
    Dim appelstruik_aps As Integer = 1
    Dim appelstruik_aantal As Integer = 0
    Dim appelstruik_max As Integer = 20

    Dim appelboom_prijs As Integer = 200
    Dim appelboom_aps As Integer = 5
    Dim appelboom_aantal As Integer = 0
    Dim appelboom_max As Integer = 10

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        L_appelstruiken_prijs.Text = appelstruik_prijs
        L_aant_appelstruiken.Text = (appelstruik_aantal & " / " & appelstruik_max)

        L_appelbomen_prijs.Text = appelboom_prijs
        L_aant_appelbomen.Text = (appelboom_aantal & " / " & appelboom_max)

        T_aps.Start()
        T_testformax.Start()
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        PictureBox2.Enabled = False
        PictureBox2.Enabled = True
        appels = appels + apc
        L_aant_appels.Text = appels
    End Sub

    Private Sub B_appelstruik_kopen_Click(sender As Object, e As EventArgs) Handles B_appelstruik_kopen.Click
        If appels >= appelstruik_prijs Then
            aps = aps + appelstruik_aps
            appels = appels - appelstruik_prijs
            appelstruik_prijs = Math.Round(Val(appelstruik_prijs / 10), 0) + appelstruik_prijs
            appelstruik_aantal += 1

            L_aant_appelstruiken.Text = (appelstruik_aantal & " / " & appelstruik_max)
            L_appelstruiken_prijs.Text = appelstruik_prijs
            L_aps.Text = aps
            L_aant_appels.Text = appels
        Else
            MessageBox.Show("je hebt: " & appels & " van de: " & appelstruik_prijs)
        End If
    End Sub

    Private Sub B_appelboom_kopen_Click(sender As Object, e As EventArgs) Handles B_appelboom_kopen.Click
        If appels >= appelboom_prijs Then
            aps = aps + appelboom_aps
            appels = appels - appelboom_prijs
            appelboom_prijs = Math.Round(Val(appelboom_prijs / 10), 0) + appelboom_prijs
            appelboom_aantal += 1

            L_aant_appelbomen.Text = (appelboom_aantal & " / " & appelboom_max)
            L_appelbomen_prijs.Text = appelboom_prijs
            L_aps.Text = aps
            L_aant_appels.Text = appels
        Else
            MessageBox.Show("je hebt: " & appels & " van de: " & appelboom_prijs)
        End If
    End Sub

    Private Sub T_aps_Tick(sender As Object, e As EventArgs) Handles T_aps.Tick
        appels = appels + aps
        L_aant_appels.Text = appels

        L_aant_appelstruiken.Text = (appelstruik_aantal & " / " & appelstruik_max)
        L_appelstruiken_prijs.Text = appelstruik_prijs

        L_appelbomen_prijs.Text = appelboom_prijs
        L_aant_appelbomen.Text = (appelboom_aantal & " / " & appelboom_max)

        L_aps.Text = aps
        L_aant_appels.Text = appels
    End Sub

    Private Sub T_testformax_Tick(sender As Object, e As EventArgs) Handles T_testformax.Tick
        If appelstruik_aantal >= appelstruik_max Then
            B_appelstruik_kopen.Enabled = False
        Else
            B_appelstruik_kopen.Enabled = True
        End If

        If appelboom_aantal >= appelboom_max Then
            B_appelboom_kopen.Enabled = False
        Else
            B_appelboom_kopen.Enabled = True
        End If
    End Sub

    Private Sub B_gen_appels_Click(sender As Object, e As EventArgs) Handles B_gen_appels.Click
        appels = appels + apc

        L_aant_appels.Text = appels
    End Sub

    Private Sub b_upgrade_1_apc_dubbel_Click(sender As Object, e As EventArgs) Handles b_upgrade_1_apc_dubbel.Click
        If appels >= ug_1_prijs Then
            apc = apc * ug_1_multiplier

            L_apc.Text = apc

            b_upgrade_1_apc_dubbel.Enabled = False
        Else
            MessageBox.Show("je hebt: " & appels & " van de: " & ug_1_prijs)
        End If
    End Sub
End Class

不要为此使用 Click 事件。如果需要获取点击次数,使用MouseClick Event。它有类似 MouseEventArgs 的参数。此 class 具有类似的属性:点击次数,即 returns 按下和释放鼠标按钮的次数。