Question

我将使用哪些事件来处理隐藏此面板内的按钮/组件？这是一个滑动面板，当用户将鼠标悬停时，它会展开，当鼠标退出时，它会折叠。

问题是我不知道在扩展之前如何防止组件显示。

 Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Panel1.Dock = DockStyle.Left
        Timer3.Enabled = True
    End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Panel1.Width < 150 Then
            Panel1.Width = Panel1.Width + 100
        ElseIf Panel1.Width = 150 Then
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If Panel1.Width >= 100 Then
            Panel1.Width = Panel1.Width - 50
            If Panel1.Width < 100 And Panel1.Width > 25 Then
                Panel1.Width = Panel1.Width - 1
            End If

        ElseIf Panel1.Width = 25 Then
            Timer2.Enabled = False
        End If
    End Sub


    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        If Panel1.ClientRectangle.Contains(Panel1.PointToClient(MousePosition)) Then
            If Not Timer1.Enabled AndAlso Panel1.Width < 150 Then
                Timer1.Enabled = True
                Timer2.Enabled = False
            End If
        Else
            If Not Timer2.Enabled AndAlso Panel1.Width > 25 Then
                Timer1.Enabled = False
                Timer2.Enabled = True
            End If
        End If
    End Sub


End Class

Answer 1

您可能应该重命名计时器以保持它们的正确性，例如SlideOpenTimer和SlideCloseTimer等。这样可以更容易理解计时器的用途。

我重新处理你的计时器事件，以便在关闭计时器启动时隐藏ListBox，并在面板达到其全宽时显示ListBox：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  If Panel1.Width < 100 Then
    Panel1.Width += 50
  ElseIf Panel1.Width < 150 Then
    Panel1.Width += 25
  ElseIf Panel1.Width >= 150 Then
    Timer1.Enabled = False
    ListBox1.Visible = True
  End If
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
  If ListBox1.Visible Then
    ListBox1.Visible = False
  End If
  If Panel1.Width > 100 Then
    Panel1.Width -= 50
  ElseIf Panel1.Width > 25 Then
    Panel1.Width -= 25
  ElseIf Panel1.Width <= 25 Then
    Timer2.Enabled = False
  End If
End Sub

滑块面板，隐藏组件内部

1 个答案: