vb.net - VB.NET 如何在visual studio中制作滑入/滑出申请表(程序)?
问题描述
试图找到如何在 Visual Studio 中制作滑入/滑出申请表(程序),或者我什至如何谷歌它?我的意思是我能找到的只是一个具有可滑动面板的表单,但我想做的很像从右侧屏幕外滑出的 Windows 通知面板,但在我的情况下,它会从顶部滑动.
有人可以帮忙解决我的问题吗?
解决方案
你可以试试这个,看看它是否符合你的需求。
创建一个新项目,然后在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 中显示的信息,然后使用标签或适合您需要的东西。几秒钟后,消息将上升并关闭。