20569.html
来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 23 行
HTML
23 行
<html> <head> <title>Re: 如何在Form上动态加上Timer物件(使用VB6)</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 如何在Form上动态加上Timer物件(使用VB6)</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:jtomail@tomail.com.tw">j</a> on October 24, 1999 at 06:13:28:<p>In Reply to: <a href="20428.html">如何在Form上动态加上Timer物件(使用VB6)</a> posted by Louis Lu on October 20, 1999 at 17:21:34:<p>: 首先谢谢小吴上次解决在Module上建立Timer的方式!!<p>: 一般要使用timer须在form上建立有形的timer物件(以拖拉的方式),<br>: 但我们可否在Form中在执行时加上timer物件????<p><br>Dim i As Integer<br>Dim WithEvents tmrNew As Timer<p>Private Sub Command1_Click()<br>'新增控制项<br>Set tmrNew = Form1.Controls.Add("VB.Timer", "tmrNew")<br>tmrNew.Interval = 100<br>End Sub<p>'新增控制项事件<br>Private Sub tmrNew_Timer()<br>i = i + 1<br>Caption = i<br>End Sub<p><p><br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20569--></ul><!--end: 20569--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?