VB Timer的应用

来源：百度知道 编辑：UC知道 时间：2024/05/15 05:31:03
点击Command1，关闭form0，弹出一个Form1，开始记时，3秒，关闭Form1，打开Form3。
原来代码为：

form0.Hide

Form1.Show

Sleep (3000)

Form1.Hide

Form3.Show
求用timer写的代码，谢了
额……2楼好像误解我了，把Form混了
form0.Hide: Form1.Show
还有啊，我运行的时候发现这几点：
点Command1后发现是Form3先弹出来了，然后Form1再弹出来的
而且我的意思是Form1弹出来运行3秒钟后隐藏，Form3再出来。

Form1只弹出一次啊，而且只显示3秒钟

……改了吗？我想只运行一次

我的意思啊，在Form1弹出来3秒后关闭它，这样比较清楚了吧

很正确的，怎么会错呢（个别原来用hide方法把它弄不见的窗体现在用unload直接卸载掉，如果你喜欢，也可以改回用hide方法）：

'按钮在form0中，timer在form1中
——————————————form0中——————————————
Private Sub Command1_Click()
Form1.Timer1.Interval = 3000
Form1.Timer1.Enabled = True
Unload Me: Form1.Show
End Sub

Private Sub Form_Load()
Form1.Timer1.Enabled = False
End Sub

——————————————form1中——————————————
Private Sub Timer1_Timer()
Unload Me: Form3.Show
Timer1.Enabled = False
End Sub

好了，现在form1只显示一次了

返回或设置一个表达式用来存储程序中需要的额外数据。与其它属性不同，Tag 属性值不被 VB 使用；可以用该属性来标识对象。
语法
object.Tag
object.Tag [= expression]

object 对象表达式，其值是“应用于”列表中的对象。
expression 识别对象的字符串表达式。缺省值是一个零长度的字符串("")。