-
資料型別問題。
另外,建議您輸入“format(now,.”)"hh:mm:ss") 顯示在標籤中以進行比較。
到時候再看看兩邊的顯示效果是否相同。
-
將其新增到表單載入中。
或在 timer1 屬性中將 enabled 設定為 true
預設情況下,計時器控制項處於非活動狀態。
-
VB不是很熟悉,以前用過,現在試試你的問題。
private sub timer1_timer()if format(now, "hh:mm:ss") >= text1 then
msgbox "是時候了", vbexclamation, "技巧"
end if
= false in 應為 true
另外,text1 是變數嗎? 這似乎是乙個控制項,不是嗎?
-
我頭暈目眩,這是乙個很簡單的道理,時間的比較不能這樣使用,而且VB時間操作是有規律的格式。
-
您不是計時器控制項的間隔屬性,當 interval=0 計時器不工作時未初始化。
-
您好,很高興為您服務,並給您以下答案:1原因:
定時器不支援每 1 分鐘自動執行一次程式,並一直重複上述**。 2.解決方法:
您可以使用 Windows API 函式 settimer 實現計時器,每 1 分鐘自動執行乙個程式,並一直重複上述**。 3.步驟:
1)建立乙個新表單,並在表單中新增乙個按鈕以啟動計時器;(2)在窗體中新增乙個定時器控制項來控制定時器; (3)在按鈕的點選事件中,呼叫純Windows API函式settimer來設定定時器的時間間隔; (4)在定時器控制的定時器事件中,寫出要執行的程式的寬階**; (5)在表單的解除安裝事件中,呼叫windows api函式killtimer停止定時器。 4.個人提示:
使用 Windows API 函式 settimer 實現定時器每 1 分鐘自動執行一次明亮的序列,並一直重複上述**,但需要注意的是,在表單的解除安裝事件中,呼叫 Windows API 函式 killtimer 停止定時器,以免造成系統資源的浪費。
-
您好,非常確定宋星會為您服務,並給您以下答案: 1原因:
不支援計時器,因此不可能每 1 分鐘自動執行乙個程式。 2.解決方法:
您可以使用 Windows API 函式 settimer 來實現 timer 函式。 3.步驟:
1)在表單中新增乙個模組,並在模組中新增以下內容 **在表單中新增乙個按鈕,並在按鈕的點選事件中新增以下**:d imtimeridaslongtimerid=settimer(,0,60000,0)(3)在表單中新增乙個計時器事件,並新增以下**:,timerid'在此處新增要執行的程式timerid=settimer(,0,60000,0)4
個人經驗:使用Windows API函式settimer可以實現定時器功能,可以讓程式定時自動執行乙個程式,可以大大提高程式的效率。
-
您好,很高興為您服務,並為您做以下簡短的回答: 解決方案: 1.使用定時器控制:
在 中,您可以使用定時器控制項每 1 分鐘自動執行乙個程式,並一直重複上述**。 步驟:(1)在專案中新增乙個定時器控制項,可以在工具箱中找到定時器控制項,雙擊新增到專案中; (2)設定定時器的屬性,可以在屬性視窗中設定定時器的屬性,其中interval屬性表示定時器的時間間隔,單位為毫秒,可以設定為60000,表示每1分鐘觸發一次; (3)寫事件的計時器喊出程式,可以寫出定時器的定時器事件中要執行的程式,每當定時器碰到鄭向造時,就會執行這個程式,這樣每1分鐘自動執行乙個程式,並不斷重複上述**。
個人經驗:使用定時器控制每1分鐘自動執行乙個程式,並一直重複上述**非常方便,但要注意定時器間隔單位是毫秒級,所以設定正確的時間間隔以避免出現問題。
-
您好,很高興為您服務,並給您以下答案: 解決方案: 1.在這段時間裡,您可以使用定時器控制每1分鐘自動執行乙個程式,並不斷重複上述**。
2.在工具箱中,找到定時器控制項,拖拽到窗體上,然後在定時器控制項的屬性中,將間隔屬性設定為60000,即每1分鐘觸發一次定時器事件。 3.在定時器控制的情況下,寫出要執行的程式**,然後編譯並猜測銷售執行,可以實現每1分鐘執行乙個程式,並不斷重複上述**。 個人經歷:
使用定時器控制可以很容易地實現每隔一段時間自動執行乙個程式,可以大大提高程式的效率,但要注意定時器控制的間隔屬性的設定,以及在尖峰定時器控制時要執行的程式, 以避免意外情況。
程式介面如上圖所示:乙個標籤(名稱為label1),三個核取方塊(名稱分別為check1、check2和check3,caption屬性分別為red、green和blue),以及乙個命令按鈕(名稱為command1,caption屬性為end),完成程式功能的**如下: >>>More
private sub form_load()set excelapp = createobject(""建立乙個 excel 物件。 >>>More