制作DropDown效果面板

Question

我在tabcontrol中有一个面板我想使用make效果，如面板下拉，同时用户导航到特定的标签页

下面的代码我正在使用但它不起作用

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的位置。然后当面板到位时，你停止计时器。