03-04-19, 12:16 AM
(آخر تعديل لهذه المشاركة : 31-03-20, 02:57 PM {2} بواسطة Amir_Alzubidy.)
السلام عليكم ورحمة الله وبركاته
اليوم احببت ان اقوم بعمل شى مختلف
من المؤكد انه سيفيد الجميع كا استخدام
وكا فكرة الاكواد التى تتواجد بالسورس ليبتكر منه استخدام مستقبلياً
السورس كود 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
شرح الاستخدام للكود كاملاً على اخر تحديث
تحياتى لكم
وتمنياتى لكم التوفيق الدائم
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية