1 - أنشئ متغير جديد ( في أعلى الـ Form ) كالتالي :
كود :
Dim MyNotifyIcon As New NotifyIcon With {.Visible = True, .Text = "***اسم البرنامج***"}
2 - في الحدث Form1_Load النافذة الرئيسية ( أول نافذة تفتح في المشروع ) , نعين الأيقونة ( Icon ) لهذا الكائن , لأنه بدونها لن تظهر أي رسالة , ولسرعة الشرح , أخذت الأيقوة الخاصة بالـ Form نفسة
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.MyNotifyIcon.Icon = Me.Icon
End Sub
3 - في الحدث Form1_FormClosed عند إغلاق النافذة الرئيسية ( أول نافذة تفتح في المشروع ) , نقوم بإخفاء هذا الكائن , ثم نتخلص من الكائن , بدون هذا الإجراء ستظل أيقونة الكائن في صينية النظام جنب الساعة , ولن تختفي حتى تمرر الماوس فوقها.
كود :
Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
Me.MyNotifyIcon.Visible = False
Me.MyNotifyIcon.Dispose()
End Sub
[
attachment=17432]
4 - بإستدعاء هذا الأمر يمكنك إظهار رسالة تنبيهية ( Notification Message )
5000 يعني عدد الثواني لمدة ظهور الرسالة التنبيهية , وهي تحسب بالمللي ثانية , كل ثانية = 1000 مللي ثانية , الـ 5000 مللي ثانية تعني 5 ثواني
يمكنك تغيير ToolTipIcon.Info , البراميتر الأخير , فهو لتحديد نوع الأيقونة داخل الرسالة التنبيهية , وليس لأيقونة للكائن بجانب الساعة.
كود :
Me.MyNotifyIcon.ShowBalloonTip(5000, "عنوان الرسالة هنا", "محتوى نص الرسالة هنا", ToolTipIcon.Info)
5 - بعد عمل الخطوة رقم ( 1 , 2 , 3 ) قم بتغيير الكود الذي لديك , بهذا الكود :
كود :
'لعمل رساله تظهر اذا جاء وقت كتابة النتيجه
Dim searchDate1 As Date = Now.ToShortDateString
dtPatientstoresuldate.Clear()
daPatientstoresuldate = New OleDbDataAdapter("select * from Patients WHERE ResultDate = # " & searchDate1 & " # ", connAccess2007)
daPatientstoresuldate.Fill(dtPatientstoresuldate)
DataGridView1.DataSource = (dtPatientstoresuldate)
Dim Msg As String = ""
For i As Integer = 0 To DataGridView1.Rows.Count - 2
Msg &= i & " - " & DataGridView1.Rows(i).Cells(6).Value & vbNewLine
Next
Me.MyNotifyIcon.ShowBalloonTip(5000, "نتائج المرضى :", "برجاء طباعة نتائج المرضى التالية أسمائهم" & vbNewLine & Msg, ToolTipIcon.Info)