رنگ قلم تعدادی از کارکترهای ورودی

سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
************
با استفاده از متد Select از شیء RichTextBox تون می تونید بخشی از متن رو انتخاب کنید و با استفاده از خاصیت SelectionColor رنگ اون قسمت رو تغییر بدید../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
کد زیر در صورتی که هر تغییری تو متن RichTextBox بوجود بیاد اجرا میشه و کد رو از اول رنگ آمیزی می کنه و با فشار دادن هر دکمه ای رنگ های جدیدی تولید می کنه../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**************

کد:

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged For i = 0 To RichTextBox1.TextLength Step 3 RichTextBox1.Select(i, 3) RichTextBox1.SelectionColor = ColorTranslator.FromOle(RGB(Rnd() * 192 + 64, Rnd() * 192 + 64, Rnd() * 192 + 64)) Next RichTextBox1.SelectionStart = RichTextBox1.TextLength End Sub

*****************
اگه نمی خواید بعد از فشار دادن هر دکمه ای رنگ های قبلی تغییر کنند// از کد زیر استفاده کنید که البته سرعت بیشتری هم نسبت به کد قبلی داره../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
************

کد:

Private Sub RichTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress Static j As Integer = 2 j = j + 1 If (j Mod 3) = 0 Then RichTextBox1.SelectionStart = RichTextBox1.TextLength RichTextBox1.SelectionColor = ColorTranslator.FromOle(RGB(Rnd() * 192 + 64, Rnd() * 192 + 64, Rnd() * 192 + 64)) End If End Sub

***************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]