1樓：析君豪
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
2樓：難得糊塗
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控制項設定乙個等待時間
3樓：匿名使用者
以下程式利用timer，使得程式等待1秒（1000毫秒）後繼續執行
4樓：vb妮可
1.你的動作直接寫到timer的**中呀..在form load事件中,指定好timer的interval值,並且讓timer的enabled為true的
2.for的過程,上次也有人問了的..在for中, 窗體不重繪的,只有for完了,才一次顯示窗體..所以在for 中print,當時是沒有效果的, 只有當for 完時,才列印所有的
你想程式啟動就開始輸入數字.每2分鐘輸出乙個數..**應該是dim i%
private sub form_load()timer1.interval = 120000timer1.enabled = trueend sub
private sub timer1_timer()print i
i = i + 1
end sub
5樓：
vb的時間不太準確，你要有思想準備。
vb中有關timer的用法
6樓：匿名使用者
dim i as long
private sub form_load()timer1.interval = 1000 '間隔一秒end sub
private sub timer1_timer()i = i + 1
label1.caption = i
text1.fontsize = text1.fontsize * 2
if text1.fontsize * 2 >= 2160 then text1.fontsize = 1
end sub
7樓：匿名使用者
看msdn吧，都是些基本函式，很簡單的
關於vb裡timer的用法
8樓：
下面是乙個簡單pset函式畫橢圓的方法，你也可以用乙個shape來作模擬。用它的(left,top)來替換(x,y)，效果是一樣的。
const pi = 3.14159265dim e as integer '計數變數dim r1, r2 as integerprivate sub form_load()r1 = 50 '長軸
r2 = 100 '短軸
timer1.interval=100
end sub
private sub timer1_timer()dim x as single, y as singlex = 100 + cos(e * pi / 180) * r1y = 100 + sin(e * pi / 180) * r2form1.pset (x, y)
e = e + 1
if e >= 360 then e = 0end sub
vb timer控制項的用法
9樓：星座
簡單的說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
10樓：
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
11樓：匿名使用者
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怎麼用
12樓：星座
簡單的說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
13樓：匿名使用者
開啟比方，timer如同乙個迴圈語句，它的迴圈變數是時間，即每隔一段時間，就執行一次timer中的語句。
例如：1、在窗體上新增乙個timer控制項，預設名稱為timer1。
2、將timer1的interval屬性設定為1000，即每隔1000毫秒（1秒）觸發一次。
3、在timer1的timer()事件中編寫如下**private sub timer1_timer()print time
end sub
4、執行該程式，窗體上每隔1秒就會輸出一次系統當前時間。
14樓：昔俊能
vb中timer控制項有兩個重要的屬性和乙個事件enable屬性是控制timer控制項是否可用，false不可用，true為可用
interval 屬性是表示時間間隔 以毫秒為單位 1000表示每一秒觸發一次timer事件
private sub timer1_timer()『timer控制項的事件
你想寫的邏輯**
end sub
vb中的timer的用法？
15樓：可軒
dim n% '次序號變數定義
private sub form_load()timer1.interval = 1000timer1.enabled = truen = 1
end sub
private sub timer1_timer()text1.text = "interval=" & cstr(n * 1000) '顯示本次的interval值
timer1.interval = n * 1000n = n + 1
if n > 6 then n = 1
end sub
''' 以上程式執行過，無誤。
16樓：聽不清啊
dim a as integer '為演示作準備
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()timer1.interval = timer1.interval + 1000
a = a + 1: print a '這行是演示用的
end sub
17樓：與雨聽
1000ms 上再乘個迴圈次數 i
VB有關image控制項的問題
在form.load裡面 下一張.click裡面 上一張.click裡面 dim tu as integer private sub command1 click 上一張if tu 1 then tu tu 1 image1.picture loadpicture n tu private sub ...
求VB幫助控制項陣列的問題
品牌3個按鈕為command1控制項組 品牌資訊3個文字框為text1控制項組 各個品牌數量及總價為text2控制項組 確定取消結束為command2控制項組 private sub command1 click index as integer if index 0 then text1 0 愛國...
VB問題，在什麼控制項內可以畫圖，線的寬度和顏色如何控制
一般情況，我們在窗體 from 或者 框 picturebox 內畫圖。下面是乙個在窗體內畫線的例子 private subform click me.drawwidth 1 設定寬度 其他寬度下線型均為實線 fori 0 to6me.drawstyle i 設定線條型別 me.line 1000 ...