View Full Version : وارد کردن متنی در ریچ باکس با رنگی متفاوت
parselearn
دوشنبه 29 بهمن 1386, 00:45 صبح
با سلام
من میخوام متنی رو با رنگی متفاوت وارد ریچ تکست باکس کنم
نمونه کد کسی داره
در مورد ایجاد خط جدید هم در این شی کدی قرار بدید
vbhamed
دوشنبه 29 بهمن 1386, 03:36 صبح
سلام
With RichTextBox1
Dim sc&
sc = Len(.Text) + 2
.Text = .Text & vbCrLf & "This is a test"
.SelStart = sc
.SelLength = Len(.Text)
.SelColor = RGB(255, 0, 0)
.SelBold = True
.SelStart = Len(.Text)
End With
VbCrLf خط جدید اضافه می کند
parselearn
دوشنبه 29 بهمن 1386, 12:34 عصر
سلام
ممنون
اما من میخوام چند کلمه رو در این شی به رنگ متفاوت وارد کنم (دیکشنری)
کد زیر رو من نوشتم اما عملکرد درستی نداره
a = "Desktop"
b = " [Computer] "
c = "Program"
d = " [VB] "
With RichTextBox1
.Text = a & b & c & d
.SelStart = Len(a)
.SelLength = Len(b)
.SelColor = RGB(255, 0, 0)
.SelBold = True
.SelStart = Len(c)
.SelLength = Len(d)
.SelColor = RGB(255, 0, 0)
.SelBold = True
.SelStart = Len(.Text)
End With
لطفا راهنمایی کنید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.