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之類的檔案一起復制到新工程的目錄裡,然後看著原來工程 引用 了什麼元件或部件 控制元件 同樣在...