vba - 如何从旋转按钮中删除黑色边框

Question

在尝试从旋转按钮 onclick 中删除黑色边框时
（顺便说一句，我对这个丑陋的黑色边框的原因很感兴趣）

Private Sub spin01_SpinUp()
... //some code
ch01.SetFocus // ch01 is a textbox

第一次点击 - 没有边框
下一次点击 - 有边框 下一次点击 -
没有边框 - 等等
SpinDown()也是如此
很奇怪，不是吗？

Answer 1

这些黑色边框是为了让您知道旋转按钮当前具有焦点。如果您单击用户窗体上的文本框ch01，则这些行将消失。AFAIK 没有任何属性可以永久删除这些黑色边框。

在您的情况下发生的情况是代码将焦点转移到文本框ch01，即当您看不到边框但当焦点回到旋转按钮时，那些黑色边框又回来了。

替代方案：

使用两个命令按钮并复制旋转按钮的功能。您还可以将 更改为.Picture在命令按钮上显示箭头而不是文本。请参阅下面的屏幕截图

跟进

Private Sub spin01_SpinUp()
    '
    '~~> Rest of the code
    '
    wait 0.1
    ch01.SetFocus
End Sub

Private Sub spin01_SpinDown()
    '
    '~~> Rest of the code
    '
    wait 0.1
    ch01.SetFocus
End Sub

Public Sub wait(ByVal nsec As Double)
    nsec = nsec + Timer
    While nsec > Timer
        DoEvents
    Wend
End Sub