各位大大好，小弟最近在練習訊息方塊，限定時間後消失功能
但請問如何設定時間內沒選擇，自動選取類似"中止"而不是關閉方塊功能!!
先謝謝各位大大的解答瞜!!
Option Explicit
Sub 111()
'Windows Script Host Object Model設定引用項目
Dim myWsh As IWshRuntimeLibrary.WshShell
Set myWsh = CreateObject("Wscript.Shell")
Debug.Print myWsh.PopUp(Text:="WSH測試", _
SecondsToWait:=2, Title:="WSHPopUp", Type:=2)
Set myWsh = Nothing '釋放物件
End Sub |
發表於 2015-7-26 00:15
| 
