::شرح كيفية ظهور المشروع من الخفاء الى الظهور بالتدرج ::
بـبرنامج الـ AutoPlay
لجعل المشروع في برنامج الاتو بلي عند بداية تشغيله يظهر من الخفاء ثم يزداد وضوحا تدرجا حتى يتم ظهوره بشكل كامل ..
كما في الصورة التالية
نبدأ الشرح
بسم الله
1- اعمل مشروع جديد ثم اعمل حفظ له عن طريق
Save As
وسميه مثلا باسم (Al3malka.com)
2- حمل الملف التالي وهو من نوع DLL وهو مهم لعمل الشفافية على المشروع وبدونه لن تستطيع عمل ذلك
Dwonload
ملاحظة :
ملف DLL يعمل فقط على الوندوز 2000 فما فوق ، ولا يعمل على الوندوز الملينيوم و 98 ..
فك الضغط من الملف DLL ، ثم انسخه والصقه بالمسار التالي
اذهب الى
ثم أفتح المجلد AutoPlay Media Studio 7.0
ثم افتح المجلد (Al3malka.com) ( اسم المشروع الي سميناه مسبقاً )
ثم افتح المجلد CD_Root
ثم افتح المجلد AutoPlay
ثم افتح المجلد Docs
ثم الصق الملف wTrans.dll داخل الملف Docs
4- ارجع الى مشروعك الأن ثم اضغط دبل كليك بوسط مشروعك
ثم اذهب للتبويب On Show
وضع الكود التالي
كود:
[B][B]
if blnFade then
Page.StartTimer(50)
else
result = Dialog.Message("رسالة خطاء", "ملف دي ال ال يعمل على الوندوز 2000 فما فوق ولا يعمل على الوندوز الملينيوم و 98", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
end[/B][/B]
وظيفة الكود ظهور رسالة خطاء عند استخدامك الى جهاز به الوندوز اقل من Win2000 مثل الوندوز me + 98
ثم اذهب للتبويب On Timer
وضع الكود التالي
كود:
if blnFade then
Opacity = Opacity + 5
if (Opacity < 255) then
long = DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "SetWindowTransparency", handle..","..Opacity, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
end
الرقم 5 : هي نسبة الزيادة بالتدرج من الخفاء الى الظهور ، ويمكنك زيادة الرقم الى رقم اكبر من خمسه اذا اردة زيادة سرعة ظهور المشروع ..
الرقم 255 : هو الرقم النهائي لظهور المشروع ، وسيكون المشروع ظاهر بشكل كامل ..
اذا اردة عملك ان يكون بالنهاية بشكل شفاف عليك بتقليل الرقم 255 الى رقم اقل .. مثلا غير الرقم 255 الى 150 ثم انظر النتيجه ، ستجده ان عملك اصبح شفاف كما بالصورة الأولية ..
ثم اذهب للتبويب On Perload
ضع الكود التالي
كود:
sOS=String.Right(System.GetOSName(),2);
if (sOS == "XP" ) or (sOS == "00") or (sOS == "03") then
blnFade = true;
Opacity = 0;
handle = Application.GetWndHandle();
result = DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "SetWindowTransparency", handle..","..Opacity, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
else
blnFade = false;
end
في النهاية قم بعمل تطبيق على عملك عن طريق الزر معاينة
لترى النتيجه النهائية
و هذا تطبيق صغير للموضوع
و في النهاية