返回列表 上一主題 發帖

關於MsgBox視窗~為什麼會跳窗2次?

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-27 10:49 | 只看該作者

關於MsgBox視窗~為什麼會跳窗2次?

Private Sub CheckBox51_Click()
    MsgBox ("缺貨中")
    CheckBox51.Value = False
End Sub
收藏 分享

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
2#
發表於 2012-8-27 10:57 | 只看該作者
回復 1# av8d


    剛測試了一下~這樣就不會跳窗2次了
  1. Private Sub CheckBox51_Click()
  2. If CheckBox51.Value = True Then
  3.     MsgBox ("缺貨中")
  4.     CheckBox51.Value = False
  5. End If
  6. End Sub
複製代碼

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
3#
發表於 2012-8-28 14:03 | 只看該作者
CheckBox51.Value = False
運行時, 會發觸發一次 CheckBox51_Click
這樣會比較安全
  1. Private Sub CheckBox51_Click()
  2. If CheckBox51.Value = True Then
  3.     MsgBox ("缺貨中")
  4.     application.enableevents = false
  5.     CheckBox51.Value = False
  6.     application.enableevents = true
  7. End If
  8. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題