تبديل عرض شرائح الصور (باستخدام تأثيرات الماوس الخاصة)

<!--أضف التعليمات البرمجية التالية إلى منطقة الباودي--> <SCRIPT language="VBScript"> Dim FileList,FileListArr,TxtList,TxtListArr FileList = "/img/200406301.jpg,/img/200406302.jpg,/img /200406303.jpg" //قائمة ملفات الصور TxtList = "<a href=http://www.downcodes.coml target=_blank>أكاديمية بناء المواقع 1</a>,<a href=http://www.downcodes com/ target=_blank>أكاديمية بناء المواقع 2</a>,<a href=http://www.downcodes.com/ target=_blank>أكاديمية بناء المواقع 3</a>" // قائمة وصف النص FileListArr = . Split(FileList ,"،"،) TxtListArr = Split(TxtList،"،"،) Dim CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 Dim FilterStr FilterStr = "RevealTrans(duration=2,transition=23)" FilterStr = FilterStr + ";BlendTrans(duration=2)" If CanPlay ثم FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(),enabled=false, Duration=2 ,maxSquare=25)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duration=2, gradientSize=0.25 ,motion=forward )" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Stretch(duration=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2, Spokes=16 )" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RandomDissolve(duration=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50) " FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide(duration=2,bands=1,slideStyle=SWAP)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(duration=2,wipeStyle=CLOCK) " FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse) " آخر Msgbox "يحتوي عرض الشرائح على مجموعة متنوعة من تأثيرات تبديل الصور الديناميكية، ولكن هذه الوظيفة تتطلب أن يكون متصفحك IE5.5 أو أعلى، وإلا فلن تتمكن إلا من رؤية جزء من تأثيرات التبديل. ",64 End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 'وقت التبديل (ملي ثانية) Dim I I = 1 Sub ChangeImg Do while FileListArr(I)="" I = I + 1 إذا كنت> UBound(FileListArr) فأنا = 0 حلقة // المزيد من جافا سكريبت من http://www.downcodes.com Dim J إذا كنت> UBound(FileListArr) ثم I = 0 Randomize J = Int(Rnd * (UBound(FilterArr) )+1)) Img.style.filter = FilterArr(J) Img.filters(0).Apply Img.Src = FileListArr(I) Img.filters(0).play Txt.filters(0).تطبيق Txt.innerHTML = TxtListArr(I) Txt.filters(0).play() I = I + 1 إذا I>UBound(FileListArr) ثم I = 0 TempImg.Src = FileListArr(I) SetTimeout "ChangeImg"، PlayImg_M، "VBScript" End فرعي </SCRIPT> <TABLE WIDTH="100%" height="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR ID="NoScript"><TD Align="Center" Style="Color:White">عذرًا، تتطلب وظيفة تصفح الصور دعم البرنامج النصي، ولكن تم ضبط متصفحك على منع تشغيل البرامج النصية. يرجى ضبط خيارات الأمان ذات الصلة في إعدادات المتصفح. </TD></TR>< TR Style = "العرض: لا شيء" ID = "CanRunScript"> الارتفاع = "100٪" محاذاة = "المركز" vAlign = "المركز"> <Img ID = "Img" الارتفاع = "200" العرض = "250" Border="0" </TD></TR><TR Style="Display:none"><TD><Img ID="TempImg" Border="0"></TD></TR><TR ><TD HEIGHT = "100%" Align = "Center" vAlign = "Center"><div ID = "Txt" style = "PADDING-LEFT: 5px; Z-INDEX: 1; FILTER: progid:DXImageTransform.Microsoft. Fade(duration=1,overlap=0); TR ></TABLE> <Script Language="VBScript"> NoScript.Style.Display = "none" CanRunScript.Style.Display = "" Img.Src = FileListArr(0) SetTimeout "ChangeImg"، PlayImg_M،"VBScript" < / البرنامج النصي>