دریافت کتابخانه PersianAutoSizeLabel

[محمدرضا شاهپیری 5,582]

مشاهده فایل

دریافت کتابخانه PersianAutoSizeLabel

---

با سلام خدمت همه دوستان.

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

دانلود سورس

---

• ارسال کننده
  محمدرضا شاهپیری
• ارسال
  جمعه, 21 آذر 1399
• دسته
  کتابخانه ها

 

[MR.B4A 125]

سلام.

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

psc.Text = psc.Text.Replace("السَّلامُ عَلَيْكَ يَا أَبا عَبْدِاللّٰهِ","{BOL}{C}السَّلامُ عَلَيْكَ يَا أَبا عَبْدِاللّٰهِ{C}{BOL}")	
		psc.TextColor=Colors.White
		psc.Gravity=Gravity.CENTER
		psc.TextSize=cursize.GetString("size")

Dim rs As RichString
		rs.Initialize(psc.Text)
		rs.Color2(Colors.Red, "{C}")
		rs.Style2(rs.STYLE_BOLD,"{BOL}")
		psc.Text = rs
		psc.Text=cur_txt.GetString("txt")

چرا عبارت مشخص شده، به رنگ قرمز درنمیاد؟

آیا همچین کاری روی این کتابخونه persianautosizelable کاربرد نداره؟

[MR.B4A 125]

در در 22 آذر 1399 در 15:05، batman123 گفته است :

سلام.

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

psc.Text = psc.Text.Replace("السَّلامُ عَلَيْكَ يَا أَبا عَبْدِاللّٰهِ","{BOL}{C}السَّلامُ عَلَيْكَ يَا أَبا عَبْدِاللّٰهِ{C}{BOL}")	
		psc.TextColor=Colors.White
		psc.Gravity=Gravity.CENTER
		psc.TextSize=cursize.GetString("size")

Dim rs As RichString
		rs.Initialize(psc.Text)
		rs.Color2(Colors.Red, "{C}")
		rs.Style2(rs.STYLE_BOLD,"{BOL}")
		psc.Text = rs
		psc.Text=cur_txt.GetString("txt")

چرا عبارت مشخص شده، به رنگ قرمز درنمیاد؟

آیا همچین کاری روی این کتابخونه persianautosizelable کاربرد نداره؟

ممنون میشم یکی جواب منو بده

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

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

[محمدرضا شاهپیری 5,582]

در 20 ساعت قبل، batman123 گفته است :

ممنون میشم یکی جواب منو بده

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

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

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

Dim lbl As Label=psc.ContentView
Dim rs As RichString
rs.Initialize(psc.Text)
rs.Color2(Colors.Red, "{C}")
rs.Style2(rs.STYLE_BOLD,"{BOL}")
lbl.Text=rs

 

[MR.B4A 125]

سلام.

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

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

Dim rowheight As Int = su.MeasureMultilineTextHeight(lbl, lbl.Text)
			Dim Obj1 As Reflector
			Obj1.Target = lbl
			Dim before As Int = Obj1.RunMethod("getLineHeight")
			Obj1.Target = lbl
			Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 2, "java.lang.float")
			Obj1.Target = lbl
			Dim after As Int = Obj1.RunMethod("getLineHeight")
			lbl.Height = ((after * rowheight)/before) + xx/20
			sv_label.Panel.Height = lbl.Height + xx/20

به علاوه تایمر

Sub timer_scroll_Tick
	Dim position As Int = (mp.Position/mp.Duration*1)*sv_label.Height - xx/4
	If position < 0 Then
		position = 0
	End If
	sv_label.ScrollPosition = position
End Sub

اما این دستورات روی این کتابخونه ظاهرا کاربردی ندارند.

ممنون میشم راهنماییم کنید.

[MR.B4A 125]

در 22 ساعت قبل، batman123 گفته است :

سلام.

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

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

Dim rowheight As Int = su.MeasureMultilineTextHeight(lbl, lbl.Text)
			Dim Obj1 As Reflector
			Obj1.Target = lbl
			Dim before As Int = Obj1.RunMethod("getLineHeight")
			Obj1.Target = lbl
			Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 2, "java.lang.float")
			Obj1.Target = lbl
			Dim after As Int = Obj1.RunMethod("getLineHeight")
			lbl.Height = ((after * rowheight)/before) + xx/20
			sv_label.Panel.Height = lbl.Height + xx/20

به علاوه تایمر

Sub timer_scroll_Tick
	Dim position As Int = (mp.Position/mp.Duration*1)*sv_label.Height - xx/4
	If position < 0 Then
		position = 0
	End If
	sv_label.ScrollPosition = position
End Sub

اما این دستورات روی این کتابخونه ظاهرا کاربردی ندارند.

ممنون میشم راهنماییم کنید.

ممنون میشم جواب منو بدید.

[محمدرضا شاهپیری 5,582]

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

ممنون میشم جواب منو بدید.

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

AutoScrool.startAutoScroll(50,1000)

 

[MR.B4A 125]

سلام به همه

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

[MR.B4A 125]

ممنن میشم جواب بدید