標題: CommandButton click 影響另一個CommandButton [打印本頁]

---

作者: Deovnigl    時間: 2013-12-5 02:43     標題: CommandButton click 影響另一個CommandButton

假設我的CommandButton1_click下已觸發事件，
請問我要如何利用CommandButton2_click來改變CommandButton1的click事件

麻煩各位了

---

作者: GBKEE    時間: 2013-12-5 15:13

回復 1# Deovnigl
要改變什麼沒說清楚!!!

---

作者: Deovnigl    時間: 2013-12-5 16:07

喔喔    抱歉抱歉
我貼我的原始碼看看
Private Sub CommandButton1_Click()
  Call sndPlaySound("C:\Users\Desktop\wav\bee.wav", SND_ASYNC)
End Sub
這邊是CommandButton1的第一個click事件
我想問的是我可以利用click CommandButton2來改變CommandButton1的click事件嗎?

即click button2 後  改變button1的播出音檔來源


不好意思沒有描述清楚  <(_ _)>

---

作者: c_c_lai    時間: 2013-12-5 20:47

回復 3# Deovnigl
可用旗標來判斷：

1. Dim flag As Boolean
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.   Call sndPlaySound("C:\Users\Desktop\wav\" & IIf( flag = False, "bee.wav", "dog.wav"), SND_ASYNC)
   
5. End Sub
   
6. 
   
7. Private Sub CommandButton2_Click()
   
8.     flag = Not flag
   
9. End Sub

複製代碼

---

作者: c_c_lai    時間: 2013-12-5 20:55

回復 3# Deovnigl
附上測試範例：

1. Dim flag As Boolean
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.     MsgBox "Hi!  Right now it's " & IIf(flag = False, "False", "True")
   
5. End Sub
   
6. 
   
7. Private Sub CommandButton2_Click()
   
8.     flag = Not flag
   
9. End Sub

複製代碼

---

作者: Deovnigl    時間: 2013-12-6 02:08

回復 5# c_c_lai

謝謝您~~~
還貼心的用例子
真的很感謝你!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)