www.3112.net > VB中,如何用定时器控制一个循环结构呢?也就是说...

VB中,如何用定时器控制一个循环结构呢?也就是说...

用一个标记变量,定时器如果时间到了就把那个变量的值改为某个值,比如1(数型),或者True(布尔型),事先要给这个变量赋值为非1,或者False。 循环中有判断这个标记变量的值,如果是1或者True就退出循环。

窗体加一个timer控件,interval属性设为60000(1分钟),代码区写以下代码 Dim count As Integer '用来记数,全局变量 Private Sub Timer1_Timer() If count = 30 Then '你要执行的语句 count = 0 Else count = count + 1 End If End Sub

Timer1.Enabled = True '定时器的启用 Timer1.Enabled = False '定时器的停止 启用之前注意设置Timer1.Interval = 100 单位是毫秒ms 作用是当定时器启用后100ms,调用Timer1_Timer事件。 Private Sub Timer1_Timer() msgbox("时间到") End Sub

控制台调用Timer和窗体是类似的。首先在项目引用里面加入System.Windows.Forms程序集,然后在代码顶部引入命名空间: Imports System.Windows.Forms 在控制台的Module中声明一个计时器: Private WithEvents Timer1 As New Timer() 把计时器的Ti...

Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()ClsPrint TimeEnd Sub

vb中完成十个小时或是更长时间的定时 应该是你对VB中的定时器有所了解了,可以先做一个60秒的定时器(刚好不超过VB的最大值65536毫秒),在定时器里面进行计时,每60次就是1小时,要做个几十小时不难吧;当达到定时次数(即时间)后,触发另外一...

Timer控件:Interval属性->设置执行时间间隔 利用Now函数获取当前系统完整时间,包括(年,月,日,时,分秒) 语法:Timer1.Interval=1000 '1秒执行一次 Print Now '打印当前时间

放一个Timer,例如名字叫 Timer1,interval是间隔时间单位毫秒最大值65535,就是65秒. 然后双击这个Timer1就会进入代码编辑窗口Private Sub Timer1_Timer(),在里面写要触发的事件,每隔你设置的时间就会触发一次.

只能用 System.Threading.Thread 另开多一条线程,才能不影响主线程和其它线程。

你没有明白Timer控件的工作原理: 你可以按照下面代码,做一个实验,然后体会,关键: Timer控件按照其Interval设置的值,每间隔一定的时间,自动触发其Tick事件。 Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ...

网站地图

All rights reserved Powered by www.3112.net

copyright ©right 2010-2021。
www.3112.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com