精华内容
下载资源
问答
  • VS VB.NET Timer控件

    2020-02-13 16:57:34
    2. 设置Timer控件的属性: 3. 添加控件触发时执行代码: 实现功能为:每1000ms在Label1上显示一遍当前时间。 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) ...

    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 试一下吧!

     

     

    展开全文
  • 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

     

    展开全文
  • 你可以用VB.NET的Timer控件实现这种功能。在这篇教程中,我将向你说明如何在应用程序中应用Timer控件。实例通过实例是了解Timer控件的最佳方法。按以下步骤操作: 在表中增加一个Timer控件(可在Components部分找到...
    开发者经常需要定期或在一个设定的时间间隔后完成某个特殊的动作。你可以用VB.NET的Timer控件实现这种功能。在这篇教程中,我将向你说明如何在应用程序中应用Timer控件。
    

    实例

    通过实例是了解Timer控件的最佳方法。按以下步骤操作:
    • 在表中增加一个Timer控件(可在Components部分找到),取名为Timer1
    • 将它的Interval(时间间隔)属性设为1000,Enabled属性设为Ture
    • 在表中增加一个Label控件,取名为IbIDateTime,将它的Text属性设为""。
    • 加入以下代码:

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

        lblDateTime.Text = Now.ToLongTimeString.ToString()

    End Sub

    运行代码,得到的表如图1所示。表中显示的日期/时间(date/time)值定期更新。

    运行过程

     一旦在Interval属性中指定的时间经过,Timer1_Tick事件就会发生。由于我在这个事件中执行的代码只是简单用当前日期/时间值更新IbIDateTimeText属性,所以表中显示的日期/时间每1000毫秒更新一次(如Time1Interval属性指定)。 

    展开全文
  • Public Function StopTimer(lTimerId As Long) As Long StopTimer = KillTimer(0, lTimerId) End Function 窗体中: Private Sub Form_Load() StartTimer 1000 End Sub Private Sub Form_Unload(Cancel As ...

    利用API函数实现定时器功能
    模块中:
    Option Explicit
    Public lTimerId 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 TimerProc(ByVal lHwnd As Long, ByVal lMsg As Long, ByVal lTimerId As Long, ByVal lTime As Long)
    Static i As Long
    Form1.Label1.Caption = i
    i = i + 1
    End Sub
    Public Sub StartTimer(lMinute As Long)
    lTimerId = SetTimer(0, 0, lMinute, AddressOf TimerProc)
    End Sub
    Public Function StopTimer(lTimerId As Long) As Long
    StopTimer = KillTimer(0, lTimerId)
    End Function

    窗体中:
    Private Sub Form_Load()
    StartTimer 1000
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    StopTimer lTimerId
    End Sub

    展开全文
  • Timer控件VB编程中具有很重要作用,通过Timer控件,可以实现一些动态效果,可以定时触发某些代码。 Timer控件的常用属性 Interval属性 Interval属性是Timer控件最为重要属性,也是少有几个属性之一。 作用:...
  • 原帖:http://blog.csdn.net/Modest/archive/2006/10/23/1346175.aspx用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveXexe中用来分离系统控制权...
  • vb6_高精度Timer控件

    2021-03-28 03:00:18
    QueryPerformanceCounter写的Timer控件,功能与vb6自带Timer基本一致,毫秒级精度
  • 我想用一个timer控件,每秒让它检查一下text1文本框中是否有数据,如果有数据则print出来并停止该timer,如果循环10秒还没有则弹出对话框并停止该timer。能在timer事件里实现吗?
  • VB2005(Timer控件)

    2010-10-14 16:34:00
    VB2005(Timer控件) 定时器控件主要用来计时。通过计时处理,可以实现各种复杂操作。例如:延时、动画等。 Timer控件的常用属性和事件 Timer控件的常用属性不是狠多,比较常用是Interval(间隔)...
  • 设置Timer控件的Interval=10000(即10秒),里面代码执行时间不确定,也许3秒或5秒就执行完了,是不是还要等到10秒时才执行下一个Timer控件的代码?如果是,能不能只要本Timer代码执行完就去执行下一个Timer,而...
  • vb timer控件的问题。

    2012-01-30 13:59:39
    这段时间用vb写了个wg,用timer控件做了外挂快捷键,在wg运行过程中,timer控件不能同步运行,要等到wg运行结束时候,timer控件才能开始运行,请问有什么方法可以让wg和timer控件同步运行吗?尝试在wg主程序...
  • 我写了一个定时执行程序,点击按钮后Timer.enable=True,比如计算机时间为10:00:00时使用Timer控件定时执行软件中某项功能,计算机休眠后却不执行怎么回事?不休眠时设置好时间就能够执行。 Timerinterval设置...
  • VB 纯代码实现Timer控件的功能

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

    千次阅读 2011-04-30 22:11:00
    原文地址:http://hi.baidu.com/qqool/blog/item/2bce35fa5488e21aa9d31167.html<br />  用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在...
  • 因为我要在程序运行时候动态添加多个Timer控件,而且要在运行时候可以停止或开启某个定时器,所以要用name属性来识别。或者还有什么其它办法可以实现这个功能,就是让程序在某个时候运行点东西。 望各位高手...
  • 我用VB.NET的TIMER控件设计一个不停连接MYSQL数据库的界面(约5秒连接一次),连接后执行SELECT命令,然后把读取到的数据存到DATAGRID里,之后再做其他操作。 2.请问这样频繁的读取操作会不会影响到MYSQL数据库的...
  • VBA中的timer控件

    2016-01-16 14:01:54
    VBA中大家都在被需要定时器的困扰,这个控件是从VB6中的timer控件输出的,可以在EXCEL里定时啦
  • 问题首先是由vb的Timer控件引起的。大家都知道vb不支持多线程,但Timer控件给我们一个错觉:一个Timer控 件就是一个线程,Timer控件是并行的。开始我也这么认为,但一段简单的代码说明了一切。 代码如下: ...
  • Timer控件设置时间间隔是250,也试过其他值,发现这并不能改变什么。 Private Sub Timer1_Timer() If MSComm1.InBufferCount = 2 Then y = Val(MSComm1.Input) Text1.Text = y End If End Sub ...
  • 我用VB.NET的TIMER控件设计一个不停连接MYSQL数据库的界面(约5秒连接一次),连接后执行SELECT命令,然后把读取到的数据存到DATAGRID里,之后再做其他操作。 2.请问这样频繁的读取操作会不会影响到MYSQL数据库的...
  • 某些无窗体的模块,无法使用计时器timer控件,这个模块就派上用场了,完全模拟vb自带控件,事件,属性完全与vb自带的timer控件相同,例如:mTimer.Interval = 500设置计时器时间,mTimer.Enabled = True启动计时器,...

空空如也

空空如也

1 2 3 4 5 ... 19
收藏数 363
精华内容 145
关键字:

vb的timer控件