VB.NET如何在visual studio中制作滑入/滑出申请表（程序）？

Question

试图找到如何在 visual studio 中制作滑入/滑出申请表（程序）或者我如何 google 呢？我的意思是我能找到的只是一个有可滑动面板的表单，但我想做的很像 windows 通知面板，它从右侧屏幕外滑出，但在我的情况下，它会从顶部滑动。

有人可以帮我解答一下吗？

Answer 1

您可以试试看是否符合您的需求。

新建一个项目，然后在Form1中放一个按钮，双击按钮，在里面写上：

FormNotif.LoadForm ("some parameter to pass thru")

创建一个名为 FormNotif 的新 winform，将其调整为较小的尺寸 (205 x 145)，并将 StartPosition 设置为 Manual。将计时器添加到 FormNotif（Timer1，间隔：5）。然后只需将此代码复制并粘贴到 FormNotif:

Public Class FormNotif

Dim psTimerFunc As String
Dim piCount As Integer

Sub LoadForm(MessageDescription As String)
    Me.Top = -Me.Height
    Me.Left = Screen.PrimaryScreen.Bounds.Width - Me.Width - 10
    Me.TopMost = True
    Me.BringToFront()
    Me.Show()
    psTimerFunc = "DOWN"
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    Select Case psTimerFunc
        Case "DOWN"
            Me.Top = Me.Top + 5
            If Me.Top >= 50 Then
                piCount = 0
                psTimerFunc = "WAIT"
            End If
        Case "WAIT"
            piCount += 1
            
            If piCount = 600 Then
                psTimerFunc = "UP"
            End If
        Case "UP"
            Me.Top = Me.Top - 5
            If Me.Top + Me.Height < 0 Then
                Timer1.Enabled = False
               
                Me.Close()
            End If
    End Select
End Sub
End Class

您可以使用 MessageDescription 发送一些您需要在 FormNotif 中显示的信息，然后使用标签或适合您需要的东西。几秒钟后，消息将上升并关闭。

VB.NET如何在visual studio中制作滑入/滑出申请表（程序）？

VB.NET How to make a slide in / out application form (program) in visual studio?

vb.net

panel

slide

userform