لیست ویو در گالری

[naser sahami 90]

سلام بر رفقا کسی میتونه یه مثال لیست ویو بزنه برای گالری بدون دیتابیس  که هر آیتمش یه عده عکس مخصوصا لود کنه ؟

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

سلام.

میتونید عکساتون رو از 0 تا تعداد عکس ها نام گذاری کنید ، مثلا اینجوری:

0.png

1.png

2.png و...

و تو پوشه فایل اضافش کنید.

 

بعد به این صورت به لیست ویو اضافه کنید. مثال:

For i=0 To 9
listview1.AddTwoLinesAndBitmap("عکس"&i,"",LoadBitmap(File.DirAssets,i&".png"))
Next

بعد از آیتم کلیک لیست ویو هم میتونید به این شکل استفاده کنید که یه imageview تمام صفحه اد کنید و که روی آیتم ها کلیک شد عکسو بزرگ نشون بده.

Sub listview1_ItemClick (Position As Int, Value As Object)
	imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,Position&".png"))
End Sub

[naser sahami 90]

 

سلام.

میتونید عکساتون رو از 0 تا تعداد عکس ها نام گذاری کنید ، مثلا اینجوری:

0.png

1.png

2.png و...

و تو پوشه فایل اضافش کنید.

 

بعد به این صورت به لیست ویو اضافه کنید. مثال:

For i=0 To 9
listview1.AddTwoLinesAndBitmap("عکس"&i,"",LoadBitmap(File.DirAssets,i&".png"))
Next

بعد از آیتم کلیک لیست ویو هم میتونید به این شکل استفاده کنید که یه imageview تمام صفحه اد کنید و که روی آیتم ها کلیک شد عکسو بزرگ نشون بده.

Sub listview1_ItemClick (Position As Int, Value As Object)
	imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,Position&".png"))
End Sub

[naser sahami 90]

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

[amz 3]

سلام

بر قرض مثال اسامی عکس های شما از 0 شروع میشه تا مثلا 4.یعنی در مجموع 5 تا عکس چون از 0 شروع شده دیگه.

شما کاری که می کنید تگ پنل رو همین مقدار قرار میدید.

یعنی همچین کدی میشه :

For i = 0 To 4
 Dim P As Panel
 P.Initialize("p")
 P.Tag = i
 .
 .
 .
Next

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

حالا می خوایید روی هر کدوم کلیک شد عکس مورد نظرشو نشون بده ، برای اینکار شما اگه از اکتیویتی دیگه ای استفاده می کنید(یعنی با کلیک روی هر پنل قراره عکس متناظرش در اکتیویتی دیگه ای نمایش داده بشه ) باید یک متغییر در Proccess_Globals  تعریف کنید به این اسم :

Dim obj As Object

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

 

Sub p_Click

 Dim MyPanel As Panel
 MyPanel = Sender
 obj = MyPanel.Tag
 StartActivity(Activity Shuma)
 Activity.Finish

End Sub

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

فرضا توی اکتیویتی که عکسو نمایش می دیم یک ایمیج ویو داریم به اسم img

 کدی که می نویسیم به این شکله :

Sub Activity_Create(FirstTime As Boolean)

 Dim B As Bitmap
 B = LoadBitmap(File.DirAssets,obj&".png")
 img.Bitmap = B

End Sub

موفق باشید.

سلام من همین کارو کردم گوشی کلا هنگ میکنه چیکار کنم؟

[مجید آرتا 5,870]

سلام من همین کارو کردم گوشی کلا هنگ میکنه چیکار کنم؟

سلام

چطور هنگ میکنه ؟

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

یا بعد از چندین بار سوییچ کردن هنگ می کنه ؟

[naser sahami 90]

من یه لیست ویو یا مولتی پنل میخوام  که رو هرکدام علی و حسن و... کلیک شد عکسای مخصوص اونا نشون بده  مثل عکس زیر بدون دیتابیس. لطفا کامل توضیح بدید

[alirezn 68]

من یه لیست ویو یا مولتی پنل میخوام  که رو هرکدام علی و حسن و... کلیک شد عکسای مخصوص اونا نشون بده  مثل زیر بدون دیتابیس لطفا کامل توضیح بدید

پژمان جان چی گفت پس؟

[naser sahami 90]

توضیح کامل ترمیخوام

[مجید آرتا 5,870]

سلام

بر قرض مثال اسامی عکس های شما از 0 شروع میشه تا مثلا 4.یعنی در مجموع 5 تا عکس چون از 0 شروع شده دیگه.

شما کاری که می کنید تگ پنل رو همین مقدار قرار میدید.

یعنی همچین کدی میشه :

For i = 0 To 4
 Dim P As Panel
 P.Initialize("p")
 P.Tag = i
 .
 .
 .
Next

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

حالا می خوایید روی هر کدوم کلیک شد عکس مورد نظرشو نشون بده ، برای اینکار شما اگه از اکتیویتی دیگه ای استفاده می کنید(یعنی با کلیک روی هر پنل قراره عکس متناظرش در اکتیویتی دیگه ای نمایش داده بشه ) باید یک متغییر در Proccess_Globals  تعریف کنید به این اسم :

Dim obj As Object

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

 

Sub p_Click

 Dim MyPanel As Panel
 MyPanel = Sender
 obj = MyPanel.Tag
 StartActivity(Activity Shuma)
 Activity.Finish

End Sub

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

فرضا توی اکتیویتی که عکسو نمایش می دیم یک ایمیج ویو داریم به اسم img

 کدی که می نویسیم به این شکله :

Sub Activity_Create(FirstTime As Boolean)

 Dim B As Bitmap
 B = LoadBitmap(File.DirAssets,obj&".png")
 img.Bitmap = B

End Sub

موفق باشید.

[naser sahami 90]

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