رفتن به مطلب
  • 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 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

  • 0
در 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

 

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
در 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

 

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
در 3 دقیقه قبل، حمید حمید گفته است :

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

نه درست شد :lol: 

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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
در 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

 

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
Mr.Kafiri    192
در 5 دقیقه قبل، حمید حمید گفته است :

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

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

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

  • پسندیدن 1

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...