vb問本框中顯示的是當前的時間,而且每一秒文字框中所顯示的時間都會隨時間的變化而改變

時間 2021-07-09 16:26:13

1樓:匿名使用者

放一定時器控制元件

private sub timer1_timer()timer1.enabled = truetimer1.interval = 100text1.text = time()

end sub

2樓:匿名使用者

新增一個定時器timer1

把屬性interval的值設定為1000

新增以下**

private sub timer1_timer()text1.text = now

end sub

3樓:匿名使用者

新增一個timer控制元件,一個text控制元件

private sub form_load()timer1.interval = 1000end sub

private sub timer1_timer()text1.text = time$

end sub

4樓:匿名使用者

用到timer控制元件 .interval設定為1000private sub form_load()timer1.interval = 1000end sub

private sub timer1_timer()label1.caption = now

end sub

5樓:

'''''''''''timer控制元件

private sub form_load()timer1.interval = 10

end sub

'''''''''text控制元件

private sub timer1_timer()text1.text = time

end sub

現在想用vb,當前時間變化在文字框會顯示後臺設定的數字。

6樓:匿名使用者

private sub form_load()timer1.interval = 1000timer1.enabled = trueend sub

private sub timer1_timer()if time = #10:24:00 am# thenme.caption = "1"

elseif time = #10:25:00 am# thenme.caption = "2"

end if

end sub

工具是用來方便自己的,好用就行,沒必要追求新舊。剪刀有幾千年歷史,比剪刀厲害的切割機很多。為什麼我們還用剪刀呢。因為適合自己

7樓:華山_掌門人

vb過時了,不要用了

怎樣用vb做個編寫一個程式,在文字框中顯示當前系統時間,並隨時間進行變化

8樓:匿名使用者

你新增一個timer控制元件

interval屬性=100

新增事件

private sub timer1_timer()text1.text = format(now, "hh:mm:ss")

end sub

9樓:匿名使用者

private sub form_load()timer1.enabled = trueend sub

private sub timer1_timer()text1.text = now

end sub

建立兩個控制元件timer1和text1。

我也初學。

vb程式單擊日期,可使文字框中顯示當前日期,單擊時間,可顯示當前時間,並使前面的標籤做相應修改,寫出操作

10樓:杜哥是個小天才

具體**:

private sub command1_click()text1.text = date

label1.caption = "當前日期為:"

end sub

private sub command2_click()text1.text = time

label1.caption = "當前時間為:"

end sub

拓展資料visual basic是一種由 microsoft 公司開發的結構化的、模組化的、物件導向的、包含協助開發環境的事件驅動為機制的視覺化程式設計語言。

從任何標準來說,vb都是世界上使用人數最多的語言——不管是盛讚vb的開發者還是抱怨vb的開發者的數量。它源自於basic程式語言。

vb擁有圖形使用者介面(gui)和快速應用程式開發(rad)系統,可以輕易的使用dao、rdo、ado連線資料庫,或者輕鬆的建立activex控制元件。程式設計師可以輕鬆的使用vb提供的元件快速建立一個應用程式。

主要優點:

1,簡單易學。

2,開發速度快。

3,可讀性很好。

11樓:蝴蝶飛飛

private sub command1_click()text1.text = date

label1.caption = "當前日期為:"

end sub

private sub command2_click()text1.text = time

label1.caption = "當前時間為:"

end sub

vb中sendkeys顯示的問題

說明,傳送key的時候注意把焦點給要傳送的地方dim pos as integer dim str1 as string dim str2 as string dim str3 as string dim len1 as long private sub form load str1 好雨知時節。l...

VB將文字框中的漢字按拼音排序

首先將漢字轉為ascii碼陣列,然後對ascii碼陣列排序。再將ascii碼陣列轉換為字元,大功告成了。以下 經測試完全正確。dim lasc j as long private sub command1 click dim i as long,j as long,k as long dim r a...

怎樣在vb6 0中顯示日期和時間,儘量說的詳細點,剛剛接觸這個,對這個不是太瞭解,望高手指點

舉個例子,自行優化吧 畫一個lable控制元件,一個timer控制元件,然後把下面 拷過去private sub form load label1.fontsize 20 call timer1 timer timer1.interval 1000end sub private sub timer1...