زوم کردن عکس در گالری

[shahab1392 47]

با سلام خدمت تمام دوستان گرامی

عزیزان یک سورس گالری قرار دادم لطف کنید راهنمایی کنید که چطور میشه وقتی بر روی یکی از عکس ها که کلیک شد بصورت فول اسکرین بشه و تمام صفحه نشون داده بشه ؟

CGallery.rar

[shahab1392 47]

اساتید سورس رو حداقل یه نگاه بندازید....

[eghmaa 71]

باید اول یک پنل درست کنید.. پس:

Sub Globals 
  Dim mygallery As ClsCustomGallery  
 Dim panel1 As Panel
End Sub

و بعد اون رو در Activity_Create اینشیالایز کنید:

panel1.Initialize("panel1")

سپس کد های زیر رو در قسمت Gallery_OnClick بنویسید:

Sub Gallery_OnClick(Thumbnail As Panel)  
 Activity.AddView(panel1,0,0,100%x,100%y)  
 panel1.SetBackgroundImage(LoadBitmap(File.DirAssets, "image" & Thumbnail.Tag & ".jpg"))
End Sub

در آخر کد زیر رو در رویداد کلیک پنلتون بنویسید:

Sub panel1_click
panel1.RemoveView
End Sub

موفق باشید.

[پژمان نیکروان 6,055]

نمیدونم منظورت رو درست متوجه شدم یانه،برای اینکه لیست عکس های یه پوشه رو بگیری باید اینکارو بکنی:

Dim list1 As List
list1.Initialize
list1=File.ListFiles(File.DirRootExternal&"/Poshe")

هرچی فایل تو این پوشه هست میریزه تو لیست مورد نظرت.

طبیعیه که اگه هم فایلی داخل اون پوشه نباشه list1.size صفر میشه، میتونه با یک شرط محاسبش کنی.

و برای اینکه که تو این پوشه فقط عکسارو بگیره ، بعد از اینکه لیست فایل ها ریخته شد میتونید با حلقه فور شرط بذاری که تو لیست بگرده و اونایی که پسوند عکس دارن مثل: png,jpg و... رو بذاره و بقیه رو پاک کنه.

[shahab1392 47]

با سلام خدمت اساتید محترم

من میخواستم بدونم چطور میشه با یک حلقه و یا چیز دیگه ای داخل یک پوشه رو نشون داد

 

مثلا : ما یک برنامه عکاسی داریم که فعلا داخل پوشه اون چیزی وارد نشده و عکسی گرفته نشده اگر روی ان کلیک شد پیغام بده که هیچ عکسی وارد نشده

 

و اگر حتی یک عکس بود اون رو فقط نشون بده و همین طور اگه عکس های دیگه ای گرفتیم رو نشون بده

 

مثلا نمیخوام که حلقه for تعداد رو مشخص کنه من میخوام زیاد باشه

	For i = 1 To 4
		MyGallery3.AddThumbnail(LoadBitmap(File.DirAssets, "image" & i & ".jpg"), i)

	Next

[bidgol 83]

سلام

دوستان براي من موقع اجرا اين خطا را مي دهد يعني چي؟

UNEXPECTED TOP-LEVEL EXCEPTION:
java.lang.IllegalArgumentException: already added: Lanywheresoftware/b4a/source/ZoomFunctionality$1;
    at com.android.dx.dex.file.ClassDefsSection.add(ClassDefsSection.java:123)
    at com.android.dx.dex.file.DexFile.add(DexFile.java:163)
    at com.android.dx.command.dexer.Main.processClass(Main.java:486)
    at com.android.dx.command.dexer.Main.processFileBytes(Main.java:455)
    at com.android.dx.command.dexer.Main.access$400(Main.java:67)
    at com.android.dx.command.dexer.Main$1.processFileBytes(Main.java:394)
    at com.android.dx.cf.direct.ClassPathOpener.processArchive(ClassPathOpener.java:245)
    at com.android.dx.cf.direct.ClassPathOpener.processOne(ClassPathOpener.java:131)
    at com.android.dx.cf.direct.ClassPathOpener.process(ClassPathOpener.java:109)
    at com.android.dx.command.dexer.Main.processOne(Main.java:418)
    at com.android.dx.command.dexer.Main.processAllFiles(Main.java:329)
    at com.android.dx.command.dexer.Main.run(Main.java:206)
    at com.android.dx.command.dexer.Main.main(Main.java:174)
    at com.android.dx.command.Main.main(Main.java:95)
1 error; aborting
    Optimized dexer failed. Switching to Standard dexer.