رفتن به مطلب

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


 اشتراک گذاری

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

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


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

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

دانلود سورس


 

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

سلام.

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

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 کاربرد نداره؟

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

در در 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 کاربرد نداره؟

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

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

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

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

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

 

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

سلام.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

AutoScrool.startAutoScroll(50,1000)

 

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

به گفتگو بپیوندید

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

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

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

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

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

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

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

 اشتراک گذاری

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

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