abohmam
03-07-2008, 07:46 PM
=>((إنشاء رسالة ترحيبية لمستعمل الأسطوانة وأخرى لتوديعه))<=
قد يرغب مصمم الأسطوانة في وضع لمسات خاصة على الأسطوانة تزيدها جمالا وبهاءا بحيث تخاطب مستعملها باسمه،
وذلك من خلال إدراج رسالة ترحيبية تظهر بتشغيل الأسطوانة
وهذا ما سنتطرق إليه في درس اليوم
أولا قم بفتح المشروع الملطلوب واذهب إلى الأمر project ثم اختر الأمر Actions كما في الصورة
http://www.abc4web.net/vb/imgcache/4017.abc4web
تظهر لنا نافذة Action editor ونختار On Startup وقم بنسخ هذا الكود
user = Application.LoadValue("Information", "karim_dz");
if user == "" then
user = "Unknown User";
user = Dialog.Input("Information Requested", "من فضلك قم بإدخال إسمك في هذه الخانة:", "", MB_ICONQUESTION);
Application.SaveValue("Information", "Name", user);
end
Dialog.Message("Welnete", "هلا وغلا بك أخي "..user..", مرحبا بك في أسطوانتي المتواضعة");
http://www.abc4web.net/vb/imgcache/4018.abc4web
قم بمعاينة المشروع بالضغط على F5 من لوح المفاتيح والنتيجة
http://www.abc4web.net/vb/imgcache/4019.abc4web
وهذا هو الترحيب
http://www.abc4web.net/vb/imgcache/4020.abc4web
إذا كانت هذه الرسالة الترحيبية فسنتطرق إلى كيفية إعداد رسالة توديع المستعمل
وترغيبه في إنتظار الإصدارات المقبلة من الأسطوانة
نقوم بنفس عمل الرسالة الترحيبية فقط هذه المرة يكون باختيار الأمر On Shutdown ونكتب الكود التالي:
Dialog.Message("Thank you", "شكرا لك أخي "..user..", أتمنى أن تكون قد أعجبتك أسطوانتي");
كما في الصورة
http://www.abc4web.net/vb/imgcache/4021.abc4web
وقم بالمعاينة
http://www.abc4web.net/vb/imgcache/4022.abc4web
صاحب الشرح : الأخ كريم
مـ(أجمل تحية لكم جميعا)ـع
أبو هــــMـــــام
قد يرغب مصمم الأسطوانة في وضع لمسات خاصة على الأسطوانة تزيدها جمالا وبهاءا بحيث تخاطب مستعملها باسمه،
وذلك من خلال إدراج رسالة ترحيبية تظهر بتشغيل الأسطوانة
وهذا ما سنتطرق إليه في درس اليوم
أولا قم بفتح المشروع الملطلوب واذهب إلى الأمر project ثم اختر الأمر Actions كما في الصورة
http://www.abc4web.net/vb/imgcache/4017.abc4web
تظهر لنا نافذة Action editor ونختار On Startup وقم بنسخ هذا الكود
user = Application.LoadValue("Information", "karim_dz");
if user == "" then
user = "Unknown User";
user = Dialog.Input("Information Requested", "من فضلك قم بإدخال إسمك في هذه الخانة:", "", MB_ICONQUESTION);
Application.SaveValue("Information", "Name", user);
end
Dialog.Message("Welnete", "هلا وغلا بك أخي "..user..", مرحبا بك في أسطوانتي المتواضعة");
http://www.abc4web.net/vb/imgcache/4018.abc4web
قم بمعاينة المشروع بالضغط على F5 من لوح المفاتيح والنتيجة
http://www.abc4web.net/vb/imgcache/4019.abc4web
وهذا هو الترحيب
http://www.abc4web.net/vb/imgcache/4020.abc4web
إذا كانت هذه الرسالة الترحيبية فسنتطرق إلى كيفية إعداد رسالة توديع المستعمل
وترغيبه في إنتظار الإصدارات المقبلة من الأسطوانة
نقوم بنفس عمل الرسالة الترحيبية فقط هذه المرة يكون باختيار الأمر On Shutdown ونكتب الكود التالي:
Dialog.Message("Thank you", "شكرا لك أخي "..user..", أتمنى أن تكون قد أعجبتك أسطوانتي");
كما في الصورة
http://www.abc4web.net/vb/imgcache/4021.abc4web
وقم بالمعاينة
http://www.abc4web.net/vb/imgcache/4022.abc4web
صاحب الشرح : الأخ كريم
مـ(أجمل تحية لكم جميعا)ـع
أبو هــــMـــــام