1樓：匿名使用者
舉個例子，自行優化吧：
畫一個lable控制元件，一個timer控制元件，然後把下面**拷過去private sub form_load()label1.fontsize = 20
call timer1_timer
timer1.interval = 1000end sub
private sub timer1_timer()dim tmpstr as string
tmpstr = format(now, "yyyy年mm月dd日")
tmpstr = tmpstr & vbcrlf & "星期" & mid("一二三四五六日", datepart("w", now, vbmonday), 1)
tmpstr = tmpstr & vbcrlf & format(now, "hh:mm:ss")
label1.caption = tmpstrend sub
2樓：手機使用者
label1.caption = year(date) & "年" & month(date) & "月" & day(date) & "日"
label2.caption = hour(time) & "時" & minute(time) & "分" & second(time) & "秒"
end sub
怎樣用vb做個編寫一個程式，在文字框中顯示當前系統時間，並隨時間進行變化
3樓：匿名使用者
你新增一個timer控制元件
interval屬性=100
新增事件
private sub timer1_timer()text1.text = format(now, "hh:mm:ss")
end sub
4樓：匿名使用者
private sub form_load()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = now
end sub
建立兩個控制元件timer1和text1。
我也初學。
VB6 0的窗體中，如何顯示不同內容
1全部不知道你註解是什麼用意。不過兩個都說一下，如果你不想新增form。你就建立frame組將所想要切換的所有控制元件全放在相應的每一個frame1陣列控制元件裡。然後，不管你有多少個控制元件。你都不需要對那控制元件單個操控。你只用通過用迴圈來控制frame1陣列的visible屬性來統一管理，或者...
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 自動輸入文...