VB指定时间执行事件
发布网友
发布时间:3小时前
我来回答
共0个回答
VB指定时间执行事件
Private Sub Form_Load()Timer1.Interval = 300 Label1.Caption = Clear End Sub Private Sub Timer1_Timer()Label1.Caption = Time If CDate(Time) = CDate("11:19:20") Then 'Unload Me Form2.Show End If End Sub === CDate函数用法如下:http://baike.baidu.com/view/611252.htm...
vb里怎样在指定时间点上执行一段代码?
Private Sub Form_Load()Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()If Format$(Now, "hhmm") = "1234" Then '这里写要执行的代码段 '1234表示中午12点34分,根据需要自行修改 Timer1.Interval = 60001 '到工作时间时把工作频率改为每分钟工作一次 '否则在这一分钟里会连续执...
VBS,我想在指定日期时间,比如:2008-02-06,8:20:23秒运行一个程序怎么写...
每50毫秒 赋值一次 这样可保证你的时间的准确性 然后别的地方 你可以写成 if 语句 或者选择语句都可以 当这个变量等于 你想设置的时间时 执行代码!当然同样也可以写成timer 事件 如果你声明的变量的值 等于你所设定的值的时候发生的事件……这个都是用初级VB的方法 不用添加控件的 参考资...
VB如何到达某时间后自动执行某事件?
添加一个Timer1_Timer()控件,intervar属性设为1000 Private Sub Timer1_Timer()'Cls 'Print Format(Time, "hh:mm:ss")a = Format(Time, "hh:mm:ss")b = Format(#5:51:00 PM#, "hh:mm:ss")If a = b Then Label1.Caption = "下午了,该吃饭了"End If End Sub ...
怎样用vb编写一个事件,到某个时间点触发程序
最简单的方法。假设定在10:00:00 dim a,b as string a=time()b="10:00:00"if cdata(a)=cdata(b) then 要触发的事件 endif
关于Vb 如何设定倒计时来定时执行某项事件
首先定义一个Timer如:Private WithEvents CDTimer As New System.Windows.Forms.Timer Dim interval_time as integer 10 然后创建一个方法 Private Sub CDTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CDTimer.Tick interval_time = interval_time - 1 if ...
急求vb下如何定时运行指定程序
在timer事件中加入(timer设置为每1000毫秒运行一次):if str(time)="09:00:00" then msgbox "时间到!请关电脑去吃早餐!"(楼主,我是99tools,上面的代码有点BUG,改为以上,给分请给到99tools)
VB 每隔5分钟执行一次程序
VB可以使用Timer控件来实现按规定时间执行程序的目的。Timer 控件,通过引发 Timer 事件,Timer 控件可以有规律地隔一段时间执行一次代码。Interval 属性,返回或设置对 Timer 控件的计时事件各调用间的毫秒数。实现代码如下:Option Explicit Dim I As LongPrivate Sub Form_Load() Timer1.Interval...
vb 定时触发事件
放一个Timer,代码如下:Private Sub Form_Load()Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()Dim Tm& Tm = Minute(Now)If Tm Mod 10 = 1 Then Call SJSJSJ End If End Sub Private Sub SJSJSJ()'你要触发的事件 End Sub ...
VB让程序每隔一段时间改触发一次事件
界面加一个定时器,设置时间为5000(即5秒),在定时器下文本框的值=随机数.