Fa کامل کردن نومنه مثال

loo30fer

کاربر متخصص مولتی مدیا بیلدر
سلام دوستان عزیز
من این نمونه رو درست کردم ولی ..از نظر کد نویسی مورد داره
و یکم کار میکنی ارور ران اسکریپت میده

ممنون میشم دوستی این نمونه مثال رو کامل کنه و توضیحی در موردش بده


http://www.uplooder.net/cgi-bin/dl.cgi?key=78b4e7856d01bf2e2381f80e1e6080cf
چون کار Script هنوزبه پایان نرسیده مجددا اجرا میشه و منجر به خطا میشه که پیغامش رو مشاهده میکنید.
برای جلوگیری از این مشکل کدهای Script رو داخل بلوک If قرار بدین برای مثال بدین شکل :
کد:
If (RunScript=0) Then
RunScript=1
x=MouseX()
y=MouseY()
For i=40 To 55
  If (y=i) Then
    MoveTo("menu","41,41,75,EASYTO")
  End
Next i
******************************
If (y>55) Then
  MoveTo("menu","41,-64,75,EASYTO")
End
If (y<40) Then
  MoveTo("menu","41,-64,75,EASYTO")
End
RunScript=0
RunScript("vista-menu")
End
 

loo30fer

کاربر متخصص مولتی مدیا بیلدر
ممنون . بهتر شد ولی بازم ارور داد

:( :(
کدهاتون رو داخل یک Script جداگانه بذارید و در رویداد MouseOver اون Script رو اجرا کنید دیگه دلیلی واسه نمایش این خطا وجود نداره چون جلوی اجرای مجدد گرفته میشه بهرحال برای احتیاط به جای RunScript از ScriptTimer استفاده کنید.
 

جدیدترین ارسال ها

بالا