[VB.NET] การทำ Popup Notification หรือแสดงหน้าจอการแจ้งเตือน

thongkorn

การทำ Popup Notification หรือแสดงหน้าจอและข้อความการแจ้งเตือนแสดงผลทางด้านล่างมุมขวาสุดของจอภาพ โปรเจคนี้จะใช้ของฟรีจาก Tulpep.NotificationWindow สำหรับโค้ดตัวอย่างแอดมินจะใช้ Visual Basic .Net Framework 4.0 ซึ่งในไฟล์บีบอัด (ZIP) จะมีไฟล์ DLL มาพร้อมให้อยู่แล้ว แค่เลือก Add References เข้ามาเท่านั้น ...


Popup Notification using Tulpep nuget package.







มาดูโค้ดฉบับเต็มกันเถอะ ...

1. '// .Net Framework from 4.0+
   
2. '// https://www.nuget.org/packages/Tulpep.NotificationWindow
   
3. 
   
4. Imports Tulpep.NotificationWindow
   
5. 
   
6. Public Class frmNotification
   
7.     Private strPathImage = MyPath(Application.StartupPath) & "Images"
   
8.     Dim TitleFont As New Font("Century Gothic", 15, FontStyle.Bold)
   
9.     Dim ContentFont As New Font("Century Gothic", 12, FontStyle.Regular)
   
10. 
    
11.     Private Sub frmNotification_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
12.         '// Sub Program.
    
13.         '// Image, BodyColor, TitleText, TitleColor, ContentText, ContentColor
    
14.         Call Notification("Info.png", Color.Green, "HELLO, WORLD.", Color.Black, "This is a book." & vbCrLf & "This is a chair." & vbCrLf & "I'm fine, Thank you.", Color.White)
    
15.     End Sub
    
16. 
    
17.     '//
    
18.     Private Sub Notification(
    
19.                             ByVal img As String,
    
20.                             ByVal BodyColor As System.Drawing.Color,
    
21.                             ByVal TitleText As String,
    
22.                             ByVal TitleColor As System.Drawing.Color,
    
23.                             ByVal ContentText As String,
    
24.                             ByVal ContentColor As System.Drawing.Color
    
25.                             )
    
26.     Dim Popup As PopupNotifier = New PopupNotifier()
    
27.     Dim bitmap As Bitmap
    
28.         Try
    
29.             bitmap = Image.FromFile(strPathImage & img)
    
30.             With Popup
    
31.                 .Image = bitmap
    
32.                 .BodyColor = BodyColor
    
33.                 .TitleText = TitleText
    
34.                 .TitleColor = TitleColor
    
35.                 .TitleFont = TitleFont
    
36.                 .ContentText = ContentText
    
37.                 .ContentColor = ContentColor
    
38.                 .ContentFont = ContentFont
    
39.                 .Popup()
    
40.             End With
    
41.         Catch ex As Exception
    
42.             MessageBox.Show(ex.Message)
    
43.         End Try
    
44.     End Sub
    
45. 
    
46.     Private Sub btnSuccess_Click(sender As Object, e As EventArgs) Handles btnSuccess.Click
    
47.         Call Notification("Success.png", Color.FromArgb(40, 167, 69), "SUCCESS", Color.White, "Your Success Message.", Color.White)
    
48.     End Sub
    
49. 
    
50.     Private Sub btnInfo_Click(sender As Object, e As EventArgs) Handles btnInfo.Click
    
51.         Call Notification("Info.png", Color.FromArgb(0, 192, 192), "INFORMATION", Color.White, "Your Information Message.", Color.White)
    
52.     End Sub
    
53. 
    
54.     Private Sub btnWarning_Click(sender As Object, e As EventArgs) Handles btnWarning.Click
    
55.         Call Notification("Warning.png", Color.FromArgb(255, 193, 7), "WARNING", Color.Black, "Your Warning Message.", Color.Black)
    
56.     End Sub
    
57. 
    
58.     Private Sub btnError_Click(sender As Object, e As EventArgs) Handles btnError.Click
    
59.         Call Notification("Error.png", Color.Red, "ERROR", Color.White, "Your Warning Message.", Color.White)
    
60.     End Sub
    
61. 
    
62. #Region "Function"
    
63.     ' / --------------------------------------------------------------------------------
    
64.     ' / Get my project path
    
65.     ' / AppPath = C:\My Project\bin\debug
    
66.     ' / Replace "\bin\debug" with ""
    
67.     ' / Return : C:\My Project\
    
68.     Function MyPath(AppPath As String) As String
    
69.         '/ MessageBox.Show(AppPath)
    
70.         AppPath = AppPath.ToLower()
    
71.         '/ Return Value
    
72.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
73.         '// If not found folder then put the \ (BackSlash) at the end.
    
74.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
75.     End Function
    
76. #End Region
    
77. 
    
78. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ Visual Basic .Net (2010) ได้ที่นี่ ...