vba - スピンボタンから黒い枠を取り除く方法

Question

スピンボタンonclickから黒い境界線を削除しようとして
いる（ところで、この醜い黒い境界線の理由については非常に興味深いです）

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

最初のクリック - 境界線なし
次のクリック - 境界線あり
次のクリック - 境界線なし - など
同じことが SpinDown()にも当てはまり
ます。

Answer 1

これらの黒い境界線は、現在スピン ボタンにフォーカスがあることを示しています。ユーザーフォームのテキストボックスをクリックするとch01、行が消えます。私の知る限り、これらの黒枠を永久に削除するプロパティはありません。

あなたのケースで起こっていることは、コードがフォーカスをテキストボックスに転送するch01ことです。つまり、境界線が表示されないときですが、フォーカスがスピンボタンに戻ると、それらの黒い境界線が元に戻ります。

代替:

2 つのコマンド ボタンを使用して、スピン ボタンの機能を複製します。.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