منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - السكر المغرور - 20-03-13

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

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

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

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



الكود البرمجي له
كود :
[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]


اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - ربيع - 20-03-13

بارك الله فيك وجزاك كل خير

اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - سامى ابوسريع - 31-03-13

جزاك الله كل خير اخى

اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - abidin - 25-07-13

الله يجازيك خير

اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - Omar Mekkawy - 31-07-13

الله يعطيك العافية كود مميز فعلاً Smile

اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - derbaliammar - 31-07-13

ما شاء الله ... شكرا كثيرا على المجهود

اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - abdoojh - 18-08-13

مشكورررررر وبارك الله فيك

RE: اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - سعود - 13-08-16

ماشاء الله لاقوة الا بالله
من عام 2013 الموضوع موجود ولم اعلم به الا الان؟!
ابسط مثال يوضح كيفية استخدام الـ Regex

RE: اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - tryold - 03-09-16

شكرا لك اخي على هذا الكود

لقد افادني جدا في مواضيع اخرى

يعطيم العافية

RE: اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox - farhat ali - 21-10-17

بارك الله فيك
لطالما بحث عنه