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

Posted 2023-03-21

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

【英文标题】：VB.NET How to make a slide in / out application form (program) in visual studio?

【发布时间】：2021-12-01 06:09:51

【问题描述】：

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

有人可以帮忙解答一下我的问题吗？

【问题讨论】：

Start Here.

【参考方案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 中显示的信息，然后使用标签或适合您需要的东西。几秒钟后，消息将上升并关闭。