Если ли какая-нибудь форма или панель, которая будет плавно выкатываться из основной - Visual Basic .NET
Формулировка задачи:
Доброе время суток.
Скажите, пожалуйста, если ли какая-нибудь форма или панель, которая будет плавно выкатываться из основной формы?
А именно при нажатии на кнопку влево или вправо будет, выкатывается панель, которая прикреплена к главной форме (пользователь не сможет отодвинуть эту панель в сторону).
Заранее большое спасибо.
Решение задачи: «Если ли какая-нибудь форма или панель, которая будет плавно выкатываться из основной»
textual
Листинг программы
Private isOpenL, isOpenR As Boolean Private WR, WL, WC As Integer Private dd As Integer = 24 Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.MaximizeBox = False Me.MinimizeBox = False WR = PanelR.Width WL = PanelL.Width WC = PanelC.Width PanelL.Width = 0 PanelR.Width = 0 Me.Width = WC + dd isOpenR = True isOpenL = True End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles ButtonR.Click If isOpenR Then ButtonR.Text = "<" PanelR.Width = WR Else ButtonR.Text = ">" PanelR.Width = 0 End If Me.Width = PanelL.Width + PanelR.Width + PanelC.Width + dd isOpenR = Not isOpenR End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles ButtonL.Click If isOpenL Then ButtonL.Text = ">" PanelL.Width = WL Else ButtonL.Text = "<" PanelL.Width = 0 End If Me.Width = PanelL.Width + PanelR.Width + PanelC.Width + dd isOpenL = Not isOpenL End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д