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
vb編寫程式計算分段函式,VB編寫程式,計算分段函式
在窗體上放一個命令按鈕,將 複製到窗體裡,程式執行單擊一次命令按鈕可輸入一次n的值 如下 private sub command1 click dim n,y as single n inputbox 請輸入n的值 select case n case is 0 y 2 n 5 case 0 y 0...
用指標編寫程式,用指標編寫一個程式
include include include define max 100 輸入的最大字元數為100 int main printf character total number is d n total printf upper character number is d n count upp...
vb程式,編寫程式,將陣列a(10)中的元素向左迴圈移動,即a 1 a 2 ,a 2 a 3)a 10 a
很容易實現!var n as integer m a 1 for i 1 to 9 n a i a i a i 1 a i 1 n next 下面是我在電子 中進行的測試 dim a 10 as integer sub yu for i 1 to 10 a i i cells i,1 a i nex...