age mishe in nemone ro doros konid
man k har kary kardam nashod
mikham aks az samte chap be rast harekat kone
mer30
MoveTo("obj$","-801,1,10")
سلامدوست عزيز
مثالتون اصلاح و پيوست شد

منظورتون از افکت چی هست؟میشه جای عکس که گذاشتید چندین عکس قرار بدبد و وقتی به چپ و راست میره با افکت یا سرعت پایین تر بره؟
بله این امکان هم هستدیگه اینکه جای این عکس ها فیلم قرار بگیره؟و با کلیک روی هر فیلم اون فیلم پخش بشه....ا؟
فقط لازمه عکسها رو در کنار هم قرار بدین و اونها رو Group کنید و نام Group رو جایگزین نام Bitmap کنید. برای افکت در هنگام حرکت دادن عکس هم یک نگاهی به مثالی که جناب msnv بندازین میتونید ازش ایده بگیرین و استفاده کنید. و برای پایین آوردن سرعت حرکت عکسها هم تو دستور MoveTo عدد آخری که 10 هست رو به بالاتر تغییر بدین مثلا 30 ضمنا اگه با نحوه استفاده از دستورات انتقال شی ها مشکل داشتین تو این تاپیک برای یکی از دوستان توضیح دادم امیدوارم مفید واقع بشه.-میشه جای عکس که گذاشتید چندین عکس قرار بدبد و وقتی به چپ و راست میره با افکت یا سرعت پایین تر بره؟
بله میشه جای عکسها فیلم قرار داد ولی هم جالب نمیشه و هم نمیشه براش افکت در نظر گرفت به جاش میتونید روی جای عکسها یک شی HotSpot قرار بدین و توی HotSpot تعریف کنید که اسمی رو که تو متغیر ریخته میشه رو پخش کنه یک نگاهی به کدی که نوشتم بندازین متوجه میشین:دیگه اینکه جای این عکس ها فیلم قرار بگیره؟و با کلیک روی هر فیلم اون فیلم پخش بشه....ا؟
NumList = 5
NextPic = NextPic + 1
List = NextPic
If (NextPic<>6) Then
List = List * 2
List$[1]=CHAR(List)
List = List + 1
List$[2]=CHAR(List)
List = List + 1
List$[3]=CHAR(List)
List = List + 1
List$[4]=CHAR(List)
Else
NextPic=5
End
Path$ = '<SrcDir>\Video\\'+List$[1]+'.mpg'
VideoLoad("Video","<SrcDir>\")
VideoPlay("Video")









