1樓:銀蠍
建立一個timer控制元件,一個文字框,一個按鈕。
先把timer的interval屬性值改成100通用宣告**如下
dim t as single
t=0text1.text=0
按鈕的**如下:
if timer1.enabled=true thentimer1.enabled=false
else
timer1.enabled=true
end if
timer的**如下:
t=t+0.1
text1.text=t
2樓:匿名使用者
dim ela as long
'設定timer1.interval=1000'--------------------------------private sub command1_click()timer1.enabled = not timer1.
enabled
if timer1.enabled thenela = 0
else
print ela
'顯示持續的秒數
end if
end sub
private sub timer1_timer()ela = ela + 1
end sub
3樓:匿名使用者
timer.enble = true
求vb的時間控制元件的問題
新增一個標籤框,一個計時器,然後新增如下 執行試試private sub form load label1.caption 示例程式 label1.backcolor vbblacklabel1.forecolor vbgreenlabel1.autosize truelabel1.move 0,f...
一個vb控制元件的問題,關於VB模組的問題
在窗體上新增兩個命令按鈕,將第二個命令按鈕command2的index屬性設定為0,下面的 實現點選command1按鈕,將新增一個按鈕,並自動排列。option explicit 輸出十個命令控制元件。dim i as integer private sub command1 click i i ...
vb的tet控制元件怎麼換行,VB的TEXT控制元件怎麼換行
除設定文字框屬性multiline為true外,如下 private sub form load text1 123 vbnewline 456 end sub 1,先在窗體新增 text1控制元件 2,設定 text1.multiline true3,在text1控制元件顯示中,新增換行資訊,如 ...