1樓:匿名使用者
你新增一個timer控制元件
interval屬性=100
新增事件
private sub timer1_timer()text1.text = format(now, "hh:mm:ss")
end sub
2樓:匿名使用者
private sub form_load()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = now
end sub
建立兩個控制元件timer1和text1。
我也初學。
vb程式單擊日期,可使文字框中顯示當前日期,單擊時間,可顯示當前時間,並使前面的標籤做相應修改,寫出操作
3樓:杜哥是個小天才
具體**:
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,可讀性很好。
4樓:蝴蝶飛飛
private sub command1_click()text1.text = date
label1.caption = "當前日期為:"
end sub
private sub command2_click()text1.text = time
label1.caption = "當前時間為:"
end sub
如何用vb**在文字框中顯示當前時間是上午或下午
5樓:匿名使用者
private sub command1_click()dim s as date
dim bs as string
s = now
select case hour(s)
case is < 8
bs = "凌晨"
case is < 12
bs = "上午"
case is < 14
bs = "中午"
case is < 17
bs = "下午"
case else
bs = "晚上"
end select
label1.caption = format(s, "yyyy年mm月dd日 hh:mm:
ss " & bs & " 星期" & choose(weekday(s), "日", "一", "二", "三", "四", "五", "六"))
end sub
6樓:寧秀梅寸巳
舉個例子:按下數字1將文字框內容變為“你按下了1”:
private
subtextbox1_keypress(keyasciiasinteger)
ifkeyascii
=asc("1")
textbox1.text="你按下了1"
else
textbox1.text="你按下的不是1"
endif
endsub
7樓:木頭
format(time, "ampm")
現在想用vb,當前時間變化在文字框會顯示後臺設定的數字。
8樓:匿名使用者
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
工具是用來方便自己的,好用就行,沒必要追求新舊。剪刀有幾千年歷史,比剪刀厲害的切割機很多。為什麼我們還用剪刀呢。因為適合自己
9樓:華山_掌門人
vb過時了,不要用了
vb程式設計題1.在窗體上建立一個文字框,當單擊文字框時,文字框中輪流顯示當前日期及當前時間。用vb怎麼程式設計?
10樓:匿名使用者
在窗體上新增一個文字框、一個時鐘空間,**如下:
private sub form_load()timer1.enabled = falsetimer1.interval = 1000text1.text = ""
end sub
private sub text1_click()timer1.enabled = trueend sub
private sub timer1_timer()static n as integer
n = n + 1
if n mod 2 = 1 then text1.text = date else text1.text = time
end sub
怎樣用vb獲取本機時間並且與一個文字框裡的時間進行比較。(24小時格式的)
11樓:網海1書生
if now > cdate(text1.text) thenmsgbox "文字框裡的時間比當前時間早!"
else
msgbox "文字框裡的時間比當前時間晚!"
end if
要注意,文字框裡的時間必須是標準格式的,比如: 2014-12-18 16:09:23
如果文字框裡只有時間沒有日期,比如 17:23:45,則**修改為:
if time > cdate(text1.text) thenmsgbox "文字框裡的時間比當前時間早!"
else
msgbox "文字框裡的時間比當前時間晚!"
end if
C語言怎樣用遞迴方法編寫程式求s
include int n,t 1,s 0 void sum fac int k int main 提供思路,如果使用遞迴,主要針對階乘,因此,在主函式裡提供十個數相加,用版迴圈,然後重新定 權一個函式,在函式裡提供遞迴的演算法,即不斷呼叫直至結束得到結果,然後相加就行。如果不是使用遞迴,可使用上一...
怎樣用c語言編寫這個程式,怎樣用C語言編寫這個程式
include stdio.h include conio.h include dos.h typedef struct xy value xy value num 26 判斷權位,確定相連的數是否符合 jdg flag case 2 case 1 return 1 flag 初始化權位 增加1 a...
可以用vb製作介面而用c語言編寫程式嗎
當然,c可以 抄做你不能做一個 襲vb介面的系統,除 bai非你將使用的api函式du,zhi你可以用c語言寫的dll在vb。vb是不是dao也是一種高層次的語言寫出來的嗎?vc只是一個用c語言編寫,它可以做一些事情,能夠實現在vc的環境。太多自己的清晰圖形介面的vc,vb介面的發展不是太複雜,即使...