رفتن به مطلب
  • 0

مشکل در حلقه for


solmos36

سوال

سلام کار کردن با حلقه فور رو بلدم ولی نمیدونم چرا پایین عمل نمیکنه

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

ببینید این کدهاس تو قسمت addslide مقدار str3 که همون لینک عکس ها است رو ریختم ولی به تعداد لینک ها عکس نشون نمیده و فقط یه عکس باز میکنه

 

ممنون میشم راهنمایی کنید

Dim k() As String = Regex.Split("<img width='95'",get)

For i =1 To k.Length - 1

Dim str3 As String
	 str3 =k(i)
	 
	str3=str3.SubString(str3.IndexOf("' src='") +7)
	
	str3=str3.SubString2(0,str3.IndexOf("' class='") -11) & "450x600.jpg"

	
	Slidert.AddSlide("رنگ بندی متنوع", str3)

	Dim filelist As List = File.ListFiles(File.DirDefaultExternal  )
	
	For Each fi As String In filelist
		Dim Path As String =File.Combine(File.DirDefaultExternal  , fi)
		If fi.LastIndexOf (".JPG")>0 OR fi.LastIndexOf (".png")>0  Then 		
			Slidert.AddSlide(fi , "file:" & Path )
			 
		End If
		
	Next
لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

@@solmos36,

خب شما اومدی با یه اندازه خاصی ریختین داخل ارایه k اگر ده بار اد کنین ممکنه داخل وب سایت تصویر جدید بیاد و یازدهمین تصویر رو باید اپدیت بدید به برنامه

شما از کدوم اسلایدر استفاده میکنید؟

androidslidewrapper ??

سلام

نه یه کتابخونه جدید داخل سایت بیسیک  اگر دقت کنید Slidert.AddSlide("رنگ بندی متنوع", str3) فقط این هست دیگه مگه مقدار dtr3 که ریختم که مربوط به لینکای عکس هست تو هر دور حلقه یه دونه نباید اضافه کنه به این

 

در ضمن ککتابخونه اش واقعا عالیه دانلود کنید

 

https://www.b4x.com/android/forum/threads/image-slider-wrapper-daimajia-androidimageslider.59835/

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما I رو در حلقه برابر صفر بزار یعنی از صفر شروع کنه

بعد تو این خط زیر جای STR3 این دو تارو بزار ببینید درست میشه

Slidert.AddSlide("رنگ بندی متنوع", I)

Slidert.AddSlide("رنگ بندی متنوع", str3.LENGTH)

لود تصاویر مربوط به این قسمته بنظرم

For Each fi As String In filelist
		Dim Path As String =File.Combine(File.DirDefaultExternal  , fi)
		If fi.LastIndexOf (".JPG")>0 OR fi.LastIndexOf (".png")>0  Then 		
			Slidert.AddSlide(fi , "file:" & Path )
			 

با خط زیرمیاد لیست میکنه و با کد بالا تمام تصاویر با فرمت خاص رو لود میکنه

Dim filelist As List = File.ListFiles(File.DirDefaultExternal  )

فکر کنم شما باید داخل حلقه مقدار STR3 رو بریزید داخل fi به اینصورت

fi = STR3
لینک ارسال
به اشتراک گذاری در سایت های دیگر

ممنون ولی نشد باطم ببینید الان اگر من به جای str ده تا addslide بزنم و str رو لینک معمولی بدم خیلی راحت تو همشون عکس ها مختلف لود میشند ولی نمیدونم چرا تو فور عمل نمیکنن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

@@solmos36,

خب شما اومدی با یه اندازه خاصی ریختین داخل ارایه k اگر ده بار اد کنین ممکنه داخل وب سایت تصویر جدید بیاد و یازدهمین تصویر رو باید اپدیت بدید به برنامه

شما از کدوم اسلایدر استفاده میکنید؟

androidslidewrapper ??

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...