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

مشکل در تنظیم ارتفاع لیبل با متن در اسکرول ویو


qasem

سوال

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

 

1.png

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

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

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

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

lbl.Text = cur.GetString("soal") & CRLF  & cur.GetString("gavab")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

lbl.Text = cur.GetString("soal") & CRLF  & cur.GetString("gavab")

 

 

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

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

این رو تست کن ببین نشون میده

با کد شما امتحان کردم ولی عنوان را دیگه نشون نمیده؟

lbl.Text = cur.GetString("soal") & CRLF  & cur.GetString("gavab") & CRLF
لینک ارسال
به اشتراک گذاری در سایت های دیگر

ممنون همان کد اول درست بوده من توجه نکردم.

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

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

ممنون همان کد اول درست بوده من توجه نکردم.

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

 

کتابخونه Rich String مشکل شمارو حل کرده :

Sub SetColor(Text As String,N As String)
	Dim strArray() = Regex.Split(" ", Text) As String
	Dim rs As RichString
	Dim rsb As RichStringBuilder
	rsb.Initialize
	For i = 0 To strArray.Length -1
		Dim rs2 As RichString
		Dim str As String = strArray(i)
		If str = N Then
			rs2.Initialize(str)
			rs2.Color(Colors.rgb(192, 57, 43), 0, str.Length)
			If i = strArray.Length-1 Then
				rsb.Append(rs2)
			Else
				rsb.Append(rs2)
				rsb.Append(" ")
			End If
		Else
			If i = strArray.Length-1 Then
				rsb.Append(str)
			Else
				rsb.Append(str)
				rsb.Append(" ")
			End If
		End If
	Next
	rs.Initialize(rsb)
	Label4.Text = rs
End Sub

Text : کل متن ( هم عنوان و هم متن )

N : متنی که میخوای قرمز بشه

 

در آخر هم که متنو به لیبل میدی ( من متن رو به لیبل 4 دادم )

 

موفق باشی ♥

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

سلام

این سورس رو ببینید

2 لیبل با متن های مختلف و متغیر و سایز های مختلف رو ریختم توی اسکرول ویو

بعد با کتابخونه string Utils اومدم سایز اسکرول ویو رو تنظیم کردم

کمکتون میکنه

multiLabel.rar

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

بایگانی شده

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

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

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