1樓：匿名使用者
看你的表，執行的很好：
你的程式寫的很好，執行起來沒有任何問題，只是所有vb程式要執行都要有個form_load
我補了乙個簡單的，就執行起來了。 並不唯一，僅供參考private sub form_load()timer1.interval = 1000timer1.
enabled = trueend sub
2樓：匿名使用者
我試了一下你這個程式好像沒問題，是不是你定時器沒設定時間啊，你設個50試試
3樓：匿名使用者
你的time1 控制項 的interval 屬性是否設定是0？ 如果是0肯定執行不起來。
你看要多久執行一次，比如1秒觸發一次，設定為1000即可。
如果可以，麻煩給分。。
4樓：
將timer的interval設定成1000就可以執行了。
5樓：匿名使用者
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()dim t as string, w as integerdim p1 as integer, p2 as integerlabel1 = year(date)
label3 = month(date)
label5 = day(date)
t = format(time, "ttttt")p1 = 1
p2 = instr(t, ":")
label7 = mid(t, p1, p2 - 1)p1 = p2 + 1
p2 = instr(p1, t, ":")label10 = val(mid(t, p1, p2 - p1))p1 = p2 + 1
label11 = val(mid(t, p1))w = weekday(date, vbmonday)label6 = format(weekday(date, 0), "dddd")
if w = 7 or w = 6 thenlabel6.forecolor = vbredlabel5.forecolor = vbredelse
label6.forecolor = vbblacklabel5.forecolor = vbblackend if
end sub
6樓：匿名使用者
instr(string1, string2[,start, compare])
這一句應該是寫錯了：
p2 = instr(p1, t, ":")
怎樣用vb語言編寫日曆提示程式
vb程式單擊日期,可使文字框中顯示當前日期,單擊時間,可顯示當前時間,並使前面的標籤做相應修改,寫出操作
7樓：杜哥是個小天才
具體**：
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，可讀性很好。
8樓：蝴蝶飛飛
private sub command1_click()text1.text = date
label1.caption = "當前日期為："
end sub
private sub command2_click()text1.text = time
label1.caption = "當前時間為："
end sub
vb編寫乙個簡單的日曆程式
9樓：匿名使用者
frxd4edf45ed4ed4wesd4e
vb6.0中有幾個日曆控制項
10樓：vb中手
microsoft windows common controls 6.0 元件中的calendar控制項 就是你 這個控制項
是我剛才弄錯了，是microsoft 日曆控制項 11.0
11樓：匿名使用者
在左邊工具欄單擊右鍵-部件-microsoft calendar control 8.0勾選-應用-確定。
左邊工具欄就多了乙個工具，就可以用了哦~~
vb有什麼可以選擇日期的方法
12樓：理髮工具
monthview控制項或dtpicker控制項(全稱datetimepicker)。
他們的使用說明可以在msdn裡面找到。
13樓：匿名使用者
dtpicker控制項~
部件-新增 windows common controls 2.6
14樓：匿名使用者
datetimepicker控制項使您可以提供格式化的日期字段，使得進行日期選擇很容易。另外，使用者還可以從類似於monthview控制項的下拉式日曆介面中選擇日期。
datetimepicker控制項，有兩種操作模式：
下拉式日曆模式（預設）—允許使用者顯示一種能夠用來選擇日期的下拉式日曆。
時間格式模式—允許使用者在日期顯示中選擇乙個字段（例如：月、日、年等等），按下控制項右邊的上下箭頭來設定它的值。
可以自定義控制項的下拉式日曆的外觀。使用各種顏色屬性，例如calendarbackcolor、calendarforecolor、calendartitlebackcolor、calendartitleforecolor和calendartrailingforecolor，允許建立屬於您自己的顏色方案。
datetimepicker控制項是activex控制項組的一部分，包含在 mscomct2.ocx 檔案中。
要在應用程式中使用datetimepicker控制項，須將 mscomct2.ocx 檔案加入到工程之中。
新增方式：工程->部件->microsoft windows common controls-2 6.0。
vb做60秒內迴圈倒計時的程式，VB做乙個60秒內迴圈倒計時的程式
在窗體中畫乙個文字框，text屬性為60，再畫乙個計時器，interval屬性設定為1000 單位為毫秒，1000毫秒等於1秒 enabled屬性為true.按後編寫如下計時器事件 private sub timer1 timer if text1.text 0 thentext1.text 60 ...
電子錢包有什麼功能，簡述電子錢包的功能，購物流程和優點？
1 統將在電子 錢包伺服器為其開立乙個屬於個人的電子錢包檔案，消費者可在此版檔案中增加 修改 刪除個權人資料。2 網上付款 消費者在網上選擇商品後，登入到電子錢包，選擇入網銀行卡，向 金融聯 支付閘道器發出付款指令來進行支付。3 交易記錄查詢 消費者可對通過 金融聯 電子錢包完成支付的所有歷史交易記...
有多少種電子元件？功能，各種電子元件的名稱及作用
1.電阻 功能 限流 分壓 用電負載 特性 電阻會受外界環境滴影響阻值發生變化。2.電容 功能 定時 訊號濾波 訊號耦合 啟動器 能量轉換 特性 隔直流通交流 通高頻阻低頻 兩端電壓不能突變 兩端電流相位超前電壓相位 3.電感 功能 訊號濾波 訊號耦合 能量轉換 特性 通直流阻交流 通低頻阻高頻 流...