[elgokr]

السلام عليكم ورحمة الله وبركاته

اليوم احببت ان اقوم بعمل شى مختلف

من المؤكد انه سيفيد الجميع كا استخدام

وكا فكرة الاكواد التى تتواجد بالسورس ليبتكر منه استخدام مستقبلياً

السورس كود Class Library 

لتكوين ملف Dll يمكنك الاستفادة من اضافته فى اى مشروع

السورس المرفق 2015

مرفق مع الصورس ملف الـ Dll المستخرج من السورس

طريقة استخدام ملف الـ Dll فقط قم باضافة الملف فى References

من ثم قم باستخدام السطر التالى

كود :

Imports msgWelcome

من ثم تعال فى اى حدث تريد ظهور شاشة التنبيه / الترحيب واستخدم الكود التالى

كود :

       Dim MsgOk As msgView = New msgView
       MsgOk.msgWelcome(420, 280, "مرحباً", True, True, 0.8)

شرح كل جزء فى الكود بالاعلى:
1- 420 : تعنى Width -> العرض يمكنك ان تكتب الرقم الذى يناسبك للعرض الرسالة
2- 280 : تعنى Height -> الارتفاع يمكنك ان تكتب الرقم الذى يناسبك للارتفاع الرسالة
3- مرحباً : تعنى msgShow -> والمقصود بها نص الرسالة فهنا يمكنك ان تكتب ما تريده من نص الرسالة كما تشاء
4- True : تعنى RightLeft -> وهو طريقة عرض الكتابة من اليمين الى اليسار والعكس كذلك ان يجعل الرسالة على انظباع عربى / اجنبي
5- True : تعنى BottomRight -> وهو لطريقة ظهور الرسالة المتحركة من الاسفال الى الاعلى / من اليمين الى اليسار
6- 0.8 : تعنى Transparent -> والمقصود بها شفافية خلفية الرسالة الحد الادنى 0.1 والحد الاقصي 1.0 [0.1 تعنى 90% شفاف و 1.0 تعنى 0% شفاف ]
7- AR أو ar :[  ] تعنى ArEn -> والمقصود بها هنا لغة نظام الحاسب الالى اذا كان اللغة العربية او اللغة الاجنبية [ اتجاه قائمة Start يمين / يسار ] 

صورة لمظهر الرسالة مع تنفيذ الكود بالمقاس التالى ( للنظام باللغة الانجليزية )

كود :

       Dim MsgOk As msgView = New msgView
       MsgOk.msgWelcome(210, 140, "مرحباً بكم فى موقع vb4arb", True, True, 0.8)

صورة لمظهر الرسالة مع تنفيذ الكود بالمقاس التالى ( للنظام باللغة العربية)

كود :

       Dim MsgOk As msgView = New msgView
       MsgOk.msgWelcome(460, 240, "elgokr", True, True, 1, "ar")

أو

كود :

       Dim MsgOk As msgView = New msgView
       MsgOk.msgWelcome(460, 240, "elgokr", True, True, 1, "AR")

صورة لمظهر الرسالة مع تنفيذ الكود بالمقاس التالى ( للنظام باللغة الانجليزية )

كود :

       Dim MsgOk As msgView = New msgView
       MsgOk.msgWelcome(460, 240, "elgokr", True, True, 1, "en")

أو

كود :

       Dim MsgOk As msgView = New msgView
       MsgOk.msgWelcome(460, 240, "elgokr", True, True, 1, "EN")

صورة لمظهر الرسالة مع تنفيذ الكود بالمقاس التالى

كود :

       Dim MsgOk As msgView = New msgView
       MsgOk.msgWelcome(420, 280, "اللَّهُ لَا إِلَٰهَ إِلَّا هُوَ الْحَيُّ الْقَيُّومُ ۚ لَا تَأْخُذُهُ سِنَةٌ وَلَا نَوْمٌ ۚ لَهُ مَا فِي السَّمَاوَاتِ وَمَا فِي الْأَرْضِ ۗ مَنْ ذَا الَّذِي يَشْفَعُ عِنْدَهُ إِلَّا بِإِذْنِهِ ۚ يَعْلَمُ مَا بَيْنَ أَيْدِيهِمْ وَمَا خَلْفَهُمْ ۖ وَلَا يُحِيطُونَ بِشَيْءٍ مِنْ عِلْمِهِ إِلَّا بِمَا شَاءَ ۚ وَسِعَ كُرْسِيُّهُ السَّمَاوَاتِ وَالْأَرْضَ ۖ وَلَا يَئُودُهُ حِفْظُهُمَا ۚ وَهُوَ الْعَلِيُّ الْعَظِيمُ [255]", True, True, 1)

صورة لمظهر الرسالة مع تنفيذ الكود بالمقاس التالى

كود :

       Dim MsgOk As msgView = New msgView
       MsgOk.msgWelcome(140, 80, "elgokr", False, True, 0.5)

الباقي من شرح والكود ستجده بداخل السورس

السورس تقريباً شاره وظيفية كل سطر من الاكواد

الى هنا انتى من الحديث عن الموضوع والمحتوى

وما يبقي لكم من تطور وتعديل السورس لما يناسبكم من مظهر واداء

المرفقات : صور الموضوع - السورس كود 2015 - ملف Dll المستخرج من السورس للاستخدام

تنبيه : اخر تحديث للمشروع بتاريخ 24/04/2019

بخصوص التحديث عند اضافة 

كود :

"AR" أو "ar"

تعنى ان النظام باللغة العربية فسيتم ظهور الرسالة على يسار الشاشة اعلى الساعة

واذا قمت باضافة 

كود :

"EN" أو "en"
أو بدون اضافتها تماماً

فهذا يعنى ان النظام باللغة الانجليزية / الاجنبية فسيتم ظهور الرسالة على يمين الشاشة اعلى الساعة

التحديث الاخير اضافة ArEn

شرح الاستخدام للكود كاملاً على اخر تحديث

http://vb4arb.com/vb/showthread.php?tid=...#pid140512

تحياتى لكم

وتمنياتى لكم التوفيق الدائم