VB.NET 如何在 Visual Studio 中制作滑入/滑出的应用程序表单（程序）？

Question

试图找到如何在 Visual Studio 中制作滑入/滑出申请表（程序），或者我什至如何谷歌它？我的意思是我能找到的只是一个具有可滑动面板的表单，但我想要制作的很像 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 中显示的信息，然后使用标签或适合您需要的内容。几秒钟后，消息将上升并关闭。

Answer 2

它工作正常，但只有这个功能（DOWN/WAIT）正在工作...... 但我想从下到上显示消息的过程...如何？那么滑入/滑出 Winform 又如何呢？喜欢QH留言框（2024）