精华内容
下载资源
问答
  • Timer控件VB编程中具有很重要的作用,通过Timer控件,可以实现一些动态效果,可以定时触发某些代码。 Timer控件的常用属性 Interval属性 Interval属性是Timer控件最为重要的属性,也是少有的几个属性之一。 作用:...

    Timer控件

    Timer控件又被称为计时器控件或时间控件,通过引发Timer事件,Timer控件可以有规律的每隔一段时间执行一次代码。

    Timer控件在VB编程中具有很重要的作用,通过Timer控件,可以实现一些动态效果,可以定时触发某些代码。

    Timer控件的常用属性

    Interval属性

    Interval属性是Timer控件最为重要的属性,也是少有的几个属性之一。

    作用:返回或设置一个值,该值用于决定触发Timer事件的间隔时长。

    语法:

    对象名称.Interval [ =值 ]
    

    值:取值为大于等于0小于等于65535的整数,单位是毫秒。例如设置为1000时,表示每隔1000ms(即1s)触发一次Timer事件。

    Interval属性默认值为0,此时不会触发Timer事件。

    Enabled属性

    该属性与其它控件使用方法一样。在其值为True时,控件可以对事件做出反应。相反,当值为False时,则控件将不会对事件做出反应。对于Timer控件而言,可以利用Enabled属性来控制何时启动或停止Timer事件。

    Timer控件的常用事件

    Timer事件

    Timer事件是Timer控件的唯一一个事件。

    事件描述:在启动Timer控件后,该控件将会开始计时,当时间达到Interval属性设置的值后,就会触发一次Timer事件,并且不断的循环上面的操作。

    Timer控件的Timer事件启动的条件是&

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

    热门讨论 2012-10-10 09:28:53
    QueryPerformanceCounter写的Timer控件,功能与vb6自带Timer基本一致,毫秒级精度
  • VBA中的timer控件

    2016-01-16 14:01:54
    VBA中大家都在被需要定时器的困扰,这个控件是从VB6中的timer控件输出的,可以在EXCEL里定时啦
  • 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 ...

    1.  添加Timer控件

    2. 设置Timer控件的属性:

    3. 添加控件触发时执行的代码:

       实现的功能为:每1000ms在Label1上显示一遍当前时间。

     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

            Label1.Text = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
        End Sub

    4. 执行效果如下:

    每秒钟变化一次。调整一下Timer控件的属性-Interval 试一下吧!

     

     

    展开全文
  • Timer控件每5分钟触发一次事件 VB技术很实用的源码本人收集了一些技巧供大家参考,希望斑竹能多放一些时间。按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中.
  • 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

     

    展开全文
  • 设置Timer控件的Interval=10000(即10秒),里面的代码执行时间不确定,也许3秒或5秒就执行完了,是不是还要等到10秒时才执行下一个Timer控件的代码?如果是,能不能只要本Timer的代码执行完就去执行下一个Timer,而...
  • 某些无窗体的模块,无法使用计时器timer控件,这个模块就派上用场了,完全模拟vb自带控件,事件,属性完全与vb自带的timer控件相同,例如:mTimer.Interval = 500设置计时器时间,mTimer.Enabled = True启动计时器,...
  • 我想用一个timer控件,每秒让它检查一下text1文本框中是否有数据,如果有数据则print出来并停止该timer,如果循环10秒还没有则弹出对话框并停止该timer。能在timer的事件里实现吗?
  • vb测试图形控件两个计时器同时达到某一条件是出现一种状态
  • VB 纯代码实现Timer控件的功能

    千次阅读 2011-03-09 13:23:19
    方法1: 用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权,用Timer的好处是避免控制权死锁,这样也就模拟出了多线程...

    本博客有一篇类似的文章《VB 中运用 TimeSetEvent 代替 Timer 控件》与这篇不同。
    本篇展示了另外两种方法,具体如下文所示。

    方法1:
      用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权,用Timer的好处是避免控制权死锁,这样也就模拟出了多线程(实际上是多进程),能给用户更好的体验。代码如下:
    标准模块(mTimer.bas)

    Option Explicit
    Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long )
    Public TimerColl As New VBA.Collection

    Public Sub TimeProc( ByVal hWnd As Long , ByVal uMsg As Long , ByVal idEvent As Long , ByVal dwTime As Long )
    Dim Timer As Timer, lpTimer As Long
    lpTimer = TimerColl( "ID:" & idEvent)
    CopyMemory Timer, lpTimer,
    4 &
    Timer.PulseTimer
    CopyMemory Timer,
    0 &, 4 &
    End Sub


    类模块(Timer.bas)

    Option Explicit

    Private Declare Function SetTimer Lib "user32" ( ByVal hWnd As Long , ByVal nIDEvent As Long , ByVal uElapse As Long , ByVal lpTimerFunc As Long ) As Long
    Private Declare Function
    KillTimer Lib "user32" ( ByVal hWnd As Long , ByVal nIDEvent As Long ) As Long

    Private
    m_TimerID As Long
    Private
    m_Interval As Long
    Private
    m_Enabled As Boolean

    Public
    Tag As Variant
    Public Event
    Timer()

    Public Property Get Interval() As Long
    Interval = m_Interval
    End Property

    Public Property Let
    Interval( ByVal Value As Long )
    m_Interval = Value
    Enabled = m_Enabled
    End Property

    Public Property Get
    Enabled() As Boolean
    Interval = m_Enabled
    End Property

    Public Property Let
    Enabled( ByVal Value As Boolean )
    If Value Then
    m_Enabled = StartTimer
    Else
    Call
    StopTimer
    End If
    End Property

    Private Function
    StartTimer() As Boolean
    If
    m_TimerID = 0 Then
    If
    m_Interval > 0 Then
    m_TimerID = SetTimer( 0 , 0 , m_Interval, AddressOf TimeProc)
    If m_TimerID <> 0 Then
    TimerColl.Add ObjPtr( Me ), "ID:" & m_TimerID
    StartTimer =
    True
    End If
    Else
    m_Enabled = True
    End If
    End If
    End Function

    Friend Sub
    PulseTimer()
    RaiseEvent Timer
    End Sub

    Private Sub
    StopTimer()
    If m_TimerID <> 0 Then
    KillTimer 0 , m_TimerID
    TimerColl.Remove
    "ID:" & m_TimerID
    m_TimerID =
    0
    m_Enabled = False
    End If
    End Sub

    Private Sub
    Class_Terminate()
    Call StopTimer
    End Sub

    使用方法:
    Private WithEvents Timer1 As Timer
    Private Sub Form_Load()
    Set Timer1 = New TimerLib.Timer
    Timer1.Interval =
    1000
    Timer1.Enabled = True
    End Sub
    Private Sub
    Timer1_Timer()
    Debug.Print Now
    End Sub


    方法2:
    用SetTimer函数定义一个ID,并标志一个触发时间(以MS为单位)和回调函数地址.
    当指定的触发时间到了,系统就会调用那个指定的回调函数,并以你在SetTimer时定义的ID为参数,这样就可以区别多个定时器了.
    当不需要使用某个定时器时,就使用KillTimer函数把指定ID的定时器干掉就可以了.
    窗体代码:

    Option Explicit

    Const GWL_WNDPROC = (- 4 )

    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( ByVal hWnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long ) As Long

    Private Declare Function
    SetTimer Lib "user32" ( ByVal hWnd As Long , ByVal nIDEvent As Long , ByVal uElapse As Long , ByVal lpTimerFunc As Long ) As Long
    Private Declare Function
    KillTimer Lib "user32" ( ByVal hWnd As Long , ByVal nIDEvent As Long ) As Long

    Private Sub
    Form_Load()
    glngFuncAdd = SetWindowLong(hWnd, GWL_WNDPROC,
    AddressOf WndProc_TimerTest)
    Call SetTimer(hWnd, TIMERID, 500 , 0 &)
    End Sub

    Private Sub
    Form_QueryUnload(Cancel As Integer , UnloadMode As Integer )
    If glngFuncAdd > 0 Then Call SetWindowLong(hWnd, GWL_WNDPROC, glngFuncAdd)
    Call KillTimer(hWnd, TIMERID)
    End Sub


    模块代码:

    Option Explicit

    Const WM_TIMER = &H113

    Public Const TIMERID = &H100 '自定义Timer的ID号

    Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( ByVal lpPrevWndFunc As Long , ByVal hWnd As Long , ByVal Msg As Long , ByVal wParam As Long , ByVal lParam As Long ) As Long

    Public
    glngFuncAdd As Long

    Public Function
    WndProc_TimerTest( ByVal hWnd As Long , ByVal wMsg As Long , ByVal wParam As Long , ByVal lParam As Long ) As Long
    If
    wMsg = WM_TIMER Then
    If
    wParam = TIMERID Then
    Debug.Print Timer
    End If
    End If

    WndProc_TimerTest = CallWindowProc(glngFuncAdd, hWnd, wMsg, wParam, lParam)
    End Function

     

    展开全文
  • VB中关于Timer1计时器的使用

    千次阅读 2019-02-11 09:39:07
    1.设定Timer的计时时间,可以在Form_load中设定Timer.Interval=设定时间(单位毫秒),或者在Timer的属性窗口Interval中设定时间 2.当Timer设定的Interval时间到达后,触发timer1_timer子程序 ...
  • 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...
  • Timer控件是一种通过引发Timer事件,可以有规律地隔一段时间执行一次代码的控件。 Dim N As Integer ‘定义N变量为数字 Private Sub Form_Load() N = 10’默认N等于 10 Timer1.Interval = 1000 '设置频率时间1秒 ...
  • vb不用timer控件定时模块,不用调用vb控件也能实现定时。
  • vb timer控件的问题。

    2012-01-30 13:59:39
    这段时间用vb写了个wg,用timer控件做了外挂的快捷键,在wg运行的过程中,timer控件不能同步运行,要等到wg运行结束的时候,timer控件才能开始运行,请问有什么方法可以让wg和timer控件同步运行的吗?尝试在wg主程序...
  • timer类代替VB自带控件

    2018-04-08 20:49:34
    timer类代替VB自带控件
  • VB的ccrptmr控件

    2021-08-25 10:22:12
    VB自带的Timer控件定时不准确,ccrpTmr是一个能精确到1ms的定时控件。 x86 x64
  • 2-8 Timer 控件

    2017-11-15 19:17:00
    2-8Timer控件 u本节学习目标: n了解Timer控件的属性及方法、事件 n学习用Timer控件控制其他控件位移 n学习显示计算机运行的时间长度和应用程序运行的时间长度 n学习通过Timer控件流失的时间 2-8-1 ...
  • VB Timer时钟的准确性

    千次阅读 2008-10-02 14:16:00
    Timer控件的使用 VB编程过程中,通过引发Timer事件,Timer控件可以有规律地间隔一段时间执行一次代码。Interval属性是Timer控件最重要的一个属性,它以千分之一秒为单位指定Timer事件之间的间隔,理论上可以认为...
  • 3、拖放timer控件到程序界面上 4、设置倒计时:双击时钟控件,输入计时规则,如Label12.Caption = Label12.Caption + 1 5、设置当时间值达到某一条件的时候应采取的方法(即动作)。可以用if语句。如if Label12....
  • vb.net控件

    2020-04-28 14:49:22
    vb.net 的 Label 控件 label(标签)控件用于显示文本,是设计应用程序界面时经常要用到的控件之一, 主要是用于显示其他控件名称,描述程序运行状态或标识程序运行的结果信息等 等,响应程序的事件或跟踪程序运行的...
  • 关于VBTimer停止的问题

    千次阅读 2012-12-07 21:50:11
    VB的一个朋友在有关Timer控件停止的问题,我给了一个回答: 将Enabled设为False,或者将Interval设为0 于是TA问,两者有什么区别呢? 就这个问题,我们还是来做一个实验吧。   创建一个新工程,在默认新建的...
  • vb定时点击按钮怎么做?用timer控件!!点击的是VB窗口里面的按钮!.txt
  • VB常用控件介绍

    千次阅读 2018-02-16 16:24:30
    2、Label(标签)控件 3、TextBox(文本框)控件 4、RichTextBox控件 5、NumericUpDown控件 6、Button(按钮)控件 7、GroupBox(分组框)控件 8、RadioButton(单选按钮)控件 9、CheckBox(复选框)控件 10...
  • 你可以用VB.NET的Timer控件实现这种功能。在这篇教程中,我将向你说明如何在应用程序中应用Timer控件。实例通过实例是了解Timer控件的最佳方法。按以下步骤操作: 在表中增加一个Timer控件(可在Components部分找到...
  • 利用 Timer 控件在页面上显示实时时间
  • [.Net码农]WPF 下的Timer控件

    千次阅读 2015-03-21 11:39:20
    Timer控件/ System.Timers.Timer 不能用于WPF中。在WPF中,定时器为 Dispa
  • VB 类模块Timer(无窗体)

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

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,946
精华内容 1,578
关键字:

vb的timer控件