rprt.net
当前位置:首页 >> vB中timEr方法 >>

vB中timEr方法

简单的说timer是一个时间的控件,不能说timer的值等於2秒时,因为timer相当於时间,只能说当timer跳动两秒时触发某事件.代码如下: ' 首先要确定启动控件 me.timer1.enabled = true '启动控件 me.timer1.interval = 1000 '设定跳动频为1秒.1000=1秒 dim stime as string=0 然后在控件的 timer1.tick事件下写下面的代码 stime=stime+1 if stime=2 then '你所要触发事件的代码 msgbox("ok") end if

Dim a As Integer '为演示作准备 Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Timer1.Interval = Timer1.Interval + 1000 a = a + 1: Print a '这行是演示用的 End Sub

用 static 声明静态变量 即可 private sub form_load() timer1.interval = 1000 end sub private sub timer1_timer() static i as integer i = i + 1 me.caption = i end sub

timer中先间隔值属性设置,如果一秒执行一次,就设置成1000,然后Enable设置成True,然后再事件里输入执行的代码,具体请看http://wenwen.sogou.com/z/q826134261.htm

打开比方,timer如同一个循环语句,它的循环变量是时间,即每隔一段时间,就执行一次timer中的语句.例如:1、在窗体上添加一个timer控件,默认名称为timer1.2、将timer1的interval属性设置为1000,即每隔1000毫秒(1秒)触发一次.3、在timer1的timer()事件中编写如下代码 private sub timer1_timer() print time end sub4、运行该程序,窗体上每隔1秒就会输出一次系统当前时间.

Public Sub New ( _ callback As TimerCallback, _ state As Object, _ dueTime As Long, _ period As Long _) callback 类型:System.Threading..::.TimerCallback 一个 TimerCallback 委托,表示du要执行的方法. state 类型:System..::.Object 一个包

private sub timer1_timer() a = label1.left if a < me.width then label1.left = a + 200 else label1.left = 0 '这样就可以回到左面了 end if end sub

Dim i As Integer Private Sub Form_Load() i = InputBox("输入倒记时起点") Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Cls i = i - 1 Print " 倒数 " & i & " 秒" If i <= 0 Then Timer1.Enabled = False End If End Sub

'定义一个全局变量a '一个Timer设置时间自定义Interval的值 '一个Command1用来查看Timer运行了多少次'******代码部分 Dim a as long Private Sub Timer1_Timer() a = a + 1 End Sub Private Sub Command1_Click() msgbox "Timer已运行了" & a & "次" End Sub '******代码部分

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = 2000 Button1.Visible = False End Sub

网站首页 | 网站地图
All rights reserved Powered by www.rprt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com