Printable View
سلام به تمامی اساتید
عزیزان لطفا یک نفر به من کمک کنه
من ویژوال 2008 میخواستم که وقتی یک textbox درون فرم میزارم براش یک خاصیت براش تعریف کنم که اگه یک جمله درون textbox تایپ کردم بتونم رنگ قسمتی از نوشتمون رو تغییر بدم یا فونت و اندازه مقداری از جمله تایپ شده رو عوض کنم
بازم تشکر
------------------------------------------------------------
عنوان تاپیک اصلاح شد.
لطفا از عنوان مناسب برای تاپیک خود استفاده کنید.
Payman_62
این خاصیت برای RichTextBox هست و نه TextBox
دوست عزیز میشه راهنمایی بیشتری بکنینقل قول:
کنترل richtextbox کنترلی حرفه ای برای کار با متن است . این کنترل کلیدهای پیش فرض مانند Ctrl+A برای انتخاب همه متن یا Ctrl+C برای کپی گرفتن ار متن انتخاب شده و ... را دارد.
به دلیل اهمیت این کنترل آموزشهایی از آن را بیان می کنم.
خواندن محتوای کنترل : برای خواندن محتوای کنترل richtextbox سه گزینه پیش رو داریم
الف ) خواندن کل متن : برای این کار از دستور زیر استفاده می کنیم:
RichTextBox1.Text
ب ) برای پاراگراف به پاراگراف خواندن کنترل : برای این کار از دستورات زیر استفاده می کنیم:
For Each s As String In RichTextBox1.Lines
MessageBox.Show(s)
Next
ج ) خط به خط خواندن کنترل : برای این کار از دستورات زیر استفاده می کنیم:
توضیح : دستورات بالا محتویات کنترل richtextbox را به صورت خط به خط و بدون توجه به پاراگراف می خواند البته دستورات جدیدی دارد که در ادامه توضیح داده می شود.کد:Dim srichline As New ArrayList
Dim indexLine As Int16
Dim srich As String
Dim index As Int16 = 0
srich = RichTextBox1.Text
For counter As Int16 = 0 To
RichTextBox1.GetLineFromCharIndex(RichTextBox1.TextLength)
indexLine = RichTextBox1.GetFirstCharIndexFromLine(counter + 1)
If indexLine = -1 Then
indexLine = RichTextBox1.TextLength
End If
srichline.Add(srich.Substring(index, indexLine - index))
index = indexLine
Next
For Each srich In srichline
MessageBox.Show(srich)
Next
محاسبه تعداد خطوط کنترل : برای این کار می توان ار دستور زیر استفاده کرد:
البته این دستور بیشتر به محاسبه تعداد پاراگراف ها می پردازد برای محاسبه تعداد خطوط بدون توجه به پاراگراف باید از دستور زیر استفاده کرد:کد:MessageBox.Show(RichTextBox1.Lines.Count)
کد:MessageBox.Show(RichTextBox1.GetLineFromCharIndex(RichTextBox1.TextLength) + 1)
نمایش Scrool Bar در هنگام نیاز: برای این کار خصیصه ScrollBars کنترل را به ForcedBoth تغییر دهید.
موفق باشید
این هم همون چیزی که می خواستید:
کد:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
RichTextBox1.SelectionStart = RichTextBox1.Find("are")
'using the Find method to find the text "are" and setting it's return
'property to SelectionStart which selects the text
RichTextBox1.SelectionColor = Color.Blue
'setting the color for the selected text with SelectionColor property
RichTextBox1.SelectionStart = RichTextBox1.Find("working")
RichTextBox1.SelectionColor = Color.Yellow
End Sub
استاد
با عض پوزش ارور میده نمیدونم چرا
میشه بررسی کنید
این سورسی هست که من برای تغییر رنگ استفاده میکردم
لطفا از روی این به من بگید چیکار کنم
ببخشید اینقدر مزاحم میشم
واسه دانشگاه لازم دارم
[HTML]
Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
TextBox1.ForeColor = ColorDialog1.Color
End If
End Sub
[/HTML]
سلام دوست عزیز.
با textbox معمولی شما نمیتونید این کارو انجام بدید.شما باید از کنترل richtextbox استفاده کنید.
تابع زیر رنگ یک خط رو تغییر میده:حالا کدی که نوشته بودید رو به صورت زیر تغییر بدید و تابع رو صدا بزنید:کد:Private Sub SetLineColor(ByVal clr As Color, ByVal line As Integer)
Dim I, S, index As Integer
S = 0
For index = 0 To line - 1
S += RichTextBox1.Lines(index).Length + 1
Next
I = RichTextBox1.Lines(line).Length
RichTextBox1.SelectionStart = S
RichTextBox1.SelectionLength = I
RichTextBox1.SelectionColor = clr
End Sub
الان عدد 2 که به تابع دادید خط سوم رو رنگی میکنه.و از 0 شروع میشه.کد:If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
SetLineColor(ColorDialog1.Color, 2)
End If
موفق باشید.