1樓：匿名使用者
private timer1()_timerdim timenow as integer,timeset1 as integer,timeset2 as integer
const timeset1=8*3600'表示8點const timeset2=10.5*3600do until timeset1=timenowtimenow=timer
loop
msgbox("something you want to say")
picture1.picture=......
do until timeset2=timenowloop
msgbox("something you want to say")
picture1.picture=......
end sub
2樓：匿名使用者
vb裡有一個timer控制元件，可以實現你要的功能
把interval設定為1000，這樣
timer1_timer就會每秒執行一次。
3樓：
對``用timer就可以實現
具體方法不難,lz應該會吧
vb以時間觸發事件
4樓：一千館原創短**
private sub timer1_timer()if time = "7:00:00" then msgbox "到時"
end sub
timer控制元件設為1s響應一次,然後把then後面的語句換成你要做的就可以了
5樓：匿名使用者
1.在工具箱裡找到timer控制元件，畫到窗體上。
2.設定timer的interval屬性為10003.雙擊timer控制元件，編寫**：
private sub timer1_timer()if format(time) = "07:00:00" then'你要做的事。
end if
end sub
注：formatet 用於保證格式。
6樓：鯨無敵
用api函式netschedulejobadd新增一個計劃任務，每天7:00就執行你的資料收集程式
vb 定時觸發事件
7樓：匿名使用者
放一個timer，**如下：
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()dim tm&
tm = minute(now)
if tm mod 10 = 1 thencall sjsjsj
end if
end sub
private sub sjsjsj()
'你要觸發的事件
end sub
8樓：令狐腫
event sjsjsj '事件
dim tm&
tm = minute(now)
if clng(right(cstr(tm),1))=0 then raiseevent sjsjsj
在vb中當事件被觸發是 什麼會立即做出響應
9樓：匿名使用者
使用者在vb中對不同的物件進行不同的操作，會發生各種不同的響應。
下面以text1物件進行舉例：
1、點選，text1_click()會做出響應；
2、雙擊，text1_dblclick()會做出響應；
3、在編輯框內輸入如何字元，text1_change()會做出響應；
等等總而言之，不同的物件發生不同的事件，它們的響應也各不相同，你可以在設計視窗內試著新增控制元件進行檢視學習。
10樓：匿名使用者
相對應的控制元件的事件即被觸發。執行相應的操作。比如點選 按鈕就會執行 按鈕的click事件
vb根據計時器觸發事件，有個計時器從00：00:00開始，等到特定事件觸發事件
11樓：扶桑看天
dim count as integer
private sub timer1_timer()count = count + 1
if count = 5 then
command1_click
end if
if count = 10 then
end if
end sub
vb.net，如何利用timer控制元件在某個時間點觸發事件？
vb.net 在規定的時刻觸發某個事件。怎麼實現？
vb讓程式每隔一段時間改觸發一次事件
12樓：匿名使用者
private sub form_load()randomize '隨機種子有了它才能隨機form1.autoredraw = true '能print出來timer1.enabled = true '控制元件響應timer1.
interval = 5000 '每隔5秒更新end sub
private sub timer1_timer()dim a as integer
a = rnd() * 10 '隨機0-9print a
end sub
13樓：匿名使用者
新建一個窗體,畫上一個text1 和一個timer ,直接新增以下** ,按f5執行
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()text1 = int(rnd * 100)end sub
14樓：匿名使用者
用個timer將timer的interval設定為5000，在timer的事件中寫**更新文字框中的值
vb中單擊命令按鈕觸發哪些事件，在VB6 0中，怎麼寫一個命令按鈕多次單擊按鈕的不同事件？
1 在vb中單擊命令按鈕觸發單擊事件，即窗體的click事件。2 在vb中單擊命令按鈕觸發失去焦點事件，當焦點不在按鈕上即發生。3 在vb中單擊命令按鈕觸發鍵盤按下事件，任意按下任意的鍵盤即可觸發事件。4 在vb中單擊命令按鈕觸發滑鼠按下事件，當滑鼠按下即可觸發的事件，無論是左鍵還是右鍵。5 在vb...
VB程式的問題，vb程式的問題
這個函式的功能為 將數字字串 0 到 9 轉變為數字 0 到 9，將大寫和小寫字母 a 到 f 轉變為數字 10 到 15。如果不屬於以上情況，返回 1 另外，test 1 end if 有錯，應為 test 1 end if 註釋如下 function converthexchr str as s...
關於vb的問題！關於VB的問題
在文字框的text屬性裡設為 中國。不就ok了。剛測試過，沒問題的，你在form里加個command1，點選後，可以實現你說的效果，有問題，訊息問我。private declare sub sleep lib kernel32 byval dwmilliseconds as long private...