返回列表 上一主題 發帖

[發問] 用 FindWindow 代替 CreateObject("Wscript.shell").Popup 的自動關閉??

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2013-8-21 10:04 | 顯示全部帖子
回復 1# t8899
不如改用這個API
  1. Private Declare Function MsgBoxTest Lib "user32" Alias "MessageBoxTimeoutA" ( _
  2.     ByVal hwnd As Long, _
  3.     ByVal lpText As String, _
  4.     ByVal lpCaption As String, _
  5.     ByVal wType As VbMsgBoxStyle, _
  6.     ByVal wlange As Long, _
  7.     ByVal dwTimeout As Long) As Long

  9. Sub Test()
  10.   MsgBoxTest 0, "2.5秒後關閉", "標題", vbYesNo + vbInformation, 0, 2500
  11. End Sub
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-8-21 11:35 | 顯示全部帖子
回復 3# t8899
看不懂你再問什麼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2013-8-22 09:42 | 顯示全部帖子
回復 5# t8899
第一個參數，是owner視窗句柄，沒用就設0
第五個參數，應是語言的ID，沒使用過...都是設為零
最後一個2500為關閉時間，單位毫秒

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題