vb0時(shí)間控件timer詳解

1、vb6.0時(shí)間控件timer詳解通過引發(fā)Timer事件，Timer控件可以有規(guī)律地隔一段時(shí)間執(zhí)行一次代碼。語法Timer說明Timer控件用于背景進(jìn)程中，它是不可見的*以下是他的屬性 *Enabled 屬性返回或設(shè)置一個(gè)值，該值用來確定一個(gè)窗體或控件是否能夠?qū)τ脩舢a(chǎn)生的事件作出反應(yīng)。語法object.Enabled = booleanEnabled屬性的語法包含下面部分：部分描述object對象表達(dá)式，其值是 應(yīng)用于”列表中的一個(gè)對象。如果 object被省略，則與活動(dòng)窗體模塊相聯(lián)系的窗體 被認(rèn)為是object。boolean 一個(gè)用來指定object是否能夠?qū)τ脩舢a(chǎn)生的事件作出反應(yīng)的布爾表達(dá)

2、式。設(shè)置boolean 的設(shè)置為：設(shè)置描述True (缺省)允許 object對事件作出反應(yīng)。False阻止object對事件作出反應(yīng)。Enabled屬性示例該例子使一個(gè)CommandButton控件有效而不管TextBox控件是否包含文本。要試用此例，先將下面的代碼粘貼到帶有 CommandButton 和TextBox控件的一個(gè)窗體的聲明部分，然后按下F5鍵并在文本框中隨意輸入一些內(nèi)容。Private Sub Form_Load ()Text1.Text =""清除文本框的內(nèi)容。Commandl.Caption = "Save"'在按鈕上放置

3、標(biāo)題。End SubPrivate Sub Text1_Change （）If Text1.Text = "" Then ' 查看文本框是否為空。Command1.Enabled = False '使按鈕無效。ElseCommand1.Enabled = True ' 使按鈕有效。End IfEnd SubInterval 屬性返回或設(shè)置對 Timer控件的計(jì)時(shí)事件各調(diào)用間的毫秒數(shù)。語法object.Interval = millisecondsInterval屬性語法有以下組成部分：部分描述object對象表達(dá)式，其值是 應(yīng)用于”列表中的一個(gè)對象。

4、milliseconds數(shù)值表達(dá)式，指定毫秒數(shù)， 設(shè)置值”中有詳細(xì)說明，。設(shè)置值milliseconds 的設(shè)置值為：設(shè)置值描述0 （缺省值）使 Timer控件無效。1 to 65,535 設(shè)置的時(shí)間間隔（以毫秒計(jì)），在Timer控件Enabled屬性設(shè)置為 True時(shí)開始有效，例如，10, 000毫秒等于10秒。最大值為 65, 535毫秒，等于 1分鐘多一些。說明可以在設(shè)計(jì)時(shí)或在運(yùn)行時(shí)設(shè)置Timer控件的Interval屬性。使用Interval屬性時(shí)，請記住：Timer控件的Enabled屬性決定該控件是否對時(shí)間的推移做響應(yīng)。將 Enabled設(shè)置為False會(huì)關(guān)閉Timer控 件，設(shè)置

5、為 True則打開它。當(dāng) Timer控件置為有效時(shí)，倒計(jì)時(shí)總是從其Interval屬性的設(shè)置值開始。創(chuàng)建Timer事件程序用以告訴Visual Basic 在每次Interval到時(shí)該做什么。Interval 屬性示例Timer 控件、HScrollBar 控件這個(gè)例子可以調(diào)整窗體切換顏色的速度。要嘗試這個(gè)例子，請將代碼粘貼到包含(水平滾動(dòng)條)和 PictureBox控件的窗體的聲明部分，然后按 F5鍵并單擊滾動(dòng)條。Private Sub Form_Load ()Timerl.Interval = 900 '設(shè)置時(shí)間間隔。HScroll1,Min = 100 '設(shè)置最小值。HScroll1.Max = 900 '設(shè)置最大值。End SubPrivate Sub HScroll1_Change ()根據(jù)滾動(dòng)條的數(shù)值設(shè)置時(shí)間間隔。Timer1.Interval = 1000 - HScroll1.ValueEnd SubPrivate Sub Timer1_Timer ()在紅色和藍(lán)色之間切換背景色。If Picture1.BackC010r = RGB(255, 0, 0) Th