c_c_lai

¦^´_ 3# Deovnigl
¥i¥ÎºX¼Ð¨Ó§PÂ_¡G

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

½Æ»s¥N½X

c_c_lai

¦^´_ 3# Deovnigl
ªþ¤W´ú¸Õ½d¨Ò¡G

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

½Æ»s¥N½X