在vb6 0中每5秒讀取List1下一條資訊 5

時間 2025-01-29 12:05:03

在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屬性來統一管理,或者...