精华内容
下载资源
问答
  • VB中关于Timer1计时器的使用

    千次阅读 2019-02-11 09:39:07
    1.设定Timer的计时时间,可以在Form_load设定Timer.Interval=设定时间(单位毫秒),或者在Timer的属性窗口Interval设定时间 2.当Timer设定的Interval时间到达后,触发timer1_timer子程序 ...

    1.设定Timer的计时时间,可以在Form_load中设定Timer.Interval=设定时间(单位毫秒),或者在Timer的属性窗口Interval中设定时间
    2.当Timer设定的Interval时间到达后,触发timer1_timer子程序

    展开全文
  • vb6_高精度Timer控件

    热门讨论 2012-10-10 09:28:53
    QueryPerformanceCounter写的Timer控件,功能与vb6自带Timer基本一致,毫秒级精度
  • Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Interval = 200 Timer1.Enabled = True End Sub '移动子事件 Sub mymove() Label1.Top = Label1.Top + 5 If ...

    Public Class Form1
        '加载窗体背景
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.BackgroundImage = Image.FromFile("21.jpg")
            '如果文件没有放在bin文件的debug文件夹下,就要根据..\来表示上一层文件路径
        End Sub

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Call mymove()
        End Sub
        '自动,定时器每隔200ms移动一次
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Timer1.Interval = 200
            Timer1.Enabled = True
        End Sub
        '移动子事件
        Sub mymove()
            Label1.Top = Label1.Top + 5
            If Label1.Top > Me.Height Then '判断label1是否超出窗体
                Label1.Top = 0
            End If
        End Sub
        '手动,定时器无效
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Timer1.Enabled = False
            Call mymove()
        End Sub
    End Class
     

    运行结果:

    很长时间没有更新了,后续会持续更新

    展开全文
  • 关于VB中Timer停止的问题

    千次阅读 2012-12-07 21:50:11
    VB的一个朋友在有关Timer控件停止的问题,我给了一个回答: 将Enabled设为False,或者将Interval设为0 于是TA问,两者有什么区别呢? 就这个问题,我们还是来做一个实验吧。   创建一个新工程,在默认新建的...

    学VB的一个朋友在有关Timer控件停止的问题,我给了一个回答:

    将Enabled设为False,或者将Interval设为0

    于是TA问,两者有什么区别呢?

    就这个问题,我们还是来做一个实验吧。

     

    创建一个新工程,在默认新建的窗体上,创建3个Command和一个Timer

    使用如下代码:

     

    Option Explicit
    
    Private dwCount As Long
    
    Private Sub Command1_Click()
        dwCount = 0
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub
    
    Private Sub Command2_Click()
        Timer1.Interval = 0
    End Sub
    
    Private Sub Command3_Click()
        Timer1.Enabled = False
    End Sub
    
    Private Sub Form_Load()
        Command1.Caption = "Start"
        Command2.Caption = "Interval"
        Command3.Caption = "Enabled"
        Call Command3_Click
    End Sub
    
    Private Sub Timer1_Timer()
        dwCount = dwCount + 1
        Me.Caption = CStr(dwCount)
    End Sub
    


    点击Start按钮,每秒钟窗体的标题就显示加一,在变化刚完成时立刻点击Interval按钮,发现它会继续下一个动作才停

    重新点Start按钮,这次在刚完成时,立刻点击Enabled按钮,发现立刻被终止了。

     

    其实,Timer控件封装了Windows的计时API,每次触发事件,就调用SetTimer,把Interval的值传递

    再次等待Interval后触发事件,设置Interval只影响下一次事件,而不影响正在等待的事件。

    而设置Enabled为False会取消等待中的计时器,所以立刻被终止了。
    展开全文
  • VB.Net Timer 控件的用法

    千次阅读 2012-03-07 11:24:27
    为了研究VB.Net Timer 控件的用法,做了个计时器。 最后发现用途很广泛,例如说通过本软件精确的统计到今天晚上洗澡用去了21分52秒,类似的用途很有很多,本程序使用VS2005开发,需要.net FrameWork2.0支持。 ...

     为了研究VB.Net Timer 控件的用法,做了个计时器。

    最后发现用途很广泛,例如说通过本软件精确的统计到今天晚上洗澡用去了21分52秒,类似的用途很有很多,本程序使用VS2005开发,需要.net FrameWork2.0支持。

    代码如下:

    ------Form1.vb-----------------------------------------------------------------------------------------------------

    Public Class Form1
        Private Shared myTimer As New System.Windows.Forms.Timer()
        Private Shared alarmCounter As Integer = 0'总秒数计数用
        Private Shared pbCount As Integer = 0'进度条计数用
        Private Shared timeH As Integer = 0'小时计数用
        Private Shared timeM As Integer = 0'分钟计数用
        Private Shared timeS As Integer = 0'秒计数用

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            ' Main()
            Me.Timer1.Enabled = True
            Me.Timer1.Interval = 1000 '单位是毫秒
            Me.Timer1.Start()

            ' alarmCounter += 1
            ' myTimer.Enabled = True

        End Sub

    '每经过1000毫秒就执行一次 Timer1_Tick方法
        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            timeS += 1 '每一秒加一
            If timeS >= 60 Then
                timeS = 0
                timeM += 1
            End If

            If timeM >= 60 Then
                timeH += 1
                timeM = 0
                timeS = 0
            End If

            lblS.Text = timeS
            lblM.Text = timeM
            lblH.Text = timeH

            alarmCounter += 1
            pbCount += 1
            Me.lblSecand.Text = alarmCounter
            If Me.ProgressBar1.Value < 100 Then
                Me.ProgressBar1.Value = pbCount
            Else
                Me.ProgressBar1.Value = 0
                pbCount = 1
            End If
            Me.Text = "计时器: " & alarmCounter & "秒"
        End Sub

        Private Sub Class1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            lblS.Text = ""
            lblM.Text = ""
            lblH.Text = ""
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Me.Timer1.Stop()'stop按钮
        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    'Reset按钮事件
            Me.Timer1.Enabled = False
            lblS.Text = ""
            lblM.Text = ""
            lblH.Text = ""
            Me.lblSecand.Text = ""
            timeH = 0
            timeM = 0
            timeS = 0
            alarmCounter = 0
            Me.Text = "计时器 v1.0"
            Me.ProgressBar1.Value = 0
        End Sub
    End Class

     

    展开全文
  • VS VB.NET Timer控件

    2020-02-13 16:57:34
    1. 添加Timer控件 2. 设置Timer控件的属性: 3. 添加控件触发时执行的代码: 实现的功能为:每1000ms在Label1上显示一遍当前时间。 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As ...
  • VB6.0 TIMER 反调试例子源代码下载,假设这里是我们的注册过程,我们隔三差五随意将以下代码复制粘帖,实际软件,应该彻底隐蔽这些提示消息,实际软件,应该彻底隐蔽这些提示消息,直接引入错误的分支去执行...
  • VB 类模块Timer(无窗体)

    2010-12-29 16:21:38
    在别的模块调用时,Private WithEvents timer1 As clsTimer就行,Timer事件就是时间到了后被触发的事件.
  • vb.net timer 定时器

    万次阅读 2016-02-24 11:14:42
    .net使用timer做计数器是,不要使用循环调用的方式,否则计数器会以2的N次方累加,最终文本框的显示结果是,1,2,4,8,16,而不是1,2,3,4,5...,代码如下:  '需要用到的控件,一个textbox,一个timer Sub ...
  • WPF VB.net时钟,timer

    2020-04-08 23:53:25
    WPF VB.net时钟,timer,可计时用,倒计时用...
  • 某些无窗体的模块,无法使用计时器timer控件,这个模块就派上用场了,完全模拟vb自带控件,事件,属性完全与vb自带的timer控件相同,例如:mTimer.Interval = 500设置计时器时间,mTimer.Enabled = True启动计时器,...
  • VB不用Timer播放动画

    2016-02-24 23:24:56
    用timeSetEvent延时 精确度为ms 实际上实现了多线程 使用GDI+绘制png图片
  • VBAtimer控件

    2016-01-16 14:01:54
    VBA大家都在被需要定时器的困扰,这个控件是从VB6timer控件输出的,可以在EXCEL里定时啦
  • Private Sub Timer1_Timer() Label12.Caption = Label12.Caption - 1 '以秒计时 End Sub Private Sub CommandSure_Click() if Label12.Caption = s = MsgBox("确认提交,取消重填!", 1, "提示信息") '弹出对话框 If...
  • 一个极简单的VB计时器。支持窗口置顶。 仅用于VB教学示例。
  • Timer控件是一种通过引发Timer事件,可以有规律地隔一段时间执行一次代码的控件。 Dim N As Integer ‘定义N变量为数字 Private Sub Form_Load() N = 10’默认N等于 10 Timer1.Interval = 1000 '设置频率时间1秒 ...
  • vb不用timer控件定时模块,不用调用vb控件也能实现定时。
  • VB程序有两个Timer,分别为Timer1,Timer2,Timer1调用的函数fun()会在开始的时候开启Timer2,让Timer2检测输入信号Input。若是检测到Input=1时,要立刻终止fun()函数,请问有什么方法可以实现?
  • 内容索引:VB源码,系统相关,异步,Timer 一个可控的带异步锁的 Timer 类,必须置于有窗口程序使用,究其原因还是系统的问,系统限制 Timer 是由消息循环实现的。使用方法和 vbTimer控件一样,只是增加了一个 ...
  • vb6 timer组件应用

    2008-12-26 20:51:15
    vb6编写的一个用timer组件控制的满天星小程序.
  • Timer控件在VB编程具有很重要的作用,通过Timer控件,可以实现一些动态效果,可以定时触发某些代码。 Timer控件的常用属性 Interval属性 Interval属性是Timer控件最为重要的属性,也是少有的几个属性之一。 作用:...
  • VB函数Time和Timer的区别

    万次阅读 2016-06-15 15:58:12
    iamlaosong文想做一个简单的延时函数,于是想到VB中Time函数和Timer函数,二者都可以做延时函数,但略有不同。Time是时间函数,取得是当前时间,如:15:16:14,和其它日期时间函数的内容差不多,如Now是获取系统当前...
  • 使用方法和 vbTimer控件一样,只是增加了一个 AsynExecute 属性,当设置此属性 = true 的时候, Timer 是以异步的方式运行的, 比如,第 1 次timer事件代码未运行完,第2次就开始了,那么第1次事件代码将暂停,第 3 次.....
  • 这是一个简单的项目,我用来测试我的 VB 编码技能。 我觉得在 sourceforge 上包含这里就足够了。
  • C#中timer类的用法总结

    2020-12-31 02:39:13
    定义在System.Timers.Timer类里 System.Windows.Forms.Timer是应用于WinForm的,它是通过Windows消息机制实现的,类似于VB或DelphiTimer控件,内部使用API SetTimer实现的。它的主要缺点是计时不精确,而且...
  • VB编程:Timer控件使用计数变量-24

    千次阅读 2016-11-22 09:24:36
    运行效果: 程序代码: Private myint As Integer Private Sub Form_Load()  myint = 0 ...Private Sub Timer1_Timer()  myint = myint + 1  If myint = 2 Then Me.BackColor = vbGreen  If...
  • ystem.Threading.Timer是.NET定时触发一个事件处理方法的类(本文后面简称Timer),它背后依靠的是.NET的线程池(ThreadPool),所以当Timer在短时间内触发了过多的事件处理方法后,可能会造成事件处理方法在...
  • 模拟多线程,众所周知,vb本身并不支持多线程,笨程序是利用外部API加本地Timer对多线程进行实现
  • Timer控件每5分钟触发一次事件 VB技术很实用的源码本人收集了一些技巧供大家参考,希望斑竹能多放一些时间。按字母或数字顺序排列列表框的列表项. 将以下代码加入到你的程序.

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,851
精华内容 3,140
关键字:

vb中timer事件