مشکل در لیست ویو

[reza sabouri 444]

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

بنده اطلاعات لیست ویومو از دیتابیس میگیرم

این هم کدهامه

Sub Globals
	
	
	Dim listview1 As ListView
	Dim sql1 As SQL
	Dim cur1 As Cursor
	


End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("Layout1")
	
	If File.Exists(File.DirInternal,"news.db") = False Then
		File.Copy(File.DirAssets,"news.db",File.DirInternal,"news.db")
	End If
	
	If sql1.IsInitialized = False Then
	 	sql1.Initialize(File.DirInternal,"news.db",True)
	End If

	
    
cur1 = sql1.ExecQuery ("SELECT * FROM tbl1")
   For i = 0 To cur1.RowCount - 1
       cur1.Position = i
       listview1.AddSingleLine (cur1.GetString ("onvan"))
	 	Next
	

End Sub

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

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

 

Sub Globals
	
	
	Dim listview1 As ListView
	Dim sql1 As SQL
	Dim cur1 As Cursor
	


End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("Layout1")
	
	If File.Exists(File.DirInternal,"news.db") = False Then
		File.Copy(File.DirAssets,"news.db",File.DirInternal,"news.db")
	End If
	
	If sql1.IsInitialized = False Then
	 	sql1.Initialize(File.DirInternal,"news.db",True)
	End If

	
    
cur1 = sql1.ExecQuery ("SELECT * FROM tbl1")
   For i = 0 To cur1.RowCount - 1
       cur1.Position = i
       	   listview1.AddTwoLinesAndBitmap(cur1.GetString("onvan"),cur1.GetString(""),cur1.GetBlob("picture"))
			
	Next
	

End Sub

 

 

 

[softir 459]

در 19 ساعت قبل، 2roshke گفته است :

ممنونم ، دستتون درد نکنه ، مستقیم که میذارم ، قبول میکنه ، ولی از دیتابیس نه . بازم ازتون خیلی خیلی متشکرم

سلام

دیروز این رو ساختم ببین مشکلت حل می شه ( فایلی رو که گذاشتم دانلود کن )

http://s8.picofile.com/file/8274845242/search_img.zip.html

 

[reza sabouri 444]

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

" فراخانی خود عکسها ، نه آدرسشون"

البته با یکمی جست و جوی بیشتر تو سایت

و خود آقای مهدی ایزدی هم جوابشو داده بودن

Dim bit1 As Bitmap
	   Cur = SQL.ExecQuery("SELECT * FROM tbl")
    Cur.Position = 0
    Dim Buffer() As Byte
    Buffer = Cur.GetBlob("image")
    Dim InputStream1 As InputStream
    InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
    bit1.Initialize2(InputStream1)
    InputStream1.Close
	Cur.Close

[softir 459]

در هم اکنون، 2roshke گفته است :

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

" فراخانی خود عکسها ، نه آدرسشون"

البته با یکمی جست و جوی بیشتر تو سایت

و خود آقای مهدی ایزدی هم جوابشو داده بودن

Dim bit1 As Bitmap
	   Cur = SQL.ExecQuery("SELECT * FROM tbl")
    Cur.Position = 0
    Dim Buffer() As Byte
    Buffer = Cur.GetBlob("image")
    Dim InputStream1 As InputStream
    InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
    bit1.Initialize2(InputStream1)
    InputStream1.Close
	Cur.Close

البته عکس ها رو تو دیتا بیس ذخیره نکنی خیلی بهتره . حالت آدرسی جالبتره

[reza sabouri 444]

در 5 دقیقه قبل، softir گفته است :

البته عکس ها رو تو دیتا بیس ذخیره نکنی خیلی بهتره . حالت آدرسی

میشه بگین چه فرقی میکنه ؟ من فکر میکردم تو دیتابیس باشه بهتره و روونتر میشه برنامه

[softir 459]

در هم اکنون، 2roshke گفته است :

میشه بگین چه فرقی میکنه ؟ من فکر میکردم تو دیتابیس باشه بهتره و روونتر میشه برنامه

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

[Mehdi.s 173]

سلام

با استفاده از کد زیر که براتون اماده کردم میتونید یه لیست ویو فارسی(راست چین) و استاندارد طراحی کنید

یک سری خاصیت هایی هم اضافه کردم که میتونید بسته به سلیقه خودتون تغیر بدید

Dim imgs As ImageView
imgs.Initialize("imgs")

imgs = listview1.TwoLinesAndBitmap.ImageView
imgs.Gravity = Gravity.RIGHT
imgs.Height=70dip
imgs.Width=70dip
imgs.Left = Activity.Width - imgs.Width-10dip


Dim lbls As Label
lbls.Initialize("lbls")
	
lbls= listview1.TwoLinesAndBitmap.Label
lbls.Gravity = Gravity.RIGHT
lbls.TextColor = Colors.White
lbls.TextSize =16
lbls.Height=80dip
lbls.Gravity=Gravity.CENTER_VERTICAL
lbls.Width=Activity.Width-imgs.Width-50dip
lbls.Left=lbls.Left-30dip

موفق باشید

[reza sabouri 444]

آقا مهدی مرسی و ممنونم که بازم پاسخ دادین ، ولی اینبار مشکلم حل نشد

طبق کدهایی که فرستادم ، لیست ویوم ایجاد میشه ، ولی من که اومدم و راست چینش کردم ، قسمت ابتدایی متن ها قابل مشاهده نیستن

اینم از عکسش

 

و وقتی هم که میخوام دو لاینش کنم و یک عکس از دیتابیس واسش بگیرم ، خطا میده ( همون عکس دومی که بالا فرستادم)

[Amral 83]

در 2 ساعت قبل، 2roshke گفته است :

آقا مهدی مرسی و ممنونم که بازم پاسخ دادین ، ولی اینبار مشکلم حل نشد

طبق کدهایی که فرستادم ، لیست ویوم ایجاد میشه ، ولی من که اومدم و راست چینش کردم ، قسمت ابتدایی متن ها قابل مشاهده نیستن

اینم از عکسش

 

و وقتی هم که میخوام دو لاینش کنم و یک عکس از دیتابیس واسش بگیرم ، خطا میده ( همون عکس دومی که بالا فرستادم)

امتحان کنید ببینید این کد جواب میده:

Dim lbl  As Label
lbl= lv.SingleLineLayout.Label
lbl.Gravity=Gravity.right
lbl.Width = 95%x

lv اسم لیست ویو شماست

[reza sabouri 444]

در 32 دقیقه قبل، amral گفته است :

امتحان کنید ببینید این کد جواب میده:

Dim lbl  As Label
lbl= lv.SingleLineLayout.Label
lbl.Gravity=Gravity.right
lbl.Width = 95%x

lv اسم لیست ویو شماست

بله دستتون درد نکنه ، مشکل اولم کاملا حل شد

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

خیلی خیلی ممنونم ازتون

[Mehdi.s 173]

شما نگاه کنید داخل دیتابیس ببینید فیلد picture از نوع Blob انتخاب شده؟!

در 4 ساعت قبل، مهدی صیدی عشقی گفته است :

Dim imgs As ImageView imgs.Initialize("imgs") imgs = listview1.TwoLinesAndBitmap.ImageView imgs.Gravity = Gravity.RIGHT imgs.Height=70dip imgs.Width=70dip imgs.Left = Activity.Width - imgs.Width-10dip Dim lbls As Label lbls.Initialize("lbls") lbls= listview1.TwoLinesAndBitmap.Label lbls.Gravity = Gravity.RIGHT lbls.TextColor = Colors.White lbls.TextSize =16 lbls.Height=80dip lbls.Gravity=Gravity.CENTER_VERTICAL lbls.Width=Activity.Width-imgs.Width-50dip lbls.Left=lbls.Left-30dip

اگه لیست ویو شما تمام صفحه باشه 100% این کدی که من اول فرستادم براتون درست اجرا میشه

تو کد لیست ویو دو خطی نوشتید ولی تو عکس اونجوری نیست!

الان مشکل چیه؟ خطا میده یا عکس رو نشون نمیده؟

 

[reza sabouri 444]

بله blob  انتخابش کردم

اینم از کدها

Sub Process_Globals


End Sub

Sub Globals
	
	
	Dim listview1 As ListView
	Dim sql1 As SQL
	Dim cur1 As Cursor


	


End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("Layout1")
	
	If File.Exists(File.DirInternal,"news.db") = False Then
		File.Copy(File.DirAssets,"news.db",File.DirInternal,"news.db")
	End If
	
	If sql1.IsInitialized = False Then
	 	sql1.Initialize(File.DirInternal,"news.db",True)
	End If

	
    
cur1 = sql1.ExecQuery ("SELECT * FROM tbl1")
   For i = 0 To cur1.RowCount - 1
       cur1.Position = i
    
	   listview1.AddTwoLinesAndBitmap(cur1.GetString("onvan"),cur1.GetString(""),cur1.GetBlob("picture"))




Dim imgs As ImageView
imgs.Initialize("imgs")

imgs = listview1.TwoLinesAndBitmap.ImageView
imgs.Gravity = Gravity.RIGHT
imgs.Height=70dip
imgs.Width=70dip
imgs.Left = Activity.Width - imgs.Width-10dip


Dim lbls As Label
lbls.Initialize("lbls")
	
lbls= listview1.TwoLinesAndBitmap.Label
lbls.Gravity = Gravity.RIGHT
lbls.TextColor = Colors.White
lbls.TextSize =16
lbls.Height=80dip
lbls.Gravity=Gravity.CENTER_VERTICAL
lbls.Width=Activity.Width-imgs.Width-50dip
lbls.Left=lbls.Left-30dip


			
			Next
	
	

End Sub

اینم اسکرین خطا

[Amral 83]

در 1 ساعت قبل، 2roshke گفته است :

بله دستتون درد نکنه ، مشکل اولم کاملا حل شد

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

خیلی خیلی ممنونم ازتون

حقیقتش من کار با دیتابیس رو خیلی بلد نیستم

در ضمن اگه بخواین از لیست ویو 2 خطه به همراه عکس استفاده کنید باید تو کد بالا یک تغییری ایجاد کنید که اینجوری میشه

dim lbl1 As label
dim lbl 2 As label

lbl1= lv.TwoLinesAndBitmap.Label
lbl1.Gravity=Gravity.right
lbl1.Width = 95%x

lbl2 = lv.TwoLinesAndBitmap.SecondLabel
lbl2.Gravity=Gravity.right
lbl2.Width = 95%x

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

Dim image As ImageView

image = lv.TwoLinesAndBitmap.ImageView
image.Gravity = Gravity.RIGHT
image.Left = Activity.Left-30dip

اگه عکس محل یه کم به سمت چپ بود اون عدد 30 رو کم یا زیاد کن .

 

در ضمن اگه راه غیر دیتابیسیش رو بخواید فکر کنم بتونم کمک کنم

[reza sabouri 444]

نه داداش با این هم حل نشد ، بازم هر دوتون دستتون درد نکنه و دمتون گرم که جواب دادین

 

[Amral 83]

در 5 دقیقه قبل، 2roshke گفته است :

نه داداش با این هم حل نشد ، بازم هر دوتون دستتون درد نکنه و دمتون گرم که جواب دادین

 

این مطلبی که خدمتتون عرض کردم بعد از اینکه عکس رو از دیتابیس بگیرید عمل میکنه

و حقیقتش  چون از دیتابیس چیزی سرم نمیشه کمکی نمیتونم بکنم

[Mehdi.s 173]

شما یه عکس از ساختار جدول پایگاه داده بفرستید...

[reza sabouri 444]

بفرمایید

 

[Mehdi.s 173]

به جای این که مستقیم از دیتابیس عکس لیست ویو رو بگیرید

در 7 ساعت قبل، 2roshke گفته است :

cur1.GetBlob("picture")

 

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

 

[reza sabouri 444]

ممنونم ، دستتون درد نکنه ، مستقیم که میذارم ، قبول میکنه ، ولی از دیتابیس نه . بازم ازتون خیلی خیلی متشکرم

[reza sabouri 444]

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

سلام

دیروز این رو ساختم ببین مشکلت حل می شه ( فایلی رو که گذاشتم دانلود کن )

http://s8.picofile.com/file/8274845242/search_img.zip.html

 

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

[softir 459]

در هم اکنون، 2roshke گفته است :

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

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

چند ساعت دیگه امتحان کن