单击标题栏后 Vscrollbar 不会消失

Question

我的项目中有一个 vscrollbar，我想让它在鼠标移动时消失单击它之外的任何东西。我已经尝试过（离开）和（失去焦点）事件并且他们成功了：

Private Sub VScrollBar1_Leave(sender As Object, e As EventArgs) Handles VScrollBar1.Leave

    VScrollBar1.Visible = False

End Sub
Private Sub VScrollBar1_LostFocus(sender As Object, e As EventArgs) Handles VScrollBar1.LostFocus

    VScrollBar1.Visible = False

End Sub

问题是单击（标题栏）时，没有任何反应并且滚动条仍然可见，有什么建议吗？

Answer 1

标题栏没有点击事件，但您可以为它（创建）一个

您的代码工作正常，您只需添加以下代码：

Private Const WM_NCLBUTTONDOWN As Long = &HA1
Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
    If CLng(m.Msg) = WM_NCLBUTTONDOWN Then
        Focus()
    End If
    MyBase.DefWndProc(m)
End Sub

这将使您专注于您的表单，这将使您的代码完美运行...

单击标题栏后 Vscrollbar 不会消失

Vscrollbar doesn't disappear after titlebar click

vb.net

titlebar

scrollbar

winforms