关于下面这段程序，为什么老执行第一个条件．思路时，当点击Buttons(7)时，检查声音，若有声音，则停止，若无声音，则开启声音

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
　　　　．．．．．
        Case 7
        If 0 < WindowsMediaPlayer1.settings.volume <= 100 Then
        Toolbar1.Buttons(7).Caption = "声音"
        WindowsMediaPlayer1.settings.volume = 0
        Else
        WindowsMediaPlayer1.settings.volume = 100
        Toolbar1.Buttons(7).Caption = "静音"
        End If
end select
end sub

[[italic] 本帖最后由 cq271359502 于 2007-12-27 14:58 编辑 [/italic]]

????? 0 > WindowsMediaPlayer1.settings.volume <= 100

哦．发贴是写错了0 < WindowsMediaPlayer1.settings.volume <= 100

自己弄了个比较笨的方法，多添加一个按扭，
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
　　　　．．．．．
    　　　Case 7
         WindowsMediaPlayer1.settings.volume = 0
         Toolbar1.Buttons(8).Visible = True     '加载程序时设置该按扭的可见＼可控属性均为假
           Toolbar1.Buttons(8).Visible = True   
         Toolbar1.Buttons(7).Visible = False
         Toolbar1.Buttons(7).Enabled = False
        Case 8
         WindowsMediaPlayer1.settings.volume = 100
         Toolbar1.Buttons(8).Visible = False
         Toolbar1.Buttons(8).Enabled = False
         Toolbar1.Buttons(7).Visible = True
         Toolbar1.Buttons(7).Enabled = True
end Select
end sub

[[italic] 本帖最后由 cq271359502 于 2007-12-27 15:31 编辑 [/italic]]

0 < WindowsMediaPlayer1.settings.volume <= 100要写成WindowsMediaPlayer1.settings.volume >0 and WindowsMediaPlayer1.settings.volume <=100  吧

谢谢，我以后自己注意下