Если вы хотите использовать анимацию в выигрышных формах, например, когда панель свернулась, а дополнительное пространство должно быть покрыто содержимым, тогда вы можете использовать
Свойство Control.Top () и Control.Left () 'control = имя вашего элемента управления, на котором написано содержимое, например, метка, текстовое поле и т. Д.
Или второй выбор
Чтобы изменить размер вашего контента (например, увеличить размер и т. Д.).
Зависит от вашего выбора, так как я не вижу вашей формы представления, но советую вам исходя из моего воображения.
Например, моя высота панели равна 100, и когда я рухнул, я хочу, чтобы мой следующий элемент управления переместился вверх на 100 (предположим)
Предположим, мой следующий элемент управления - RichTextBox
Затем вы можете изменить здесь:
Public Class Form1
Dim panelshow As Boolean = True
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If panelshow = False Then
panelshow = True
Panel1.Show()
RichTextBox1.Top = RichTextBox1.Top + 100
RichTextBox1.Height = RichTextBox1.Height - 100
Else
Panel1.Hide()
panelshow = False
RichTextBox1.Top = RichTextBox1.Top - 100
RichTextBox1.Height = RichTextBox1.Height + 100
End If
End Sub
End Class
Просто добавьте метод в дополнение к нашему предыдущему коду, чтобы сделать это.
Не обращайте внимания на мои грамматические ошибки.
Я не совершенен в английском.
Для получения дополнительной помощи прокомментируйте или опубликуйте свой код (если у вас есть какие-либо проблемы)