標題: 關於MsgBox視窗~為什麼會跳窗2次? [打印本頁]

---

作者: av8d    時間: 2012-8-27 10:49     標題: 關於MsgBox視窗~為什麼會跳窗2次?

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

---

作者: av8d    時間: 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

複製代碼

---

作者: kimbal    時間: 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://forum.twbts.com/)