为你的程序添加“QQ提示”(屏幕的右下角弹出一个提示)

们对 QQ 这个 IM 软件再了解不过了，QQ 上每次登陆之后都会在屏幕的右下角弹出一个提示，如图：

 

 

        今天，我们就来简单地实现这种提示。先看一下结果图：

 

 

        首先添加一个窗体，对窗体的如下属性进行设置：

               

FormBorderStyle: FixedToolWindow
                ShowInTaskBar: False
                TopMost: True

 

 

对于窗体的标题、背景等属性以及 Label 、LinkLabel 控件，可以根据个人喜好或程序需要设置。

        其次，在窗体中添加一个 Timer 控件，名称为 Timer1，并设定其 Interval 属性为 5000，也就是 5秒的时间，这个是该窗体显示的时间，下面还会介绍。

        然后，编写如下代码：

Public Class Form1
    Public Sub New()

        InitializeComponent()

        AddHandler Me.Timer1.Tick, AddressOf ToCloseForm
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

         '设定窗体的位置
        Me.Left = Screen.PrimaryScreen.WorkingArea.Width - Me.Width - 20
        Me.Top = Screen.PrimaryScreen.WorkingArea.Height - Me.Height

        Timer1.Start()
    End Sub

    Private Sub ToCloseForm(ByVal sender As Object, ByVal e As EventArgs)
        Me.Close()
        Timer1.Stop()
    End Sub
End Class

 

 

        最后，按下 F5 运行，结果就出来了。

        说明：在窗体载入后 Timer1 随之启动，由于它的 Interval 为 5000，所以在 5 秒后，将后触发其 Tick 事件，而在这个事件的响应过程中，我们将窗体关闭。

        另外，如果分别为窗体的载入和关闭添加淡入和淡出效果会更好，