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