CommandButton click 影響另一個CommandButton - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » CommandButton click 影響另一個CommandButton

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

CommandButton click 影響另一個CommandButton

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2013-12-5 20:47 | 顯示全部帖子

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

Dim flag As Boolean
Private Sub CommandButton1_Click()
Call sndPlaySound("C:\Users\Desktop\wav\" & IIf( flag = False, "bee.wav", "dog.wav"), SND_ASYNC)
End Sub
Private Sub CommandButton2_Click()
flag = Not flag
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2013-12-5 20:55 | 顯示全部帖子

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

Dim flag As Boolean
Private Sub CommandButton1_Click()
MsgBox "Hi! Right now it's " & IIf(flag = False, "False", "True")
End Sub
Private Sub CommandButton2_Click()
flag = Not flag
End Sub

複製代碼

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。

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