منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

(19-04-20, 03:02 AM)asemshahen5 كتب : [ -> ]الحمد لله و الشكر لله .

سؤال اخير يا قائد هل ينفع اغير الفونت (نوع الخط) ولونه واضف اكثر من نص تحت بعض
و مكان الصوره من اليسار
ولكن في المضمون تسلم ايدك

اليوزر كنترول عندك عدلها زي مانت عايز و ضف خصائص عليها بقدر مانت عايز المثال اتوضع عشان تعدل فيه على كيفك و اي استفسار متترددش و الله الموفق .

(19-04-20, 03:23 AM)asemshahen5 كتب : [ -> ]اليوزر كنترول عندك عدلها زي مانت عايز و ضف خصائص عليها بقدر مانت عايز المثال اتوضع عشان تعدل فيه على كيفك و اي استفسار متترددش و الله الموفق .

حبيبي يا قائد انا هنا عدلت بس في النص بحيث ان تكون كلمه hello فوق وباقي النص تحت انا مش عارف اظبط النقطه دي بحيث كلمه هالو تكون الخط بولد ثقيل ونوع الخط اريال ولونه اسود
وباقي النص لونه اخطر ونوع الخط اريال
اما بقي الصوره من اليسار برضو مش عارف اوصلها انا اسف والله ثقلت عليك جدااا

هذا المثال بعد التطوير .

(19-04-20, 06:36 PM)asemshahen5 كتب : [ -> ]هذا المثال بعد التطوير .

ده كده فوق المطلوب بشويه وفوق الممتاز كمان انا شاكر ليك جدااا اخ عاصم
واعذرني علي عد الرد كنت امر بوعكه صحيه

السادة بالنسبة لمثال اظهار الرسائل
.zip MyNotificationXT.zip
اظهر 28 خطا
واضح ان هناك شيء لا بد من ادراجة import له
انا اعمل علي فيجوال 2008

دائما اعمل مشروع جديد ثم انسخ الفورم داخل المشروع الجديد
ظهرت الاخطا

(20-04-20, 10:16 AM)اليوم السابع كتب : [ -> ]
(19-04-20, 06:36 PM)asemshahen5 كتب : [ -> ]هذا المثال بعد التطوير .

ده كده فوق المطلوب بشويه وفوق الممتاز كمان انا شاكر ليك جدااا اخ عاصم
واعذرني علي عد الرد كنت امر بوعكه صحيه

معافى باذن الله المهم انك بخير و الحمد لله و الشكر لله رب العالمين .

(20-04-20, 12:39 PM)atefkhalf2004 كتب : [ -> ]السادة بالنسبة لمثال اظهار الرسائل
.zip MyNotificationXT.zip
اظهر 28 خطا
واضح ان هناك شيء لا بد من ادراجة import له
انا اعمل علي فيجوال 2008

دائما اعمل مشروع جديد ثم انسخ الفورم داخل المشروع الجديد
ظهرت الاخطا

اخي العزير انا عامل المثال على فيجوال 2012 ليعمل المشروع معاك عليك ان تعمل التالي :

1- اعمل يوزر كنترول باسم : Notification.vb
و افتح الملف : Notification.Designer.vb بالنوت باد و انسخ كل مابه و الصقه بنفس اسم الملف بمشروعك بعد فتح نفس الملف بالنوت باد طبعا لاتنسى اضافة الصور الموجودة بمجلد الريسورس الى مشروعك يبقى عليك اضافة زر و اداة FlowLayoutPanel الى الفورم 1 و اكتب هذا الكود في الزر :

PHP كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim TitelFN As Font = New Font("Arial", 10, FontStyle.Bold)
        Dim BadyFN As Font = New Font("Arial", 8)
        ShowNotification("Hello", TitelFN, Color.Black, "Welcome Back To Circle",
        BadyFN, Color.Green, FlowLayoutPanel1, Image.FromFile(".\ImageXT\doc1.png"), 6)
    End Sub 

و هذا تحديث جديد للمشروع امل ان يعجبك :

[attachment=24494]

[attachment=24495]

ShowNotification(

الخط الاحمر موجود تحت

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

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 اي الكود الخاص بالاداة .

والله يا اخي ما عرفت انفذه
ياريت تكمل الجميل ويكون المثال علي بعضه
اكون شاكر

الصفحات : 1 2