VisualBasic工具列不要誤動作的解決方法(20點)

Question

我目前在設計VB的按鍵式工具列時，目前遇到一個問題，就是當VB主程式在跑的時候，有時候會不小心按到工具列，而會有＂溢位＂的問題產生，目前我想到一個方法就是利用MsgBox函數，當誤觸工具列時會出現警告視窗...或者讓工具列在主程式動作時，能變成按不下去的狀態...請問要怎麼設計呢?謝謝~^^
附註:1.我的主程式是播放一個軟體動畫 2.兩種方式都提供的優先選擇

W.J.S.大大 ：關於你說的方法我試不出來耶!我舉例一下好了，Private Sub exePlay_Click()下面是我的軟體播放程式，Private Sub Toolbar1_ButtonClick下面是工具列程式，當exePlay執行時，設Toolbar.Enabled = False，當exePlay停止時，設Toolbar.Enabled = true 是這樣嗎?

如果是這樣的話，到底應該怎麼寫呢？好難喔＝　＝

下面ㄉ兩種方法我都試過了~不知道是我加錯地方還是其他問題...會出現Toolbar變數未定義，Toolbar明明就不是變數阿...我直接附上我ㄉ程式好了>

Answer 1

'在主程式館執行前將你工具列的Enabled設成False,等執行完後再改成True就行了'以功能表為例Private Sub Command1_Click()For i = 0 To Controls.Count - 1    If TypeOf Controls(i) Is Menu Then Controls(i).Enabled = FalseNext'你的主程式''''For i = 0 To Controls.Count - 1    If TypeOf Controls(i) Is Menu Then Controls(i).Enabled = TrueNextEnd Sub

2006-03-16 00:26:10 補充：
好吧就醬子比例:假如你要跟你愛人做愛做的事又怕他看到你的紋身,做之前是不是先把電燈關掉(Enabled=False)?做完把衣服穿起來後在把電燈打開(Enabled=True)?同理可證:Private Sub exePlay_Click()Toolbar.Enabled = False(電燈關掉)'你的程式碼''''你的程式碼結束Toolbar.Enabled = True(電燈開啟)End Sub了嗎?

Answer 2

那試試下面這個方法吧，
其實跟 W.J.S 的方法差不多看看合不合用....

'IsPaying=0 不是撥放中
'IsPaying=1 正在撥放中
Dim IsPaying As Intage

Private Sub exePlay_Click()
　IsPaying=1
　{您的軟體播放程式}
　If 撥放完畢 Then
　　IsPaying=0
　End If
End Sub

Private Sub Toolbar1_ButtonClick
　If IsPaying=1 Then Exit Sub
End Sub

2006-03-16 09:51:57 補充：
W.J.S 好幽默... ^^b