![]() |
|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
![]() ![]() |
|
主題工具 | 顯示模式 |
![]() |
#1 |
註冊會員
|
![]() -------------------- 閱讀本主題的最佳解答 -------------------- 各位先進們好,請教在VB6.0裡,我執行我的程式,我將此程式縮小到工作列,我希望5分鐘後他能自動再跳出來桌面上,Timer我會設定,但跳出來這個就不會了,謝謝。 |
![]() |
送花文章: 25,
![]() |
![]() |
#3 (permalink) |
註冊會員
|
![]() 感謝大大,問題解決了,不知這種小問題是要靠經驗累積而成的還是有書
本有介紹?如果有可否介紹一下,謝謝。 另外不知道要如何突破五分鐘才偵測一次,因為我試了最多一分五秒=65535 有找到相關解決方式,但我看不懂,可否請大大再次指教,謝謝。 Private Sub Timer_Timer Dim NowSecond As Long NowSecond = (Date - StartDate) * 86400 + Timer If NowSecond - StartSecond >= 10800 Then MsgBox "三小時到" StartDate = Date StartSecond = Timer End If End Sub |
![]() |
送花文章: 25,
![]() |
![]() |
#5 (permalink) | |
註冊會員
|
![]() 引用:
二分鐘後連動都沒動,不知問題出在那,程式碼如下: Private Sub Timer1_Timer() Dim NowSecond As Long NowSecond = (Date - StartDate) * 86400 + Timer If NowSecond - StartSecond >= 120 Then End If StartDate = Date StartSecond = Timer Call Command1_Click Me.WindowState = 0 End Sub 謝謝。 |
|
![]() |
送花文章: 25,
![]() |
![]() |
#6 (permalink) | |
管理版主
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() 引用:
當然就什麼都不會做 你可以放個 msgbox "兩分鐘到了" 看看有沒有反應 還有 Timer1.Interval屬性 要給他一個小於 1000的值(500應該就可以了) 此帖於 2009-07-09 01:37 PM 被 mini 編輯. |
|
![]() |
送花文章: 2006,
![]() |
![]() |
#7 (permalink) |
註冊會員
|
![]() 我改成這樣如下:
Private Sub Timer1_Timer() Dim NowSecond As Long NowSecond = (Date - StartDate) * 86400 + Timer If NowSecond - StartSecond >= 120 Then Call Command1_Click Me.WindowState = 0 End If StartDate = Date StartSecond = Timer End Sub 但仍然沒反應=.= |
![]() |
送花文章: 25,
![]() |
![]() |
#8 (permalink) | |
管理版主
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() 引用:
改成 語法:
Dim StartDate As Date Dim StartSecond As Long Private Sub Form_Load() StartDate = Date StartSecond = Timer Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() Dim NowSecond As Long NowSecond = (Date - StartDate) * 86400 + Timer If NowSecond - StartSecond >= 120 Then ' MsgBox "2分鐘了" Me.WindowState = 0 StartDate = Date StartSecond = Timer End If End Sub |
|
![]() |
送花文章: 2006,
![]() |
向 mini 送花的會員:
|
![]() |
#9 (permalink) | |
註冊會員
|
![]() 引用:
是500呢? |
|
![]() |
送花文章: 25,
![]() |
![]() ![]() |
|
|
![]() |
||||
主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
電腦中毒後--工作列音量控制程式被刪掉-找不到 | lisansu3 | 一般電腦疑難討論區 | 3 | 2006-04-30 11:39 AM |
如何解決系統右邊程式佔用過多的工作列空間 | psac | 作業系統操作技術文件 | 0 | 2004-09-15 01:39 AM |
我的Win98se一 直跳出程式發生錯誤即將關閉 | ufoon | 一般電腦疑難討論區 | 2 | 2003-09-25 10:27 PM |
工作列上沒有圖示??沒有灌控制音量程式?? | jane girl | 軟體應用問題討論區 | 20 | 2003-05-27 12:26 PM |
win2k開機時,如何把工作列一些常駐程式取消?? | 馬英九 | 軟體應用問題討論區 | 0 | 2003-04-23 09:33 PM |