工具栏按钮,能不能按一下,凹了,再按一下弹起来?
ppp80 2004-09-14 04:16:07 工具栏按钮,能不能按一下,凹了,再按一下弹起来?
Set PressedButton = Toolbar2.Buttons(6)
Case "loop"
If PressedButton.Value = tbrUnpressed Then
PressedButton.Value = tbrPressed
Toolbar2.Refresh
Else
PressedButton.Value = tbrUnpressed
Toolbar2.Refresh