精华内容
下载资源
问答
  • vb6_高精度Timer控件

    2021-03-28 03:00:18
    QueryPerformanceCounter写的Timer控件,功能与vb6自带Timer基本一致,毫秒级精度
  • 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 试一下吧!

     

     

    展开全文
  • vb不用timer控件定时模块,不用调用vb控件也能实现定时。
  • 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事件启动的条件是:Interval属性值大于0且小于65535,并且Timer控件的Enabled属性值为True。这两个条件缺一不可,同样可以利用这两个条件来停止Timer事件。

    实战操作练习题:

    要求:设计一个打砖块的游戏,游戏开始后,窗体上会随机出现一个“砖块”,“砖块”只能存在0.7秒,用户点击到后,得一分,游戏一共进行30s,考验玩家的反应速度和手速。

    步骤一:新建工程,并按照下图创建窗体界面。

    在这里插入图片描述

    创建时,注意需要先创建Frame框架控件,在把相应的控件创建到框架中。

    步骤二:修改各控件的Caption属性。如下图所示

    在这里插入图片描述

    步骤三:修改Command3、Text1和Text2控件的属性。

    在窗体设计界面中,选择Command3控件,在其属性窗口中,设置BackColor属性为绿色,并设置Style属性值为1,这样就可以把按钮的颜色改为绿色了。分别选择Text1和Text2控件,在属性窗口,设置Alignment属性值为2-Center,这样其中文本将会居中。

    步骤四:进入代码编辑区,按照下图编辑代码。

    在这里插入图片描述

    重点代码解析:
    time1_Timer事件中的代码,用来定时改变“砖块”的位置,“砖块”的位置用Top和Left属性确定,且使用Rnd随机函数随机一个值。这样就可以让“砖块”在Frmae1框架中随机出现在一个位置了。
    Rnd函数表示随机一个0-1之间的数,用其乘以Frame框架的高度和宽度就可以随机一个必定在Frame1内的位置给“砖块”了。
    Msgbox函数表示弹出一个提示框,后面跟的是提示框的内容。
    Val函数表示将一个字符串类型转换为数值类型。因为Text1.text的值为字符串类型,在用其做算术前必须将其转化为数值类型。
    这几个函数对于刚入门的小伙伴来说会有点陌生,但是不用在意,这些在后面的课程都会专门介绍的,这里只管先用就行了。

    步骤五:运行程序,测试效果。单击开始游戏,窗口将会定时的出现“砖块”,用鼠标去点击,点击到后,得分会增加。当时间结束后,则游戏结束。

    在这里插入图片描述

    怎么样,是不是很有趣,仅使用一个Timer控件就可以做出一款有趣的小游戏来,是不是对VB编程越来越感兴趣了呢。哈哈,赶快拿给你的小伙伴玩玩这个游戏吧。

    课后思考:如何修改代码,从而让游戏的难度(“砖块”的停留时间)随着时间而逐渐增加,难度增加时,得分也增加,各位小伙伴们思考思考如何实现吧?

    展开全文
  • VB2005(Timer控件)

    2010-10-14 16:34:00
    VB2005(Timer控件) 定时器控件主要用来计时。通过计时处理,可以实现各种复杂的操作。例如:延时、动画等。 Timer控件的常用属性和事件 Timer控件的常用属性不是狠多,比较常用的是Interval(间隔)...

     

    定时器控件主要用来计时。通过计时处理,可以实现各种复杂的操作。例如:延时、动画等。

    Timer控件的常用属性和事件

    Timer控件的常用属性不是狠多,比较常用的是Interval(间隔)属性,该属性值决定两次调用Timer控件的间隔毫秒数。Enabled属性用来控制定时器控件是否有效,该控件运行时是不可见的。

    定时器控件的属性虽然不多,但其在动画制作、定期执行某个操作等方面起着重要作用。

    定时器控件的事件只有一个Tick。用户可以通过捕捉该事件来对事件进行操作。

    Public Class Form12

        Dim filesave As Boolean

        Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            filesave = False
        End Sub

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Me.Timer1.Enabled = False
            If filesave = False Then
                MsgBox("文件没有存储,请及时存储!", MsgBoxStyle.OkOnly)
                filesave = True
            End If
            Me.Timer1.Enabled = True
        End Sub

        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
            filesave = False
        End Sub
    End Class

    image

    posted on 2010-10-14 16:34 黄埔末期生 阅读(...) 评论(...) 编辑 收藏

    转载于:https://www.cnblogs.com/hotpig/archive/2010/10/14/1851488.html

    展开全文
  • 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类代替VB自带控件

    2018-04-08 20:49:34
    timer类代替VB自带控件
  • 我想用一个timer控件,每秒让它检查一下text1文本框中是否有数据,如果有数据则print出来并停止该timer,如果循环10秒还没有则弹出对话框并停止该timer。能在timer的事件里实现吗?
  • VB 纯代码实现Timer控件的功能

    千次阅读 2011-03-09 13:23:19
    方法1: 用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权,用Timer的好处是避免控制权死锁,这样也就模拟出了多线程...
  • 原帖:http://blog.csdn.net/Modest/archive/2006/10/23/1346175.aspx用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveXexe中用来分离系统控制权...
  • 设置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主程序...
  • 运行效果: 程序代码: 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...
  • 你可以用VB.NET的Timer控件实现这种功能。在这篇教程中,我将向你说明如何在应用程序中应用Timer控件。实例通过实例是了解Timer控件的最佳方法。按以下步骤操作: 在表中增加一个Timer控件(可在Components部分找到...
  • VBA中的timer控件

    2016-01-16 14:01:54
    VBA中大家都在被需要定时器的困扰,这个控件是从VB6中的timer控件输出的,可以在EXCEL里定时啦
  • vb如何动态添加timer控件及timer事件? 就是可以无限制添加timer控件timer控件的Timer事件? 如:Private WithEvents Timer1 as Timer private sub SetNewTm1() set timer1 =controls.add("VB.Timer","Timer1") ...
  • Timer控件设置的时间间隔是250,也试过其他的值,发现这并不能改变什么。 Private Sub Timer1_Timer() If MSComm1.InBufferCount = 2 Then y = Val(MSComm1.Input) Text1.Text = y End If End Sub ...
  • 'Timer控件实现文字移动效果,如果移动到中间位置就停止。 Private Sub Timer1_Timer()  If Label1.Left Then    Label1.Left = Label1.Left + 200  Else    Label1.Left = -4000  End If  ...
  • 3、拖放timer控件到程序界面上 4、设置倒计时:双击时钟控件,输入计时规则,如Label12.Caption = Label12.Caption + 1 5、设置当时间值达到某一条件的时候应采取的方法(即动作)。可以用if语句。如if Label12....
  • 怎样在窗体中查找Timer控件,好像control里没有Timer控件哦。因为我要在程序运行的时候动态添加多个Timer控件,而且要在运行的时候可以停止或开启某个定时器,所以要用name属性来识别。或者还有什么其它办法可以实现...
  • 这是我用VB写的用 TimeSetEvent函数代替Timer控件的代码, 它可以实现更细微更精确的计时。 如果你的程序有这样的要求,可以参考一下哦。
  • 用这个类可以替代VB自带的Timer控件

    千次阅读 2011-04-30 22:11:00
    原文地址:http://hi.baidu.com/qqool/blog/item/2bce35fa5488e21aa9d31167.html<br />  用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在...
  • Timer1_Timer() Timer1.Enabled = False Unload Me End Sub [/font] 模块代码: Option Explicit Public Declare Function timeGetTime Lib "winmm.dll" () As Long Sub TimeProc( ByVal uID As...
  • VB、编程、游戏、窗体透明、动态窗体显示、Timer控件应用等源代码

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 398
精华内容 159
关键字:

timer控件vb