精华内容
下载资源
问答
  • Timer控件的常用属性 Interval属性 Interval属性是Timer控件最为重要的属性,也是少有的几个属性之一。 作用:返回或设置一个值,该值用于决定触发Timer事件的间隔时长。 语法: 对象名称.Interval [ =值 ] 值:...

    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编程越来越感兴趣了呢。哈哈,赶快拿给你的小伙伴玩玩这个游戏吧。

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

    展开全文
  • VB Timer时钟准确性

    千次阅读 2008-10-02 14:16:00
    Timer控件的使用 VB编程过程,通过引发Timer事件,Timer控件可以有规律地间隔一段时间执行一次代码。Interval属性是Timer控件最重要的一个属性,它以千分之一秒为单位指定Timer事件之间的间隔,理论上可以认为...

    Timer控件的使用 
     
    VB编程过程中,通过引发Timer事件,Timer控件可以有规律地间隔一段时间执行一次代码。Interval属性是Timer控件最重要的一个属性,它以千分之一秒为单位指定Timer事件之间的间隔,理论上可以认为最少可设置为1毫秒触发一次Timer事件,另外一个重要属性是Enabled属性,它决定计时器是否开始工作。因为Timer控件响应时间的流逝,独立于用户,可以成为编程者的“好帮手”,所以在实践中很受欢迎,但编程者特别是初学者在实际使用过程中往往会感觉到“力不从心”,下面笔者将通过分析并结合自己的编程体会谈谈Timer控件使用中的几个误区。

    1. 编程中过于相信Interval属性值的准确性

    这是初学者易犯的错误,其实Interval属性值只是一个参考值,其准确性低,因而间隔不一定准确。Timer控件是基于Windows消息WM_TIME的时钟脉冲发生器,系统每秒生成18个时钟信号,所以即使用毫秒衡量Interval属性,间隔的实际精度不会超过1/18秒,换句话说,Timer控件能够精确设置的最短时间是65.6毫秒,如果要使时间间隔更精确,应让定时器检查系统时钟。

    2. Interval属性的取值范围

    Interval属性的有效值在0至65535之间,这就意味着即使最长时间间隔也只是65.6秒,比一分钟长不了多少,而且VB只有在Interval属性值大于0时,才会产生Timer事件,这是要特别注意的地方。

    3. Timer控件的功能定位出错

    Timer事件是周期性的,Interval属性主要是决定“多少次”而非“多久”,所以一般不用于计时,而是用做计数。笔者曾做过实验,把Interval值分别设为1000和60000,即把间隔时间分别设为一秒钟和一分钟,做成一个计时器,并把工作结果和系统标准时间比较,误差分别是6.7%和1.7%,可见定时器事件生成越频繁,响应事件所用的处理越多,越将降低系统综合性能,从而导致误差增大,这么大的误差显然失去了用做计时的意义。

    4. 计数器变量的声明错误

    在设计计数器时最易犯的错误是不声明变量或在区域变量中声明。将Interval属性设为1000,看看下面这个程序:

    Private Sub Timer1_timer()

    Dim i as integer

    i=i+1

    print i

    End Sub

    也许有读者可能想通过这段程序,能打印出1,2……n,而事实上只能打印出1,1……1来,原因在于每个时间间隔内,按顺序运行的Timer事件是彼此互不相干的,如将变量i声明为区域变量,每次程序一运行完,此变量即告完成任务,因此显示的永远是1,如在程序中将i声明为公用变量,此变量存储的值就会一直保留下来。

    以上几点只是笔者在当前系统环境下的粗浅认识,可以想见,随着硬件和软件环境的不断改善,将会出现更加精确的Timer控件。

     

    http://www.vbgood.com/vb.good/article-do-view-articleid-3591.html

    展开全文
  • 使用方法和 vb 的Timer控件一样,只是增加了一个 AsynExecute 属性,当设置此属性 = true 时候, Timer 是以异步方式运行, 比如,第 1 次timer事件代码未运行完,第2次就开始了,那么第1次事件代码将暂停,第 3 次.....
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    VB中list控件的功能扩充 21 , 21.txt VB中防止将重复项目添加到列表框控件中 22 , 22.txt VB中用Multimedia MCI控件开发多媒体应用 23 , 23.txt Win Api在VB中的妙用 24 , 24.txt WINDOWS SCRIPT HOST对象在VB中的...
  • 可以用在无窗体模块,本timer类模块,完全模拟vb自带控件,事件,属性完全与vb自带的timer控件相同,例如:mTimer.Interval = 500设置计时器时间,mTimer.Enabled = True启动计时器,mTimer.Enabled = False关闭...
  • 前几天看到有一则用CBC实现例子,便想用VB实现一下,可惜当窗体上放满控件时,FORMMOUSEMOVE事件不能很好地触发,所以只好用以下python基础教程笨办法,现把代码贴上,窗体上需放一TIMER控件,Interval属性为...

    VB中实现窗体自动隐藏 (转)
    OICQ聊天时的窗体自动隐藏vb.net教程

    c#教程功能,用vc 或CBC都可以很c#教程简单地实现,前几天看到有一则用CBC实现的例子,便想用VB实现一下,可惜当窗体上放满控件时,FORM的MOUSEMOVE事件不能很好地触发,所以只好用以下python基础教程的笨办法,现把代码贴上,窗体上需放一TIMER控件,Interval属性为200。大伙如有好的意见,不妨贴出来,让我学习学习。

    Option Explicit
    
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTapi) As Long
    Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    
    Private Type RECT
      Left As Long
      Top As Long
      Right As Long
      Bottom As Long
    End Type
    Private Type POINTAPI
      X As Long
      Y As Long
    End Type
    
    Private Const HWND_TOPMOST = -1
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOMOVE = &H2
    Private Const HWND_TOP = 0
    Private Const SWP_NOACTIVATE = &H10
    Private Const SWP_SHOWWINDOW = &H40
    
    
    Private Sub Form_Load()
    '窗体放在最前面
      SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End Sub
    
    Private Sub Timer1_Timer()
      Dim p As POINTAPI
      Dim f As RECT
      GetCursorPos p  '得到MOUSE位置
      GetWindowRect Me.hwnd, f  '得到窗体的位置
      If Me.windowstate <> 1 Then
      If p.X > f.Left And p.X < f.Right And p.Y > f.Top And p.Y < f.Bottom Then
      'MOUSE 在窗体上
      If Me.Top < 0 Then
      Me.Top = -10
      Me.Show
      ElseIf Me.Left < 0 Then
      Me.Left = -10
      Me.Show
      ElseIf Me.Left + Me.Width >= Screen.Width Then
      Me.Left = Screen.Width - Me.Width + 10
      Me.Show
      End If
     
      Else
      If f.Top <= 4 Then
      Me.Top = 40 - Me.Height
      ElseIf f.Left <= 4 Then
      Me.Left = 40 - Me.Width
      ElseIf Me.Left + Me.Width >= Screen.Width - 4 Then
      Me.Left = Screen.Width - 40
      End If
      End If
      End If
    
    End Sub
    

    来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10797429/viewspace-101579/,如需转载,请注明出处,否则将追究法律责任。

    转载于:http://blog.itpub.net/10797429/viewspace-101579/

    展开全文
  • 定时器控件的使用

    千次阅读 2010-10-16 10:42:00
    Timer控件的最重要的一个属性就是时间间隔属性(Interval)。它是以ms(微秒)为单位,范围0~65535。  这里有个时间的例子,如下:  主要用到的控件有PictureBox,名称属性设置为“PicTime”,还有三个...

          我们在项目中,有时需要定时执行某些功能,比如每天定时备份数据,或处理一些日终程序等。这里我主要是就VB中的Timer控件来介绍下。Timer控件的最重要的一个属性就是时间间隔属性(Interval)。它是以ms(微秒)为单位,范围0~65535。

          这里有个时间的例子,如下:

          主要用到的控件有PictureBox,名称属性设置为“PicTime”,还有三个文本框,分别为TxtYear,TextMth,TextDay,还有个用来显示时间的Label,名称为LblTime。布局如下:

     

     

    定义全局变量:

    Dim day, year, month, ddate, ttime As String

    Dim alf(0 To 11)

    Dim rr

    Dim nHourLen, nMinLen, nSecLen As Integer

    Const Pi = 3.1415926

    设定Timer间隔时间为1秒:

    Private Sub Form_Load()

        Timer1.Interval = 1000

    End Sub
    Timer事件:

    Private Sub Timer1_Timer()
       
        rr = PicTime.Height / 2
       
        ddate = Format(Now, "mm:dd:yy")
       
        ttime = Format(Now, "hh:mm:ss")
       
        month = Left(ddate, 2)
       
        day = Mid(ddate, 4, 2)
       
        year = Right(ddate, 2)
       
        hh = Left(ttime, 2)
       
        mm = Mid(ttime, 4, 2)
       
        ss = Right(ttime, 2)
       
        TxtYear.Text = "20" & year
       
        TxtMth.Text = month
       
        TxtDay.Text = day
       
        LblTime.Caption = Time
       
        nWidth = PicTime.Width - 40
       
        nHourLen = nWidth * 4 / 18
       
        nMinLen = nWidth * 6 / 18
       
        nSecLen = nWidth * 8 / 18
       
        alfsec = ((ss - 15) / 30) * Pi
       
        alfmin = ((mm + ss / 60 - 15) / 30) * Pi
       
        alfhour = ((hh + mm / 60 + ss / 3600 - 15) / 6) * Pi
       
        PicTime.Refresh
       
        For I = 0 To 11
       
            alf(I) = I * 30 * Pi / 180
           
            PicTime.DrawWidth = 1
           
            If I = 0 Or I = 3 Or I = 6 Or I = 9 Then
           
                PicTime.DrawWidth = 3
           
            End If
           
            PicTime.Line (rr + (rr - 100) * Cos(alf(I)), rr + (rr - 100) * Sin(alf(I)))-(rr + (rr - 300) * Cos(alf(I)), rr + (rr - 300) * Sin(alf(I))), RGB(255, 0, 255)
           
            Next I
           
            PicTime.DrawWidth = 3
           
            PicTime.Line (rr, rr)-(rr + nHourLen * Cos(alfhour), rr + nHourLen * Sin(alfhour))
           
            PicTime.DrawWidth = 2
           
            PicTime.Line (rr, rr)-(rr + nMinLen * Cos(alfmin), rr + nMinLen * Sin(alfmin))
           
            PicTime.DrawWidth = 1
           
            PicTime.Line (rr, rr)-(rr + nSecLen * Cos(alfsec), rr + nSecLen * Sin(alfsec))
           
            PicTime.DrawWidth = 5
           
            PicTime.PSet (rr, rr), RGB(255, 0, 255)
           
    End Sub

     

    运行结果如下:

     

     

    参考:《Visual Basic从入门到精通》

    展开全文
  • 如何用VB在窗体实现闪烁文字

    千次阅读 2013-08-26 18:12:32
    通过使用VB数据库编程的Timer控件,程序员可以轻松在窗体上实现闪烁文字效果。本文将演示如何为Label控件加上闪烁效果,这种方法同样适用于其它多种控件。  当你在窗体上加入Timer控件时,它只出现在设计时,而...
  • 往期精彩干货总结 | VB编程语言基础知识点总结技巧 | VB编程实现语音自动朗读程序数据库|VB开发超市收银串口通信支付软件VB编程...首先,我们需要在VB中新建一个exe工程,然后在窗体上添加一个Timer(时钟)控件,...
  • VB中实现窗体自动隐藏

    千次阅读 2001-12-12 09:46:00
    前几天看到有一则用CBC实现例子,便想用VB实现一下,可惜当窗体上放满控件时,FORMMOUSEMOVE事件不能很好地触发,所以只好用以下笨办法,现把代码贴上,窗体上需放一TIMER控件,Interval属性为200。...
  • 一、使用工具:Visual Web Developer 2008 二、实验目标:在ASP.NET的页面实现电子表。 三、实验原理:微软在VS 2008,开始...该控件有个属性为Interval,设置Interval属性值的意义在于,指定Timer控件的Ti...
  • 在窗体的resize事件,重新定义窗体的高和宽,然后根据窗体的大小重新定义个控件的left,top,height,width属性,也可以在窗体上放一个timer控件,在time事件重新定义窗体的高和宽,然后根据窗体的大小重新定义个...
  • 在Windows操作系统,四四方方...2,在Form1上添一个Label控件并使之居中,另外添加一个Timer1控件,设置Timer1Interval属性值为1000毫秒,如下图所示。3,双击窗体,打开代码编辑窗口,在其中添加代码:1. Priva...
  • mmTimer_source.rar 是 mmTimer 控件的原版。 可以精确到1毫秒的定时器——多媒体定时器 ' *********************************************************************************** ' 功 能:可以精确到1毫秒的...
  • 一、使用工具:Visual Web Developer 2008二、实验目标:在ASP.NET页面... 其中,Timer控件很像其他语言中的类似控件,比如,VB6.0中的Timer控件。该控件有个属性为Interval,设置Interval属性意义在于,指定Time
  • vb自动播放CD

    2011-05-25 09:18:00
    在该工程新建一个form,属性名称=frmplayVCD,caption=自动播放VCD在窗体上添加一个mediaplayer控件,命名为mediaplayer1,previewMode 属性值为False、在窗体上添加一个Timer控件,命名为Timer1在窗体上 添加三...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    我们在设计过程主要用到控件有:command控件,image控件,picture控件,label控件,timer控件,text控件,windows media player控件等等。 1.5主要实现功能 我们开发俄罗斯方块游戏,主要实现了以下几种功能...
  • vb6,可以很简单在窗体上画画,通过设置窗体autoredraw属性还可以保持绘制图形不会因为窗体超出屏幕边界等情况消失。 那.net里面如何画画能让窗体不消失,并且能用timer时钟控件做出动画一般效果呢? ...
  • VB6新建一个工程,当前窗体默认为form1,添加一个框架控件frame、几个文本框控件text、几个标签控件label、两个timer计时器、三个按钮控件、添加一个窗体form2、一个模块module1、几个菜单项。然后将form1上各个...
  • 2、当窗体上有三个文本框和一个命令按钮,若程序运行时,焦点定位在第三个文本框(Text3)处,应对何控件的什么属性进行何种设置? 3、若要对窗体上的三个文本框输入数据,个控件焦点的移动可通过Tab键(系统本身...
  • mid 窗口实现编辑器,并能防止打开多个实例(32KB) 37,f020.ZIP 在VB中调用HELP文件并实现Winhelp关键字、主题等功能(16KB) 38,f019.ZIP 如何在VB中分割一个文件并组装恢复它(18KB) 39,f018.ZIP...
  • VB编写抽奖程序

    千次阅读 1970-01-12 15:41:01
    在Form1窗体放置一个定时器(Timer1)、两个文本框(Label1,Label2)、两个命令按钮(Command1,Command2)和包含7个元素的控件数组(Label3(0)—Label3(6))。 二、属性设置 Label3控件数组中的
  • 2月10日

    2016-03-10 17:23:06
    打开VB并新建工程   从工具栏点击定时器,在窗体创建定时器控件 双击定时器控件,将代码改成 ...将定时器Interval属性改为1000     创建两个命令按钮,分别修改代码为 Private Sub Comm
  • 1. 打开VB并新建工程   2. 从如图工具栏点击定时器,在窗体创建定时器控件 3. 双击定时器控件,将代码改成 Private Sub Timer1_Timer() 屏幕1.Caption=Time() ...5. 将定时器Interval属性改为1000
  • Timer控件 69 MD综合示例 错误!定义书签 任务实训部分……143 1创建记事本”应用程序 错误!未定义书签 2:增强”记事本”功能∴ 143 3:实现记事本字体样式设置… 144 C#项目开发全程实录视频教程(全10个案例):htt: /...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版飞鸽传书软件,但是Java版确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能提升很有帮助。 Java聊天程序,包括服务端和...
  • java源码包2

    千次下载 热门讨论 2013-04-20 11:28:17
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版飞鸽传书软件,但是Java版确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能提升很有帮助。 Java聊天程序,包括服务端和...

空空如也

空空如也

1 2
收藏数 39
精华内容 15
关键字:

vb中timer控件的属性