利用VB時鐘控制元件製作倒計時

2022-12-09 01:45:06 字數 1299 閱讀 1384

1樓:匿名使用者

'另加一個label

dim timep as integer

private sub command1_click()text1.enabled = true

timer1.enabled = truetimer1.interval = 1000timep = 120

end sub

private sub timer1_timer()timep = timep - 1

label1.caption = format(timep \ 60, "00") & ":" & format(timep mod 60, "00")

if timep = 0 then

text1.enabled = falsetimer1.enabled = falseend if

end sub

2樓:

dim i as integer

private sub form_load()i=120

timer1.interval=1000

timer1.enabled=true

end sub

private sub command1_click()i=120

timer1.enabled=true

text1.enabled=true

end sub

private sub timer1_timer()i=i-1

if i=0 then

text1.enabled=false

timer1.enabled=false

end sub

3樓:乖

dim ncount as integerprivate sub command1_click()ncount = 120

text1 = ncount

text1.enabled = true

timer1.enabled = trueend sub

private sub form_load()timer1.interval = 1000ncount = 120

text1 = ncount

end sub

private sub timer1_timer()if ncount = 0 then

text1.enabled = falsetimer1.enabled = falseelse

ncount = ncount - 1

text1 = ncount

end if

end sub

vb怎麼使用ADODC控制元件我想在我的vb程式中顯示SQL資料庫中的表然後還要能新增資料的那種

adodc只是建立連線,獲取資料,顯示,還需要用到其他控制元件如datagrid等。dataconnectstring provider microsoft.jet.oledb.4.0 data source access庫.mdb persist security info false jet o...

VB中如何把控制元件變成透明的

用這段 option explicit private declare function createcompatiblebitmap lib gdi32 byval hdc as long,byval nwidth as long,byval nheight as long as long pri...

關於vb6使用Flash控制元件的問題

估計是你的工程檔案有問題,可能是原來的vb開發環境引起的這種問題,你可以嘗試重新建一個新工程,然後儲存到一個指定目錄,然後把原來工程的相關檔案複製到工程裡,如 frm frx ctl ctx cls vbs之類的檔案一起復制到新工程的目錄裡,然後看著原來工程 引用 了什麼元件或部件 控制元件 同樣在...