永发信息网

VB.NET,如何利用Timer控件在某个时间点触发事件?

答案:1  悬赏:60  手机版
解决时间 2021-01-10 11:19
  • 提问者网友:暗中人
  • 2021-01-10 02:38
VB.NET,如何利用Timer控件在某个时间点触发事件?
最佳答案
  • 五星知识达人网友:白昼之月
  • 2021-01-10 02:49
我待会私信给你,因为这里写代码可能会被判定内容不规范~~
当然你可以追问下, 我在下面回答下试试~~
程序不难!可以自己写一下哦~~
私信里面查收哦~~

代码已经写好了,你追问下~~
呃,我试下代码能不能直接写进来吧~~
建立一个按钮,两个timer,我这里用的是默认名称~~

-----
By 110schoolx
纯手工,问题解决请采纳,问题未解决请继续追问,请勿人间蒸发,谢谢!

——————————
vb.net原代码:
Public Class Form1
Dim time As String
Dim time2 As String
Dim timeofhour As Integer
Dim timeofminute As Integer
Dim timeofsecond As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer2.Enabled = False
Timer1.Interval = 500
Timer2.Interval = 10000
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'11:59:45,执行某个sub过程
Dim CurrentTime As String
CurrentTime = Format(TimeOfDay, "yyMMdd-HHmmss")
time = "20130508-115945"
If CurrentTime = time Then
Call Process()
End If
'从11:55:00开始,到11:59:45,每隔10秒钟执行一次sub过程
Dim CurrentTime2 As String
CurrentTime2 = Format(TimeOfDay.Date, "yyMMdd")
time2 = "20130508"
If CurrentTime2 = time2 Then
If TimeOfDay.Hour = 11 Then
If TimeOfDay.Minute > 54 And TimeOfDay.Minute < 59 Then
Timer2.Enabled = True
ElseIf TimeOfDay.Minute = 59 And TimeOfDay.Second < 46 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Process()
'Enter your code
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Call Process()
End Sub
End Class
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯