[Visual Basic] How to create Notification Icons

Hi tiếp tục với ngôn ngữ lập trình VISUAL BASIC mình đã tìm ra một đoạn code khá hay về thông báo NOTIFICATION trên WINDOWS cho ứng dụng cài đặt đoạn code trên.

Qua hình ảnh trên bạn cũng có thể thấy nó đơn giản như thế nào rồi chứ, chúng ta có thể tùy biến nó lên mức độ khó hơn nếu bạn am hiểu code một chút và nó sẽ có thông báo cho các bạn thấy nếu các bạn đang làm gì đó :D

FULL CODE

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        NotifyIcon1.ShowBalloonTip(500, "Click Me", "Hi, HungCoder.Com Đang Ẩn Nấp Tại Đây!", ToolTipIcon.Info)
    End Sub

    Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        Me.Show()
        NotifyIcon1.ShowBalloonTip(500, "Click Me", "Hi, HungCoder.Com Đã Phát Hiện Ra Một Điều Bí Mật Về Windows Của Bạn :D !", ToolTipIcon.Info)
    End Sub
End Class

Sau những tìm hiểu và lục lọi lại code, mình đã phát hiện ra một thủ thuật khác nhưng giống với đoạn code trên.

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Try
            If Me.WindowState = FormWindowState.Minimized Then
                Me.Visible = False
                NotifyIcon1.Visible = True
                NotifyIcon1.ShowBalloonTip(1, "Thông Báo", "HungCoder.Com Đang Ẩn Nấp Tại Đây.", ToolTipIcon.Info)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Try
            Me.Visible = True
            Me.WindowState = FormWindowState.Normal
            NotifyIcon1.Visible = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        Me.Show()
        NotifyIcon1.ShowBalloonTip(500, "Thông Báo", "Ứng Dụng Đã Được Hiển Thị.", ToolTipIcon.Info)
    End Sub

Nhìn lên bộ code bạn thấy nó hoàn toàn đơn giản chứ không có gì là phức tạp :D bạn chỉ việc thêm 1 tiền ích ở TOOLBOX đó là : NotifyIcon1 vậy là xong :D

VIDEO DEMO

Chúc mọi người thành công với thủ thuật trên.