[السكر المغرور]

السلام عليكم ،،

كيفكم أخواني ،، اليوم كنت اتصفح مواقع أجنبيه و الصراحه أعجبني كود لقيته فقلت أشاركه هنا :
أولاً لبساطة الكود
ثانيا قد يستفيد منه أحد

المهم لا أطول بالحديث

فكرة عن عمل البرنامج من خلال الصورة



الكود البرمجي له

كود :

[align=left]
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.Text = IO.File.ReadAllText("C:\Users\Paul\Desktop\1.txt")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rx As New Regex("Imports|Public|Class|Private|Sub|End|ByVal|As|Handles|MyBase|Dim|New|For |Each|In |Next")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Blue
        Next
        rx = New Regex(""".+""")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Tomato
        Next
    End Sub

End Class
[/align]