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

مشکل در استفاده لیمیت


ABOLFAZLLOTFI

سوال

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

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

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("l2")
	If File.Exists(File.DirInternal,"585858sidv.lolo") = False Then
		File.Copy(File.DirAssets,"585858sidv.d",File.DirInternal,"585858sidv.lolo")
	End If
	sql.Initialize(File.DirInternal,"585858sidv.lolo",True)
	cur = sql.ExecQuery2("SELECT Matn FROM Danestani ORDER BY ID LIMIT ?",Array As String(12))
	For i = 0 To cur.RowCount - 1
		cur.Position = i
		Dim p As Panel
		p.Initialize("")
		scr.Panel.AddView(p,2dip,stop,100%x - 2dip,100dip)
		p.LoadLayout("matlab")
		share.Tag = i
		copy.Tag = i
		lbl2.Text = cur.GetString("Matn")
		lbl2.Gravity = Gravity.CENTER
		lbl2.Height = StrUtil.MeasureMultilineTextHeight(lbl2,lbl2.Text) + 20dip
		p.Height = lbl2.Height + lbl2.Height
		Panel1.Height = p.Height
		stop = stop + lbl2.Height + 5%y
		scr.Panel.Height = stop
		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub scr_ScrollChanged(Position As Int)
	cur = sql.ExecQuery2("SELECT Matn FROM Danestani OFFSET LIMIT ?,?",Array As String(TenRecordPlus,12))
	 If scr.ScrollPosition + scr.Height = scr.Panel.Height  Then
	For i = 0 To cur.RowCount -1
	cur.Position = i
	Dim p As Panel
	p.Initialize("")
	scr.Panel.AddView(p,2dip,stop,100%x - 2dip,100dip)
	p.LoadLayout("matlab")
		share.Tag = i + 
		copy.Tag = i
		lbl2.Text = cur.GetString("Matn")
		lbl2.Gravity = Gravity.CENTER
		lbl2.Height = StrUtil.MeasureMultilineTextHeight(lbl2,lbl2.Text) + 20dip
		p.Height = lbl2.Height + lbl2.Height
		Panel1.Height = p.Height
		stop = stop + lbl2.Height + 5%y
		scr.Panel.Height = stop
	Next
	cur.Close
	scr.Panel.Height = stop
	 DoEvents
	If IsNumber(TenRecordPlus) = True Then
	      TenRecordPlus = TenRecordPlus + 10
	   End If
	End If
End Sub

Sub copy_Click
	Dim something As BClipboard
	Dim cursor2 As Cursor
	cursor2 = sql.ExecQuery("SELECT Matn FROM Danestani")
	Dim btn2 As Button
	btn2=Sender
	cursor2.Position = btn2.Tag
	something.clrText 
  	something.settext(cursor2.GetString("Matn"))
	ToastMessageShow("متن در کلیپ بورد کپی شد",False)
	cursor2.Close
End Sub

Sub share_Click
	Dim cursor3 As Cursor
    cursor3 = sql.ExecQuery("SELECT Matn FROM Danestani")
    Dim btn2 As Button
    btn2=Sender
    cursor3.Position = btn2.Tag
    Dim matnsms As Label
    matnsms.Initialize("")
    matnsms.text = cursor3.GetString("Matn")
    cursor3.Close
	StartActivity(sh.ShareText(matnsms.text,"اشتراک گذاری با :"))
End Sub

 

 

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

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

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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