如何設定VB程式的時間限制

'新增時鐘控制時間1

private function strgetdate() as string

dim xmlhttp as object

set xmlhttp = createobject("")

strgetdate = strconv(, vbunicode)

set xmlhttp = nothing

end function

private sub form_load()

3600000 '設定為每小時檢測一次。

end sub

private sub timer1_timer()

dim nowtime as string, settime as string

nowtime = format(strgetdate, "yyyy-mm-dd hh:mm:ss") '立即獲取線上時間。

settime = "2018-01-1 00:00:00" '設定過期時間。

if nowtime > settime then msgbox ("是時候使用該軟體了！ ")

end sub

是的，您只需要 ping 模組並獲取網頁的原始碼即可。

我可以為你做這個。

了解如何使用計時器元件，該元件是定時的，本質上是非同步多執行緒的。

從你的描述來看，你應該新增乙個功能，在程式開啟後自動實時顯示當前時間。

只需新增乙個標籤控制項和乙個計時器控制項即可。

然後雙擊要新增的計時器控制項，如下所示。

label1 = now

使用定時器控制項。

例如，您希望在 text1 中顯示動態時間。

private sub form_load()= 1000

end sub

private sub timer1_timer()= now

end sub

最簡單的方法是將小部件“Microsoft 日曆控制項”直接新增到日曆中

然後將日曆小部件日曆拖到文字文字框中，並將日曆新增到以下**。

private sub calendar1_click()= &

falseend sub

然後將以下內容新增到文字框文字中。

private sub text1_click()= true

end sub

最後，設定啟動**。

private sub form_load()= false

date date

end sub

我上傳了一張截圖供您參考。

您需要從控制項庫新增 Microsoft 日曆控制項，只需將其放置到位即可。 這很簡單。

要顯示當前日期，只需將日期顯示在適當的位置，例如放置乙個文字框text1，就可以使用它。