تويت
كيفية ظهور الأسطوانة من الخفاء الي الظهور تدريجيا
السلام عليكم ورحمة الله وبركاتة
في هذا الدرس سنتعلم إن شاء الله تقنية جميلة في صناعة التجميعات
وهي ظهور المشروع تدريجيا عند تشغيله من الخفاء إلى الظهور
الدرس سهل جدا ونحتاج لأحد الملفات واسمه wTrans.dll
وهو المسؤول عن إحداث الشفافية في المشروع
وللحصول علي الملف تجده في المرفقات
في هذا الدرس سنتعلم إن شاء الله تقنية جميلة في صناعة التجميعات
وهي ظهور المشروع تدريجيا عند تشغيله من الخفاء إلى الظهور
الدرس سهل جدا ونحتاج لأحد الملفات واسمه wTrans.dll
وهو المسؤول عن إحداث الشفافية في المشروع
وللحصول علي الملف تجده في المرفقات
ولكيفية عمل هذا نقوم بنسخ الملف المرفق في المجلد Docs في مجلد التجميعة
ثم نذهب إلى المشروع ونضغط بيمين الماوس على صفحة العمل ونختار خصائص
نذهب إلى سكريبت ثم On Show ونضع هذا الكود
وهو عبارة عن رسالة مفادها أن الملف wTrans.dll لا يشتغل إلا على
الويندوز إكس بي و 2000 فقط
والكود :
ثم نذهب إلى المشروع ونضغط بيمين الماوس على صفحة العمل ونختار خصائص
نذهب إلى سكريبت ثم On Show ونضع هذا الكود
وهو عبارة عن رسالة مفادها أن الملف wTrans.dll لا يشتغل إلا على
الويندوز إكس بي و 2000 فقط
والكود :
كود:
if blnFade then
Page.StartTimer(50)
else
result = Dialog.Message("OS not Supported", "This DLL will only work on Win2000 and up.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
end
ثم نذهب إلى الخيار On Timer ونضع هذا الكود ثم نضغط OK
الكود
الكود
كود:
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
ثم نذهب إلى الخيار On Startup من قائمة Project ثم نختار Action ونضع هذا الكود
الكود
الكود
كود:
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
واخيرا نضغط F5 لمعاينة المشروع
وفي النهاية ارجوا ان يكون الدرس واضح ومفيد
والي درس اخر ان شاء الله
وفي النهاية ارجوا ان يكون الدرس واضح ومفيد
والي درس اخر ان شاء الله
تعليق