1樓：匿名使用者
private sub timer1_timer()text1 = now'顯示日期和時間
text2 = date$'顯示日期
text3 = time$'顯示時間
end sub
2樓：
在窗體中加入timer控制項命名timer1,interval屬性設為1000(1秒),textbox控制項命名t
加入如下**
方案一:
private sub timer1_timer()t.text = format(now, "yyyy年mm月dd日 ddd hh:mm:ss")
end sub
顯示格式為:2007年06月27日 wed 03:47:23方案二:
private sub timer1_timer()t.text = format(now, "yyyy年mm月dd日 ") & weekdayname(weekday(now)) & format(now, " hh:mm:
ss")
end sub
顯示格式為:2007年06月27日 星期三 03:47:15這會在程式啟動1秒後顯示時間
如果要啟動後立刻顯示,需要在加入**
private sub form_load()timer1_timer
end sub
3樓：匿名使用者
caption=date
vb怎麼在窗體上做時間顯示？
4樓：匿名使用者
vb可使用timer控制項實現在窗體的標籤控制項中顯示系統時間等資訊。
timer 控制項，通過引發 timer 事件，timer 控制項可以有規律地隔一段時間執行一次**。
實現**：
5樓：匿名使用者
實時的時間顯示需要乙個計時器timer,，圖顯示的應該是狀態列，在timer事件裡改寫狀態列的內容。用now,time等等函式獲取的就是本機的時間。
記錄要有記錄首先要儲存這個時間，即表要增加專門的字段來儲存這個時間。
6樓：匿名使用者
這個是狀態列控制項、 關於記錄時間 那就要在資料庫增加 交易時間字段 設定為預設：now
7樓：匿名使用者
-----------
text1=time '顯示時間 此為vb自帶'紀錄 顯示時間
text2= "賣出紅酒時間" & time
8樓：白龍無馬
.........
timer的interval設定為100
**label1.caption="當前時間"+time按鈕的**
list1.additem "在"+time+"我賣出了一瓶紅酒"
9樓：
不用計時器 ，給乙個變數aa=time$就行 ，如果有時間比較，才用時間控制項
怎麼用vb在窗體底部顯示系統時間啊
10樓：匿名使用者
拉乙個label1 下來，然後
label1.caption = now
ok，給分
11樓：匿名使用者
得到系統時間,顯示到label中!
vb 這是乙個frm窗體上面的 怎麼在窗體上顯示當前時間，怎麼顯示下面的這個窗體執行了多少時間！謝謝
12樓：聽不清啊
dim t
private sub form_load()t = now
label1.caption = "用時0時0分0秒"
timer1.interval = 1000end sub
private sub timer1_timer()t1 = now - t
label1.caption = "用時" & hour(t1) & "時" & minute(t1) & "分" & second(t1) & "秒"
end sub
VB在窗體列印，VB怎麼列印窗體哦
private sub command1 click dim abc as integer,b as stringb qqq c 0 for abc 1 to 29 step 1if textheight b currenty scaleheight then currenty 0 currentx...
如何在vb中引用，如何在VB中引用ADO
在vb6.0中引用ado 通過選擇 工程 選單中的 引用.來為 ado 物件庫新增乙個引用，然後在 引用.對話方塊中選擇 microsoft activex data objects 2.0 library 點上圖確定。工程就引用了ado。執行 示例 private sub command1 cli...
如何在vb中新增日期控制項，如何在VB中新增日期控制項
datetimepicker控制項使您可以提供格式化的日期字段，使得進行日期選擇很容易。另外，使用者還可以從類似於monthview控制項的下拉式日曆介面中選擇日期。datetimepicker控制項，有兩種操作模式 下拉式日曆模式 預設 允許使用者顯示一種能夠用來選擇日期的下拉式日曆。時間格式模式...
vb獲取某視窗內相對座標，vb 獲取滑鼠在窗體內的相對座標
其實得到窗體的控制代碼就什麼都得到了 vb 獲取滑鼠在窗體內的相對座標 有個笨方法，試試 注意表單整大點 private sub form mousemove button as integer,shift as integer,x as single,y as single if x 100 or...
vb6中想在窗體的resize縮放事件中實現如果窗體
private sub form resize dim obj as controlfor each obj in me obj.left obj.left 1000next obj end sub 那你在我的剛才給的基礎上，你加入這段 好了dim c as control for each c i...