[asemshahen5]

اصنع مديول جديدة و ع هذا الكود به :

PHP كود :

Public Module NotificationShow
    ''' <summary>
    ''' اداة عرض التنبيه الجديدة من العاصم للبرمجيات
    ''' </summary>
    ''' <param name="TitelXT">عنوان التنبيه</param>
    ''' <param name="TitelFontXT">خط عنوان التنبيه</param>
    ''' <param name="TitelForeColoreXT">لون خط عنوان التنبيه</param>
    ''' <param name="BadyXT">رسالة  التنبيه</param>
    ''' <param name="BadyFontXT">خط رسالة التنبيه</param>
    ''' <param name="BadyForeColoreXT">لون خط رسالة التنبيه</param>
    ''' <param name="ImagePic">الصورة التي ستظهر على التنبيه</param>
    ''' <param name="ContanerXT">الحاوية التي سيعرض فيها التنبيه</param>
    ''' <param name="SecendShow">عدد الثواني التي سيعرض فيها التنبيه قبل الاغلاق</param>
    ''' <remarks>WWW.AL-ASEM.SOMEE.COM</remarks>
    Public Sub ShowNotification(TitelXT As String, TitelFontXT As Font, TitelForeColoreXT As Color,
                BadyXT As String, BadyFontXT As Font, BadyForeColoreXT As Color, ContanerXT As Control,
                ImagePic As Image, Optional SecendShow As Integer = 5)
        Dim NotificationXT As New Notification()
        Dim xxx As Image = My.Resources.DBBK
        NotificationXT.ImageXT = If(ImagePic Is Nothing, xxx, ImagePic)
        '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        NotificationXT.TitelLabelXT = TitelXT
        NotificationXT.TitelLabelFontXT = TitelFontXT
        NotificationXT.TitelLabelForeColoreXT = TitelForeColoreXT
        '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        NotificationXT.BadyLabelXT = BadyXT
        NotificationXT.BadyLabelFontXT = BadyFontXT
        NotificationXT.BadyLabelForeColoreXT = BadyForeColoreXT
        '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        NotificationXT.TimerIntervalXT = SecendShow * 1000
        ContanerXT.Width = NotificationXT.Width + 6
        NotificationXT.BorderStyle = BorderStyle.FixedSingle
        ContanerXT.Controls.Add(NotificationXT)
    End Sub
End Module 


و لا تنسى حذف نفس الكود من Class Notification اي الكود الخاص بالاداة .