1樓:匿名使用者
該**需
你的**有錯,修改如下:
private sub form_load()tmrtime.interval = 1000tmrdate.interval = 1000end sub
private sub tmrtime_timer()txtdisplay.text = timeend sub
private sub cmddate_click()txtdisplay.text = ""
tmrdate.enabled = truetmrtime.enabled = falseend sub
private sub cmdtime_click()txtdisplay.text = ""
tmrtime.enabled = truetmrdate.enabled = falseend sub
private sub tmrdate_timer()txtdisplay.text = dateend sub
2樓:
option explicit
'需要乙個timer
private sub form_load()timer1.interval = 100end sub
private sub timer1_timer()me.cls
me.print now
end sub
vb如何建立像電腦系統一樣的狀態列
如何讓vb6真正地顯示當前的系統時間?
3樓:
now不是變數,是函式,這個函式返回值就是系統當前時間,與工作列右下角的時鐘完全一致。
4樓:匿名使用者
只要直接取time$就可以了。
例如:label1.caption = time$如要動態顯示系統時間,可以使用以下**:
private sub form_load()label1.fontsize = 30
label1.forecolor = vbbluetimer1.interval = 1000label1.caption = time$end sub
private sub timer1_timer()label1.caption = time$end sub
5樓:
新建乙個工程,畫上兩個label控制項和乙個timer控制項,並將timer控制項的interval屬性設定為1。輸入如下**:
option explicit
private declare sub getsystemtime lib "kernel32" (lpsystemtime as systemtime)
private declare sub getlocaltime lib "kernel32" (lpsystemtime as systemtime)
private type systemtime
wyear as integer
wmonth as integer
wdayofweek as integer
wday as integer
whour as integer
wminute as integer
wsecond as integer
wmilliseconds as integer
end type
private sub timer1_timer()
dim s as string
dim s1 as string
dim sys as systemtime
getlocaltime sys
s = cstr(sys.wyear) + "," + cstr(sys.wmonth) + "," + cstr(sys.wday)
label1.caption = s
s1 = cstr(sys.whour) + ":" + cstr(sys.
wminute) + ":" + cstr(sys.wsecond) + ":
" + cstr(sys.wmilliseconds)
label2.caption = s1
end sub
執行程式,看看是不是你想要的效果。
6樓:匿名使用者
難道你用timer控制項不斷重新整理now獲得的與windows的工作列裡不一致?
7樓:匿名使用者
dodoevents
label1.caption=now
loop
vb語言是如何獲得系統時間的
8樓:匿名使用者
vb中獲取系統當前的時間用函式 now() 就可以。另外還有相關的時間 date() time()
now()獲取系統當前日期和時間,如:2015-12-12 22:23:34
time()獲取系統的時間,如:22:23:
34不顯示當前日期date()獲得系統的日期,如:2015-12-12private sub command1_click()msgbox now()
msgbox time()
msgbox date
end sub
9樓:匿名使用者
now:系統日期及時間
date:系統日期
time:系統時間
如text1.text=now 『顯示系統日期及時間text1.text=date 『顯示系統日期text1.text=time 『顯示系統時間
10樓:匿名使用者
用now()獲得現在時間 data()獲得年月日 weekday()獲得星期
11樓:**大師兄
option explicit
private withevents timer1 as timerprivate sub form_load()set timer1 = controls.add("vb.timer", "timer1")
timer1.interval = 1000end sub
private sub timer1_timer()clsprint now
end sub
直接貼**執行就可以看到了
vb中如何獲取系統時間
12樓:濁苛木樣式
private sub command1_click()dim a as date
a=now
text1.text=format(a,"yyyymmdd")end sub
13樓:
text1.text=format (now,"yyyy-mm-dd hh:mm:ss")
14樓:匿名使用者
text1.text=trim(year(now)) & trim(month(now)) & trim(day(now))
vb中如何獲取日期時間
15樓:匿名使用者
text1.text = format(date, "yyyy年mm月dd日") & format(time, "hh時mm分ss秒")
16樓:
time是現時時間date是當天曰期,你剛入門吧這簡單都不會呀
vb顯示時間
17樓:聽不清啊
只要直接取time$就可以了。
例如:label1.caption = time$如要動態顯示系統時間,可以使用以下**:
private sub form_load()label1.fontsize = 30
label1.forecolor = vbbluetimer1.interval = 1000label1.caption = time$end sub
private sub timer1_timer()label1.caption = time$end sub
18樓:沙漠蓮
新增乙個時鐘控制項、乙個標籤,以下是**:
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()label1.caption = year(date) & "年" & month(date) & "月" & day(date) & "日 " & time & " 星期" & weekday(now) - 1
'顯示年月日,系統時間,以及星期 最簡單的方法也可以寫成label1.caption = now
end sub
19樓:旭非
首先新增乙個timer控制項和label控制項,在timer控制項下書寫**:
private sub timer1_timer()label1.caption = now
end sub
就可以了
20樓:至公天下
是即時時間吧,用乙個timer控制項隨時重新整理就可以了
21樓:千里快風
要有乙個time控制項和label控制項
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()label1.caption = year(date) & "年" & month(date) & "月" & day(date) & "日 " & time & " 星期" & weekday(now) - 1
22樓:匿名使用者
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()label1 = time$
end sub
新增乙個timer控制項乙個標籤就可以了~
23樓:匿名使用者
private sub form_load()
text1.text = time$
end sub
vb中設定乙個數字時鐘介面,每改變一秒就更新一次,求程式。
24樓:網海1書生
private sub form_load()me.caption = "數字時鐘"
timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()label1.caption = format(now, "yyyy年m月d日")
label2.caption = format(now, "hh時nn分ss秒")
end sub
25樓:匿名使用者
非常簡單,但你的圖呢?
如何用vb設計乙個簡易的電子時鐘
26樓:小顏
用乙個定時器控制項 timer, 每秒觸發一次 timer一.interval=一000, 在他的定時事件處理過程中 private sub timer一_timer() ……, 取系統時間 now, 生成時間格式字串 format(now, "yyyy年mm月dd日 hh時mm分ss秒"), 用這個字串更新窗體中乙個標籤的內容 label一.caption = ……
用VB怎麼獲取系統時間,vb語言是如何獲得系統時間的
print format now,yyyy mm dd hh mm ss 不知是不是你要的效果,不滿意發資訊給我。瓦哈哈哈哈!這個問題很簡單!以下是 dim isxs,mytime as stringif hour now 12 thenisxs 下午 if hour now 12 thenmyti...
在VB中如何動態建立控制項,vb如何動態建立控制項,並放在指定的容器中
private sub command1 click dim label1 as label set label1 me.controls.add vb.label l1 with label1 caption label1 top 200 width 7000 visible true end w...
急vb6 0如何獲取資料夾大小,如何用VB獲得檔案大小
題目缺少關鍵資訊,無法作答。給你個建議,到qq加個電腦高手群,裡面有人教你!如何用vb獲得檔案大小 filelen pathname 必要的 pathname 引數是用來指定乙個檔名的字串表示式。pathname 可以包含目錄或資料夾 以及驅動器。說明當呼叫 filelen 函式時,如果所指定的檔案...
如何用VB中的Winsock獲取外網IP和連線外網
靠,剛發現我的winsock 控制項被刪除了,不過我記得winsock控制項的屬性裡有 比如你新增乙個text 然後 text1.text winsock.星號你自己試試,我不記得是哪個了 vb中用winsock與外網連線,高手進!socket程式不存在內網外網的問題。你內網能連通,那外網也能連通。...
VB6如何獲取電腦的CPU序號, VB6 有獲取CPU使用率的函式嗎
獲取cpu序列號要使用 彙編指令 比較麻煩 static dword g eax 儲存返回的eax static dword g ebx 儲存返回的ebx static dword g ecx 儲存返回的ecx static dword g edx 儲存返回的edx void executecpui...