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

Question

试图从旋转按钮上移除黑色边框点击
（顺便说一句，我对这个丑陋的黑色边框的原因非常感兴趣）

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