+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox (/showthread.php?tid=8068)
الصفحات:
1
2
RE: اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - mr crazy - 23-11-17
والله كنت بفتش الكود د من شهووووووور طويييييييله
مشكور والله
RE: اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - lanonymdz - 19-08-18
كود :
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 ClassRE: اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - سعود - 19-08-18
بارك الله فيك اخي الكريم (lanonymdz) هذا التعديل المناسب لمن لم يحمل المثال.
فقط ينسخ اي كود ويلصقه بالاداة.
RE: اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - elgokr - 19-08-18
حتى يعم الفائدة لهذا ايضاً لمن يبحث
لمثل هذه الاداء
تم اضافة موضوع من قبل العضو :: عابر سبيل 2
فى الرابط التالى
وهو موضوع رائع وسيعم ويسهل على الجميع دون عناء كتابة اى كود
تحياتى لكم
وتمنياتى للجميع التوفيق