制作DropDown效果面板

Question

我在一个选项卡式控件中有一个面板，我想在用户导航到永久选项卡页时使用类似于面板的make effect下拉菜单

下面的代码是我正在使用的代码，但它不工作

Private Sub Tabcontrol1_pagechange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tabcontrol1.SelectedIndexChanged
    Panel1.Location = New Point(3, -Panel1.Height)
    Select Case Tabcontrol1.SelectedIndex
        Case 1
            While Panel1.Location.Y < 30
               Panel1.Location = New Point(3, Panel1.Location.Y + 1)
            End While
    End Select
End Sub

Answer 1

使用Timer更改Panel的位置。然后，当面板就位时，您停止计时器。