1樓：薔高翰
要是說到指定日期打不開 你可以使用day(date)來獲得指定日期，用month(date)來獲得月份 用 year(date)來獲得年份
比如你想在它2023年6月19日打不開**可以這樣寫
option explicit
private sub form_load()
if year(date) = "2011" and month(date) = "6" and day(date) = 19 then
msgbox "指定日期不能開啟程式，程式將關閉！"
endend if
end sub
這**是在2023年6月19號那天打不開要是想在19號之後都打不開**換成這樣
option explicit
private sub form_load()
if year(date) >= 2011 and month(date) >= 6 and day(date) >= 19 then
msgbox "軟體使用期限已到，程式將關閉！"
endend if
end sub
當程式執行指定次數可以使用寫登錄檔也可以使用寫檔案的辦法
登錄檔很麻煩，下面我把寫檔案的**給你
2樓：匿名使用者
你就寫指定日期小於當前時間時,就自動退出就行了吧.
vb中怎樣實現在指定時間執行指定程式
3樓：匿名使用者
timer只能是相對時間，等多長時間做什麼事情。
想按日期的話用api來做吧
其實可以用計劃任務，比你用vb做效果好。
真用vb的話就設定一個timer，觸發函式內檢測日期時間，到點就呼叫你需要執行的程式就可以了。
4樓：網海1書生
private sub form_load()timer1.interval = 60000timer1.enabled = trueend sub
private sub timer1_timer()if hour(now) = 18 and minute(now) = 30 then
shell "notepad.exe", vbnormalfocusend if
end sub
以上**是在每天的18:30執行「記事本」
5樓：
將timer控制元件時差設為1000，
用if語句判定你設定的時間＝now
注意，你設定的時間要精確到秒
怎樣用vb做個編寫一個程式，在文字框中顯示當前系統時間，並隨時間進行變化
6樓：匿名使用者
你新增一個timer控制元件
interval屬性=100
新增事件
private sub timer1_timer()text1.text = format(now, "hh:mm:ss")
end sub
7樓：匿名使用者
private sub form_load()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = now
end sub
建立兩個控制元件timer1和text1。
我也初學。
用VB設計程式中遇到的問題，用VB設計程式中遇到的一個問題
哦，這樣的話應該先畫一個按鈕。預設命名command1。這裡舉例x y x y 然後 sub command1 click dim a as long 宣告a變數 a x y x y 記住不要加 if a 某值 then msgbox 等於這個值 else msgbox 不等於這個值 end if ...
求大神幫忙，用VB設計程式，有兩個題目
dim a as integer,b as integer,t as integer,s as integer private sub command1 click if option1.value true then msgbox a b str a b else if option2.value...
vb設計檢測密碼程式，vb設計一個檢測密碼程式
你在自己寫的方法裡 加個static 關鍵字。這樣就可以直接通過 類名來呼叫了。也就是像呼叫系統函式那樣，不用new直接通過類名就可以呼叫了。完整 如下,初始化都已經做好啦,新增控制元件試試吧 dim ncount as integerprivate sub form load 初始化控制元件資訊 ...