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

试图从旋转buttononclick删除黑色边框
（顺便说一句，我对这个丑陋的黑色边框的原因非常有趣）

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

首先点击 – 没有边界
下一次点击 – 边框在那里
点击下一步 – 没有边界 – 等等
SpinDown（）也是一样
很奇怪，不是吗？

Answer 1

那些黑色的边界是让你知道旋转button目前有焦点。 如果你点击你的用户窗体上的文本框ch01 ，那么这些行就会消失。 AFAIK没有任何财产永久删除黑边。

你的情况发生了什么是代码将焦点转移到文本框ch01 ，那就是当你没有看到边界，但当焦点回到旋转button时，这些黑色边框回来了。

select ：

使用两个命令button并复制“旋转”button的function。 您也可以更改.Picture来显示箭头，而不是命令button上的文本。 看下面的截图

跟进

 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