Если ли какая-нибудь форма или панель, которая будет плавно выкатываться из основной - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы