Vb.net 我需要在计时器运行时禁用一个功能

Vb.net 我需要在计时器运行时禁用一个功能,vb.net,function,timer,Vb.net,Function,Timer,我正在为一个图像托管网站做一个项目,我需要找到一种方法,当用户点击热键调用某个函数时,它会触发一个计时器,持续x秒,从而禁用该函数的调用 我已经有了功能设置和热键所有我需要添加的是禁用从定时器内调用的功能,而它是滴答作响。有什么想法吗?还是有可能 致以最诚挚的问候和衷心的感谢,Aurora最简单的方法是在启动计时器之前设置一个布尔变量,然后在计时器的Tick EventHandler中重置它 Dim run As Boolean Sub tick() Handles Timer.Tick

我正在为一个图像托管网站做一个项目,我需要找到一种方法,当用户点击热键调用某个函数时,它会触发一个计时器,持续x秒,从而禁用该函数的调用

我已经有了功能设置和热键所有我需要添加的是禁用从定时器内调用的功能,而它是滴答作响。有什么想法吗?还是有可能


致以最诚挚的问候和衷心的感谢,Aurora

最简单的方法是在启动计时器之前设置一个布尔变量,然后在计时器的Tick EventHandler中重置它

Dim run As Boolean
Sub tick() Handles Timer.Tick
    If run Then
        callfunction()
    End If
End Sub
大概是这样的:

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

再次感谢你,马克。这就像一个魅力,并在这一点上。我的程序完成了。:)再次感谢!