1樓：匿名使用者
在窗體上畫乙個label和乙個計時器，寫下如下**，即可。
private sub form_load()timer1.interval = 2000timer1.enabled = truelabel1.
caption = timeend sub
private sub timer1_timer()label1.caption = timeend sub
2樓：匿名使用者
private sub form_load()timer1.interval = 2000timer1.enabled = trueend sub
private sub timer1_timer()dim week
week = weekday(date) - 1 '星期if week = "1" then week = "一"
if week = "2" then week = "二"
if week = "3" then week = "三"
if week = "4" then week = "四"
if week = "5" then week = "五"
if week = "6" then week = "六"
if week = "7" then week = "日"
label1.caption = year(date) & "年 " & month(date) & "月 " & day(date) & "日 " _
& "星期" & week & " " _& hour(time) & "點 " & minute(time) & "分 " & second(time) & "秒"
end sub
vb中怎樣做出時鐘?
3樓：匿名使用者
vb可使用timer控制項、line控制項和繪圖或載入**等製作指標式時鐘。
timer 控制項，通過引發 timer 事件，timer 控制項可以有規律地隔一段時間執行一次**。
line 控制項，line 控制項是圖形控制項，它顯示水平線、垂直線或者對角線。
執行時不能使用 move 方法移動 line 控制項，但是可以通過改變 x1、x2、y1 和 y2
屬性來移動它或者調整它的大小。
circle 方法，在物件上畫圓、橢圓或弧。
option explicit
private const pi = 3.1415926
dim x(1) as single, y(1) as single
dim oriangle as single, destangle as single, r as single
private sub rotateline(objl as line, bspointx as single, bspointy as single, rotateangle as single)
with objl
x(0) = .x1
y(0) = .y1
x(1) = .x2
y(1) = .y2
end with
dim i as integer
for i = 0 to 1
if x(i) - bspointx <> 0 then
oriangle = atn((y(i) - bspointy) / (x(i) - bspointx))
else
oriangle = iif(y(i) > bspointy, pi / 2, 1.5 * pi)
end if
if x(i) - bspointx < 0 then
if oriangle < 0 then
oriangle = pi - abs(oriangle)
else
oriangle = pi + abs(oriangle)
end if
end if
destangle = oriangle + rotateangle
r = sqr((x(i) - bspointx) ^ 2 + (y(i) - bspointy) ^ 2)
x(i) = bspointx + r * cos(destangle)
y(i) = bspointy + r * sin(destangle)
next i
with objl
.x1 = x(0)
.y1 = y(0)
.x2 = x(1)
.y2 = y(1)
end with
end sub
private sub form_load()
timer1.interval = 1000
dim i as long
for i = 1 to val(mid(time$, 7, 2))
rotateline line3, line3.x1, line3.y1, 1 * pi / 30
next
for i = 1 to val(mid(time$, 4, 2))
rotateline line2, line2.x1, line2.y1, 1 * pi / 30
next
for i = 1 to val(mid(time$, 1, 2)) * 5 '對時針
rotateline line1, line1.x1, line1.y1, 1 * pi / 30
next
for i = 1 to val(mid(time$, 4, 2)) '對時針
rotateline line1, line1.x1, line1.y1, 1 * pi / 360
next
end sub
private sub timer1_timer()
rotateline line3, line3.x1, line3.y1, 1 * pi / 30
rotateline line2, line2.x1, line2.y1, pi / 1800
if mid(time$, 7, 2) = "00" or mid(time$, 7, 2) = "30" then
rotateline line1, line1.x1, line1.y1, 1 * pi / 720
end if
me.caption = time$
end sub
4樓：
'timer1的interval屬性設為1000
'建議form1的width屬性設為2595，height屬性設為2535
dim a as integer, b as integer, rad as double
private sub form_load()
a = me.scalewidth \ 2 '圓心x座標
b = me.scaleheight \ 2 '圓心y座標
rad = atn(1) / 45 '1角度的弧度數
me.drawwidth = 2
end sub
private sub timer1_timer()
dim angle1 as double, angle2 as double, angle3 as double
angle1 = ((hour(now) mod 12) * 30 + minute(now) / 2 - 90) * rad '時針的角度
angle2 = (minute(now) * 6 + second(now) / 10 - 90) * rad '分針的角度
angle3 = (second(now) * 6 - 90) * rad '秒針的角度
cls '清除畫面，以便畫下一秒的狀態
me.circle (a, b), 720 '畫石英鐘輪廓
for i = 1 to 12
me.currentx = a - iif(i < 7, 115, 170) + 600 * cos((i * 30 - 90) * rad) '刻度x座標
me.currenty = b - 90 + 600 * sin((i * 30 - 90) * rad) '刻度y座標
print i '畫刻度
next
me.line (a, b)-(a + 300 * cos(angle1), b + 250 * sin(angle1)), vbblue '畫時針
me.line (a, b)-(a + 400 * cos(angle2), b + 550 * sin(angle2)), vbblue '畫分針
me.line (a, b)-(a + 600 * cos(angle3), b + 600 * sin(angle3)), vbred '畫秒針
end sub
5樓：
請問你是用vb2005嗎?如果用vb2005做這個題非常地簡單.
在窗體是用label1設定乙個label1.text框.然後雙擊label1,進入**編輯器,在這裡輸入label1.text=timestring
label1.text=now()'這是vb6.0的就可以實現乙個會走的時鐘啦.
如果同時還想實現日期功能,就把上面的**改成label1.text=datestring
那個timer控制項的屬性就這樣設定
timer1.enabled=true
timer1.interval=1000
這樣就可以了.
到時你們可能還會做乙個關於倒計時器的程式,這可就沒有像時鐘這樣簡單咯,具體做法我的空間有,你可以看一下吧.
怎麼使用vb來編寫乙個時鐘？
6樓：宇桐非吧外交
數字時鐘還是指標時鐘？數字的就簡單得很~
7樓：無名者
最簡單的時鐘：
在窗體處新增乙個picturebox,乙個計時器private sub timer1_timer()picture1.cls
picture1.print "" & timeend sub
怎麼用vb做時鐘？
8樓：匿名使用者
用乙個timer 設定interval 為1000，然後在timer事件中寫**，
對某乙個label控制項的caption屬性進行賦值，
format(time,"hh:mm:ss") 至於毫秒，真有必要嗎？..
9樓：
放置乙個標籤label1，程式如下：
private sub form_load()label1.caption = str(time)end sub
不過我不會精確到毫秒，不好意思
怎樣用最簡便的方法解酒，怎樣用最簡單的方法醒酒？
1 酒後不可以喝醋 喝茶解酒，這些都是誤區，醋和茶都不能解酒。2 酒醉後最好不能喝濃茶，但可以喝點淡茶。茶葉中的茶多酚有一定的保肝作用，但濃茶中的茶鹼可使血管收縮，血壓上公升，反而會加劇頭疼。如果有人身不由己喝得太多，可以事後吃一些水果，或者喝一些果汁，因為水果和果汁中的酸性成分可以中和酒精。很多人...
怎樣用烤箱做的簡單甜品，怎樣用自家的烤箱做點心？
1 原料 蛋塔皮兒 低筋麵粉一小盆，雞蛋1個，泡打粉一點，奶油一堆，糖一點。蛋塔心兒 雞蛋三四個，牛奶一罐，糖一點，鹽一點，香草粉一點。模子。烤箱.模子等平時不怎麼聽說的原料，在麥德龍超市就有賣的。2 把忌廉 雞蛋使勁打，加糖。加麵粉，把麵粉事先搓一下 篩一下或者用擀麵杖趕一下更好 加打泡粉，和面。...
怎樣用簡單的排版，怎樣用word簡單的排版
word排版並不難，掌握下面幾點原則，你的word文件就可以變得非常美觀了。01word文件常用於文字排版，適合編輯文件並列印。為了演示如何進行word文件的排版，我們用乙份已經打好的稿件來演示。我們看到這個文件的編輯並不是太好看，字型不好看，並且顏色太多 太雜，排版也不理想。02所以我們要從各個方...
怎樣用最簡單的方法做魚香茄子
5655障募 就是按照食譜上說的做 就是最簡單的方法啊 或者直接買乙份 我覺得魚香茄子已經在川菜裡算夠簡單的了 手機使用者 用料 圓茄子1個，青椒2個，西紅柿1個，蒜瓣2個，乾紅辣椒3個，鹽 糖 醋 味精 豆瓣醬均少許。其實這些調料都是家庭常備，隨手到可以做。步驟 1 先將茄子去皮，這樣吃起來更加柔...
怎樣用c 做簡單的動畫
我是這麼認為，你要在linux下面做這個東西，而且如果你所要描述的分子都在二維平面上運動。我覺得用gtk完全可以，而且開發應該比較簡單。你可以使用gtkdrawingarea這個類似乙個畫布你可以在裡面畫一些圓或者其他的。實時的重新整理一下就應該有效果了。儲存動態 我還沒想到好辦法，不過把每一幀儲存...