VB lnteractive（net8.0）制作倒计时器

延时器功能创建

通过延时器功能进行计时，时每隔一段时间进行减或加时间参数并进行比对，具体代码如：

Sub Delay(ByVal interval As Integer)
    Dim endTime As Date
    endTime = Now.AddMilliseconds(interval)
    Do While Now < endTime
        ' 空循环体，消耗时间
    Loop
End Sub

计时器设置

通过执行Delay来进行延迟,并设置功能t:

Public Sub t()
Delay(Inputbox("时间是多少"))
Msgbox("时间到")
End Sub

最后写入t()开始计时

整合代码

最后是整合代码:

Sub Delay(ByVal interval As Integer)
    Dim endTime As Date
    endTime = Now.AddMilliseconds(interval)
    Do While Now < endTime
        ' 空循环体，消耗时间
    Loop
End Sub
Public Sub t()
Delay(Inputbox("时间是多少"))
Msgbox("时间到")
End Sub
t()

总结

延时器延时功能倒计时器进行计时,通过Inputbox输入时长,最后用Msgbox提示到时间

Msgbox进行提示也可以换成其他想要的提示内容