-1

我正在开发一个用于图像托管站点的项目,我需要找到一种方法,以便当用户按下热键调用一个函数时,它将触发一个计时器 x 秒,这将禁用该功能叫。

我已经有了功能设置和热键,我需要添加的只是在计时器计时时禁止在计时器内调用该功能。有任何想法吗?或者有可能吗?

最好的问候和非常感谢,奥罗拉

4

2 回答 2

0
Dim run As Boolean
Sub tick() Handles Timer.Tick
    If run Then
        callfunction()
    End If
End Sub
于 2013-01-05T19:16:00.190 回答
0

最简单的方法是在启动 Timer 之前设置一个布尔变量,然后在 Timer 的 Tick EventHandler 中将其重置。

像这样的东西:

Public Class Form1
    Dim disableFunction As Boolean = False
    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Timer1.Interval = 2000 '2 second wait time
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        disableFunction = False
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If disableFunction Then Exit Sub
        disableFunction = True
        Timer1.Start()
    End Sub
End Class
于 2013-01-05T19:17:14.237 回答