如何从数值调节按钮中移除黑色边框

Question

在尝试删除旋转按钮onclick中的黑色边框时

(顺便说一句，我对这个丑陋的黑色边框的原因很感兴趣)

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

第一次点击-没有边框

下一次点击-边框在那里

下一次单击-没有边框-以此类推

SpinDown()也是如此

很奇怪，不是吗？

Answer 1

那些黑色边框是为了让你知道旋转按钮当前有焦点。如果你点击你的用户表单上的文本框ch01，线条就会消失。AFAIK没有任何属性可以永久删除这些黑边。

在您的示例中，代码将焦点转移到textbox 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