23-11-17, 06:00 PM
الصفحات : 1 2
19-08-18, 03:46 AM
كود :
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim rx As New Regex("Imports|Public|Class|Private|Sub|End|As|Handles|ByVal|Object|MyBase|Dim|As|String|New|For |Each|In |Next|If|Then|Nothing|Else")
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.Maroon
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.Firebrick
Next
End Sub
End Class19-08-18, 06:17 AM
بارك الله فيك اخي الكريم (lanonymdz) هذا التعديل المناسب لمن لم يحمل المثال.
فقط ينسخ اي كود ويلصقه بالاداة.
فقط ينسخ اي كود ويلصقه بالاداة.
19-08-18, 09:27 AM
حتى يعم الفائدة لهذا ايضاً لمن يبحث
لمثل هذه الاداء
تم اضافة موضوع من قبل العضو :: عابر سبيل 2
فى الرابط التالى
وهو موضوع رائع وسيعم ويسهل على الجميع دون عناء كتابة اى كود
تحياتى لكم
وتمنياتى للجميع التوفيق
الصفحات : 1 2