在vb6.0中每5秒讀取list1下一條資訊
1樓:
1、在介面上放乙個timer控制項,把它的interval值設定為5000(即5秒)
2、在通用部分定義乙個公共變數ilistindexpublic ilistindex as integer3、在form_load中給ilistindex賦乙個初始值(這部分根據你的需要在不同的位置給ilistindex賦乙個初始值,可以不在form_load中)
private sub form_load()ilistindex = 1
end sub
4、在timer1_timer中寫下如下語句。
private sub timer1_timer()ilistindex = ilistindex + 1=
end sub
2樓:網友
在模組里加如以下函式:
public function gettime(jin as interger)
ss=timer
dodoevents
tt=timer
if tt-ss>jin then exit doloopend function
然後這是你的程式。
private sub command3_click()dim i
dim sfor i = 0 to - 1
igettime 5'請在這裡寫出每5秒向下讀取next end sub
3樓:網友
使用乙個timer控制項及全域性變數或靜態變數。
在vb6.0中迴圈讀取list1.text資訊
4樓:網友
你如果要求讀取時間那就要定義乙個timer控制項 來記時。
在timer事件中編寫讀取**。
如果不要求時間限制 那就很簡單了 直接用乙個迴圈 從list1.list(0)到就可以了。
vb6.0如何每隔一秒讀取一次excel的資料
5樓:網海1書生
private sub form_load()= 1000 '1000毫秒(即1秒)執行一次= true
end sub
private sub timer1_timer()'每隔一秒要執行的操作**寫在這。
end sub
在vb中怎樣獲取list中的乙個內容?
6樓:網海1書生
s = '把list1的第1項賦值給變數ss = - 1) '把list1的最後1項賦值給變數ss = '把list1的第i-1項賦值給變數ss = '把list1的當前選項賦值給變數ss = '也是把list1的當前選項賦值給變數s
7樓:己曼寒
某一項內容等於 ,index是項序號,從0開始,代表第一項如: 獲取第二項的內容。
s = '把list1的第1項賦值給變數ss = - 1) '把list1的最後1項賦值給變數ss = '把list1的第i-1項賦值給變數ss = '把list1的當前選項賦值給變數ss = '也是把list1的當前選項賦值給變數s
8樓:白色兄
用可以獲取列表了某一項,i是列表項的索引,從0開始,由上到下。你的問題可以用如下**實現:
vb中單擊命令按鈕觸發哪些事件,在VB6 0中,怎麼寫一個命令按鈕多次單擊按鈕的不同事件?
1 在vb中單擊命令按鈕觸發單擊事件,即窗體的click事件。2 在vb中單擊命令按鈕觸發失去焦點事件,當焦點不在按鈕上即發生。3 在vb中單擊命令按鈕觸發鍵盤按下事件,任意按下任意的鍵盤即可觸發事件。4 在vb中單擊命令按鈕觸發滑鼠按下事件,當滑鼠按下即可觸發的事件,無論是左鍵還是右鍵。5 在vb...
VB6 0中如何設定延時
private sub form load dim x x shell notepad.exe vbnormalfocus sendkeys 這是一個文字檔案的測試程式.true 模擬輸入英文字串 sendkeys true 兩次回車 waittime 2 延時 2 秒 sendkeys 自動輸入文...
VB6 0的窗體中,如何顯示不同內容
1全部不知道你註解是什麼用意。不過兩個都說一下,如果你不想新增form。你就建立frame組將所想要切換的所有控制元件全放在相應的每一個frame1陣列控制元件裡。然後,不管你有多少個控制元件。你都不需要對那控制元件單個操控。你只用通過用迴圈來控制frame1陣列的visible屬性來統一管理,或者...