神马品牌网北京苹果公司:关于VB的Time控件
来源：百度文库 编辑：神马品牌网 时间：2024/04/16 12:47:11
我想知道．timer控件的属性怎样去使用。
还有就是怎么利用它实现对倒记时的编写．
请把源代码发给我．
谢谢啦．
还有的就是．这个是什么意思．”在 窗 体DEMO 中 定 义 以 下 窗 体 变 量, 即 在General-declaration 过 程 中 定 义 色 彩 参 数R，G，B。 ”
请各位给我个满意的回复．
我主要是想问的是这个是什么意思 ”General-declaration”
还有就是怎么利用它实现对倒记时的编写．
请把源代码发给我．
谢谢啦．
还有的就是．这个是什么意思．”在 窗 体DEMO 中 定 义 以 下 窗 体 变 量, 即 在General-declaration 过 程 中 定 义 色 彩 参 数R，G，B。 ”
请各位给我个满意的回复．
我主要是想问的是这个是什么意思 ”General-declaration”
General-declaration
表示代码视图选择“通用”“声明”，可以写对当前整个窗体过程起作用的代码。如定义窗体级变量。
倒计时可以设置integerval属性，如1000（单位是毫秒）表示一秒钟执行一次。如果倒计时可以让i=i-1类似来实现！
Public start
Private Sub Form_Load()
Timer1.Interval = 500
'timer 指从午夜到现在的时间
start = Timer
End Sub
Private Sub Timer1_Timer()
'设置时间 N秒
dotime = 6000
'计算播放了多少秒
totle = Timer - start
'判断时间
Form1.Caption = "铃声 播放时间为:" + Str(totle) + "秒"
If totle > dotime Then
'关闭
Unload Me
End If
End Sub
这是一个倒计时播放器的部份代码,希望对你有用.