1樓：
樓上的說的 太對了。這就是新手問題，當時我學到這裡的時候也遇到了這種問題。
當時問老師之後解決的。
當時還有點沒轉過彎來。後來知道轉彎了。
private sub timer1_timer()i=i+1
label1.caption =i
end sub
這個過程裡面的「i」變數，每執行一次就初始化一次。因為這個i是區域性變數，執行完畢之後就釋放了。即不存在了。下次用的時候再從記憶體中建立，初始化。
這就是原理。知道一些原理對程式設計是很有用的。
針對你的要求想一個解決辦法要如何辦呢？
那就是這個變數i，每次執行之後不要釋放，那如何辦呢？
把這個i定義成全域性變數，在過程或函式執行完畢之後在記憶體中不釋放。
如何定義全域性變數？有幾種方法。當然全域性變數也分等級的。
1。比如窗體級全域性變數，當這個窗體釋放之後，相應的變數也全部釋放了。
2。程式級全域性變數，程式不關閉，變數就不會釋放。
你這個問題，定義一個普通的全域性變數就可以了，就像樓上說的，在**的最上面，寫上一句dim i as integer就可以了。
程式設計的意識是以後邊使用邊增強的。
2樓：匿名使用者
變數i沒有正確定義，你可以試著在窗體所有**的最上面插入一行，輸入以下**：
private i as integer
也就是宣告一個全域性變數i
3樓：匿名使用者
dim i as integer
i 需要定義成全域性變數
在通用裡邊
vb問題，timer 控制元件的用法。
4樓：析君豪
dim t%
private sub command1_click()t = 0
timer1.interval = 1000 '計時事的毫秒數,即每1秒呼叫一次timer1_timer()
timer1.enabled = trueend sub
private sub timer1_timer()t = t + 1
text1.text = t
if t = 5 then timer1.enabled = false
end sub
5樓：難得糊塗
dim a as integer
private sub form_load()timer1.interval = 1000timer1.enabled = falsetext1 = ""
a = 1
end sub
private sub command1_click()timer1.enabled = truetext1 = a
end sub
private sub timer1_timer()a = a + 1
text1 = a
if a = 6 then
timer1.enabled = falsea = 0
text1.text = "結束"
end if
end sub
'請參考。
在vb中的timer控制元件怎麼用？
vb timer控制元件的用法
6樓：星座
簡單的說timer是一個時間的控制元件，不能說timer的值等於2秒時，因為timer相當於時間，只能說當timer跳動兩秒時觸發某事件。
例如：1、在窗體上新增一個timer控制元件，預設名稱為timer1。
2、將timer1的interval屬性設定為1000，即每隔1000毫秒（1秒）觸發一次。
3、在timer1的timer()事件中編寫如下**private sub timer1_timer()print time
end sub
4、執行該程式，窗體上每隔1秒就會輸出一次系統當前時間。
擴充套件資料：具體**如下：
首先要確定啟動控制元件
me.timer1.enabled = true 』啟動控制元件me.timer1.interval = 1000 『設定跳動頻為1秒。1000＝1秒
dim stime as string=0然後在控制元件的 timer1.tick事件下寫下面的**stime=stime+1
if stime=2 then
'你所要觸發事件的**
msgbox("ok")
end if
7樓：
dim a as long
private sub command1_click()timer1.interval = 1000timer1.enabled = trueend sub
private sub command2_click()timer1.enabled = falsetext1.text = a
end sub
private sub timer1_timer()a = a + 1
end sub
8樓：匿名使用者
dim a as integer
private sub command1_click()timer1.enabled = true '啟用時間控制元件
timer1.interval = 1000end sub
private sub command2_click()timer1.enabled = false '關閉時間控制元件
text1 = a
end sub
private sub timer1_timer()a = a + 1
end sub
vb中如何停止timer控制元件
9樓：匿名使用者
timer.enabled=false
enabled 屬性
返回或設定一個值，該值用來確定一個窗體或控制元件是否能夠對使用者產生的事件作出反應。
語法object.enabled [= boolean]
enabled 屬性的語法包含下面部分：
部分描述object
物件表示式，其值是「應用於」列表中的一個物件。如果 object 被省略，則與活動窗體模組相聯絡的窗體被認為是 object。
boolean
一個用來指定 object
是否能夠對使用者產生的事件作出反應的布林表示式。
設定boolean 的設定為：
設定描述true
（預設）允許 object 對事件作出反應。
false
阻止 object
對事件作出反應。
說明enabled 屬性允許在執行時使窗體和控制元件成為有效或無效。例如，可以使物件成為不能用於應用程式的當前狀態的無效狀態。也可以使之純粹用來顯示，比如一個提供只讀資訊的文字框的控制元件無效。
通過把 enabled 設定為 false 來使 timer 控制元件成為無效，將取消由控制元件的
interval 屬性所建立的倒計數。
對於 menu 控制元件，enabled 在執行時可正常地讀/寫。但是對於那些被 visual basic
的載入巨集遺棄或提供的選單項來說，enabled 是隻讀的，例如在「外接程式」選單中的「外接程式管理器」命令。
10樓：匿名使用者
vb中停止timer控制元件，只要使用下面的**即可。
示例(停止timer1控制元件)：
timer1.enabled = false重新啟動：
timer1.enabled = true
11樓：彩虹飲料
'首先要定義一個全域性變數來控制執行timer的次數
dim c as integer
'在timer1開始執行的地方給c賦初始值,假設是窗體載入的時候就執行timer
private sub form_load()
c = 0 』給次數賦值為0次
timer1.enable=true '開啟計時器可用
timer1.interval=1000 '這時候計時器開始執行，每1秒執行一次
end sub
private sub timer1_timer()
...'執行主要的函式功能過程(假設是列印當前次數)
print c
...'執行完之後給次數變數加1
c=c+1
'開始判斷是否次數是否滿足你的次數要求(假設執行了5次之後不再執行)
if c>=5 then
timer1.enable=false '計時器不可用，下次就不會再繼續執行了
end if
end sub
這裡有個倒計時的程式，你可以參考一下它的原理
12樓：匿名使用者
dim times as long
private sub form_load()times = 0
end sub
private sub timer1_timer()times = times + 1
if times > 10 then timer1.enabled = false
\'能看懂吧
end sub
vb的timer控制元件怎用啊?
13樓：匿名使用者
timer控制元件只有兩個公共事件disposed和tick事件，disposed在控制元件銷燬時發生，tick事件是在timer.interval屬性設定值被觸發。
設定timer.enabled屬性為true讓timer控制元件起作用。
設定timer.interval屬性設定timer的tick事件觸發間隔時間
14樓：匿名使用者
把他拖到你的窗體裡面，然後選擇窗體那裡的timer控制元件開始設定就行。如果要實現複雜的程式，要設定**才行。
15樓：匿名使用者
在一個 timer 控制元件的預定的時間間隔過去之後發生。該間隔的頻率儲存於該控制元件的 interval 屬性中，它以千分之一秒為單位指定時間的長度。
語法private sub object_timer([index as integer])
timer 事件語法包括下列部分：
部分 描述
object 一個物件表示式，其值是「應用於」列表中的一個物件。
index 一個整數，用來唯一地標識一個在控制元件陣列中的控制元件。
說明使用 timer 事件時，可用此事件在每次 timer 控制元件時間間隔過去之後通知 visual basic 應該做什麼：
interval 屬性以千分之一秒為單位指定 timer 事件之間的間隔。
為什麼我vb中的timer控制元件只能執行兩次？
16樓：悲傷0謝幕
dim a as long '解決方法：定義為全域性變數private sub command1_click()timer1.enabled = trueend sub
private sub command2_click()timer1.enabled = falseend sub
private sub form_load()a = 1 '在這裡初始化
end sub
private sub timer1_timer()'dim a as long
'a = 1 '並不是因為時鐘執行兩次，是因為這裡你使用了區域性變數，每次執行時重新定義a並賦值為1
if a >= 1 then
a = a + 1
label1.caption = a
end if
end sub
vb6 textbox控制元件設定問題
private sub command2 click 清空label1.caption text1.setfocus end sub 就是利用text的獲得焦點 private sub command1 click 確認按鈕 text1.text text2.text text3.text 把資料傳...
vb選項卡控制元件使用問題，VB如何設定多個選項卡
別見怪，熱心是我 新建兩個容器，如frame picturebox，把按鈕分開放置 第一頁選項卡的部件放入frame1，第二頁選項卡的部件放入frame2 設定每頁選項卡的key 右擊 properties tabs key設定每一頁的key，然後切換到第二頁，點右箭頭 也設定一個key 在屬性視窗...
VB程式設計問題，VB程式設計中的迴圈問題
有個 自己去看吧，都是考試的。編一個求圓周長的程式。輸入半徑，得到周長和麵積。試試看。建議你不要光學vb,畢竟它有太多缺點，很多事做不了 如果是對basic語言感興趣的話，到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大 freebasic甚至可以寫作業系...