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

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


حمید حمید

سوال

سلام دوستان 

من یه متن دارم که اون رو تو یازده تا ردیف نوشتمش (توی دیتابیس آفلاین) با حلقه for  که استفاده میکنم تو label فقط متن ردیف آخر رو برام نشون میده

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

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

Sub Globals

   Dim lbl As Label
   Dim cur As Cursor
   Dim su As StringUtils
   Dim ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Main.sql.Initialize(File.DirInternal,"1376rjggu.db",True)   
	ScrollView1.Initialize(600%y)     
    Activity.AddView(ScrollView1,0,0,100%x,100%y)

    cur = Main.sql.ExecQuery("SELECT * FROM tbltest")
	For i = 0 To cur.RowCount - 1
		cur.Position = i
		lbl.Initialize("")
		lbl.Text = cur.GetString("matn")
		lbl.Color = Colors.White
		lbl.TextColor = Colors.Black
		lbl.Typeface = Typeface.DEFAULT_BOLD
		ScrollView1.Panel.AddView(lbl,15dip,15dip,100%x-30dip,100%y)
		lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)
		ScrollView1.Panel.Height = lbl.Height + 15dip
	
	Next
	
End Sub

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

tt.Text = tt.Text & cur.GetString("matn") & CRLF

همه رو هم از نوع EditText  کردم اینطوری نوشتم بازم فرقی نکرد فقط ردیف آخر رو نشون داد ، ممنون میشم کمکم کنین:53:

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

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

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

در 45 دقیقه قبل، حمید حمید گفته است :

سلام دوستان 

من یه متن دارم که اون رو تو یازده تا ردیف نوشتمش (توی دیتابیس آفلاین) با حلقه for  که استفاده میکنم تو label فقط متن ردیف آخر رو برام نشون میده

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

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

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


tt.Text = tt.Text & cur.GetString("matn") & CRLF

همه رو هم از نوع EditText  کردم اینطوری نوشتم بازم فرقی نکرد فقط ردیف آخر رو نشون داد ، ممنون میشم کمکم کنین:53:

سلام و درود. دوست عزیز این خیلی بدیهیه با این کدها فقط سطر آخر رو نشون بده. شما تو هر تکرار حلقه اومدین و متن لیبل رو جایگزین کردین با متن قبلی. کلا یه لیبل باید داشته باشین. کدهای Activity_Create رو به شکل زیر تغییر بدین.البته خودتون بیشتر میتونید روش کار کنید بقیش به عهده خودتون


	Main.sql.Initialize(File.DirInternal,"1376rjggu.db",True)   
	ScrollView1.Initialize(600%y)     
    Activity.AddView(ScrollView1,0,0,100%x,100%y)
    lbl.Initialize("")
    lbl.Color = Colors.White
    lbl.TextColor = Colors.Black
    lbl.Typeface = Typeface.DEFAULT_BOLD
    ScrollView1.Panel.AddView(lbl,15dip,15dip,100%x-30dip,100%y)
    cur = Main.sql.ExecQuery("SELECT * FROM tbltest")
	For i = 0 To cur.RowCount - 1
		cur.Position = i
        lbl.Text = lbl.Text&CRLF&cur.GetString("matn")
		lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)
		ScrollView1.Panel.Height = lbl.Height + 15dip	
	Next

 

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

در 24 دقیقه قبل، محمدرضا شاهپیری گفته است :

سلام و درود. دوست عزیز این خیلی بدیهیه با این کدها فقط سطر آخر رو نشون بده. شما تو هر تکرار حلقه اومدین و متن لیبل رو جایگزین کردین با متن قبلی. کلا یه لیبل باید داشته باشین. کدهای Activity_Create رو به شکل زیر تغییر بدین.البته خودتون بیشتر میتونید روش کار کنید بقیش به عهده خودتون



	Main.sql.Initialize(File.DirInternal,"1376rjggu.db",True)   
	ScrollView1.Initialize(600%y)     
    Activity.AddView(ScrollView1,0,0,100%x,100%y)
    lbl.Initialize("")
    lbl.Color = Colors.White
    lbl.TextColor = Colors.Black
    lbl.Typeface = Typeface.DEFAULT_BOLD
    ScrollView1.Panel.AddView(lbl,15dip,15dip,100%x-30dip,100%y)
    cur = Main.sql.ExecQuery("SELECT * FROM tbltest")
	For i = 0 To cur.RowCount - 1
		cur.Position = i
        lbl.Text = lbl.Text&CRLF&cur.GetString("matn")
		lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)
		ScrollView1.Panel.Height = lbl.Height + 15dip	
	Next

 

همینطوری نوشتم بازم فقط ردیف آخر رو میخونه

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

در 3 دقیقه قبل، حمید حمید گفته است :

همینطوری نوشتم بازم فقط ردیف آخر رو میخونه

نه درست شد :lol: 

scrollView رو توی حلقه فور مینوشتم فقط سطر آخر رو مینوشت اما بیرون حلقه فور نوشتم کامل تمام سطر ها رو خوندش 

دلیلش رو یکم توضیح میدین

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

در 34 دقیقه قبل، محمدرضا شاهپیری گفته است :

سلام و درود. دوست عزیز این خیلی بدیهیه با این کدها فقط سطر آخر رو نشون بده. شما تو هر تکرار حلقه اومدین و متن لیبل رو جایگزین کردین با متن قبلی. کلا یه لیبل باید داشته باشین. کدهای Activity_Create رو به شکل زیر تغییر بدین.البته خودتون بیشتر میتونید روش کار کنید بقیش به عهده خودتون



	Main.sql.Initialize(File.DirInternal,"1376rjggu.db",True)   
	ScrollView1.Initialize(600%y)     
    Activity.AddView(ScrollView1,0,0,100%x,100%y)
    lbl.Initialize("")
    lbl.Color = Colors.White
    lbl.TextColor = Colors.Black
    lbl.Typeface = Typeface.DEFAULT_BOLD
    ScrollView1.Panel.AddView(lbl,15dip,15dip,100%x-30dip,100%y)
    cur = Main.sql.ExecQuery("SELECT * FROM tbltest")
	For i = 0 To cur.RowCount - 1
		cur.Position = i
        lbl.Text = lbl.Text&CRLF&cur.GetString("matn")
		lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)
		ScrollView1.Panel.Height = lbl.Height + 15dip	
	Next

 

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

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

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

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

lbl.Text = lbl.Text &CRLF&CRLF&&CRLF&CRLF&CRLF& cur.GetString("matn")

لاین 12 رو با این عوض کنید

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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