مولتی پنل

[mostafa.kasiri 115]

با سلام

یک کمک می خواستم که من یک مولتی پنل ساختم

می خوام عکس های داخل یک پوشه در پولتی پنل نمایش بده 

و برای فیلم هم جدا توی یک مولتی پنل دیگر

باید چی کار کنم اینم کدهام

این مال لیست ویو هست ولی

Sub ListFolderContent(folder As String) As String
	Dim fileList As List
	Dim n As Int

	fileList = File.ListFiles(path1)
	fileList.Sort(True)

	For n = 0 To fileList.Size-1
		file1 = fileList.Get(n)
		ListView1.AddSingleLine(file1)
	Next
End Sub


اینم کد مولتی پنلم
	For i =  0 To 15
		Dim p As Panel
		p.Initialize("")
		ScrollView1.Panel.AddView(p,3%x,top,94%x,270dip)
		p.LoadLayout("layout3")
		Img.Color = Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))
		top = top +270dip + 3%x
		btndel.TextSize = 5*a
		btnshare.TextSize = 5*a
	Next
	ScrollView1.Panel.Height = top

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

[sbr 233]

در 3 ساعت قبل، mostafa.kasiri گفته است :

با سلام

یک کمک می خواستم که من یک مولتی پنل ساختم

می خوام عکس های داخل یک پوشه در پولتی پنل نمایش بده 

و برای فیلم هم جدا توی یک مولتی پنل دیگر

باید چی کار کنم اینم کدهام

این مال لیست ویو هست ولی

Sub ListFolderContent(folder As String) As String
	Dim fileList As List
	Dim n As Int

	fileList = File.ListFiles(path1)
	fileList.Sort(True)

	For n = 0 To fileList.Size-1
		file1 = fileList.Get(n)
		ListView1.AddSingleLine(file1)
	Next
End Sub


اینم کد مولتی پنلم
	For i =  0 To 15
		Dim p As Panel
		p.Initialize("")
		ScrollView1.Panel.AddView(p,3%x,top,94%x,270dip)
		p.LoadLayout("layout3")
		Img.Color = Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))
		top = top +270dip + 3%x
		btndel.TextSize = 5*a
		btnshare.TextSize = 5*a
	Next
	ScrollView1.Panel.Height = top

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

سلام دوست عزیز 

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

یعنی باید اول یکی یکی فایل های درون پوشه رو چک کنید و شرط بزارید اگه عکس بود به لیست  اضافش کنه 

اینطوری 

	For n = 0 To fileList.Size-1
		file1 = fileList.Get(n)
		If file1.EndsWith(".jpg") Or file1.EndsWith(".jpeg") Or file1.EndsWith(".png") Then
			listview1.AddSingleLine(file1)
		Else
			
		End If

	Next

الان با این کار فقط عکسها به لیست یا لیست ویوو مورد نظر شما اضافه میشه 

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

[mostafa.kasiri 115]

خب چه طوری باید در مولتی پنل قرار بدم؟؟

[sbr 233]

در 20 دقیقه قبل، mostafa.kasiri گفته است :

خب چه طوری باید در مولتی پنل قرار بدم؟؟

چ سوال قشنگی 

قبلش یه سوال دارم شما که میخواید مولتی پنل بسازید چرا لیست ویوو تعریف کردید و چرا ایتم ها رو به لیست ویوو اضاف کردید ؟!(به جای لیست ویوو یه لیست دیگه تعریف کنید و ایتم هاتون که پسونندشون چک شد رو توی لیست جدید بزارید..... مثلا list2 )

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

توی لایوتتون ه قراره توی مولتی پنل لور بشه یه ایمیج ویوو بزارید 

و توی حلقه مولتی پنل باید بگید 

	For i =  0 To list2.size - 1
		Dim p As Panel
		p.Initialize("")
		ScrollView1.Panel.AddView(p,3%x,top,94%x,270dip)
		p.LoadLayout("layout3")
		img.SetBackgroundImage(LoadBitmap(Address,list2.Get(i)))
		top = top +270dip + 3%x
		btndel.TextSize = 5*a
		btnshare.TextSize = 5*a
	Next
	ScrollView1.Panel.Height = top

خب طبق کد خودتون اینجوری میشه 

اونجا که نوشتم Address مسیر پوشه ای که عکسهات توش هستن رو میدید و list2  همون لیتسه که فقط اسم عکس هامون توش هست 

[mostafa.kasiri 115]

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

در 4 ساعت قبل، sbr گفته است :

If file1.EndsWith(".jpg") Or file1.EndsWith(".jpeg") Or file1.EndsWith(".png") Then listview1.AddSingleLine(file1) Else End If

با این کد اگر 1 عکس هم وجود داشته باشه عکس رو نمایش میده ولی برا ینمایش فیلم  مشکل داره

[Radiomedia 36]

در 9 ساعت قبل، mostafa.kasiri گفته است :

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

با این کد اگر 1 عکس هم وجود داشته باشه عکس رو نمایش میده ولی برا ینمایش فیلم  مشکل داره

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

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

اگر درست نبود حتما متوجه سوالت نشدم، ببخشید، نقل قول بزن توضیح بیشتر خواستی..

[mohammad3250 206]

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

For i =  0 To list2.size - 1
if i%2=0 then
دستورات لود عکس
	next
else
	دستورات لود فیلم
	Next
end if
		

 

[mostafa.kasiri 115]

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

خطا میده 

این کل ساب

 

Sub ListFolderContent(folder As String) As String
	Dim fileList As List
	Dim n As Int

	fileList = File.ListFiles(path1)
	fileList.Sort(True)

	For n = 0 To fileList.Size-1
		file1 = fileList.Get(n)
		ListView1.AddSingleLine(file1)
	Next
End Sub