PDA

View Full Version : تصویر بعدی و قبلی در FileListBox



masoud.r
شنبه 21 فروردین 1389, 23:06 عصر
من برنامه ای نوشتم که در ویندوز ادرس یک پوشه رو میدی بهش و تمام تصاویر در اون پوشه در یک FileListBox بارگذاری میشه, الان میخوام دو Command بزارم به عنوان Next و Comman دیگری برای Back یعنی وقتی روی Next کلیک میکنیم عکس بعدی نشان دهد و Back کلیک کردیم عکس قبلی که در FileListox قرار دارد
ممنون میشوم دوستان راهنمایی کنند به چه صورت و با چه تابعی امکان پذیر است

xxxxx_xxxxx
یک شنبه 22 فروردین 1389, 19:33 عصر
سلام،
اول اینکه به سایت برنامه نویس خوش آمدید.
دوم اینکه، برای تاپیک عنوان مناسبی انتخاب کنید. (عنوان تاپیک ویرایش شد)
سوم اینکه ابزار FileListBox خاصیت Pattern داره که میتونید اونو طوری تنظیم کنید که فقط تصاویر رو نمایش بده:


File1.Pattern = "*.jpg;*.gif;*.bmp"
برای Next می تونید اینطور بنویسید:


File1.ListIndex = File1.ListIndex + 1
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
برای Previous هم بجای +1 بنوسید -1

موفق باشید/

masoud.r
یک شنبه 22 فروردین 1389, 20:48 عصر
با تشکر از پاسخ شما دوست عزیز
اما یک سوال دیگر : وقتی به اخر عکس ها میرود و اگر Next را دوباره کلیک کرد برنامه خطا میدهد چطور میتوان برای برنامه طوری نوشت که بعد از اینکه اگر عکس اخر هم که بود و مجدد Next زدیم یک msgbox باز شود و در ان مثال خطایی به عنوان " عکسها به پایان رسید " نمایش داده شود

xxxxx_xxxxx
یک شنبه 22 فروردین 1389, 20:53 عصر
اگر متد ListIndex با متد ListCount برابری کند، به این معنی است که آیتم آخر از لیست انتخاب شده. اما چون شماره آیتم ها از 0 شروع میشه و ListCount ju تعداد آیتم ها رو بر میگردونه، یک واحد از ListCount کم می کنیم و بعد شرط رو بررسی می کنیم:


If File1.ListIndex = File1.ListCount - 1 Then ...