返回列表下一主題上一主題發帖

[發問] 訊息方塊如何設定預設值

lichang

中學生 Rank: 2

帖子: 127
主題: 56
精華: 0
積分: 176
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2025-1-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-7-26 00:15 | 顯示全部帖子

[發問] 訊息方塊如何設定預設值

各位大大好，小弟最近在練習訊息方塊，限定時間後消失功能
但請問如何設定時間內沒選擇，自動選取類似"中止"而不是關閉方塊功能!!
先謝謝各位大大的解答瞜!!

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