تلوين الكلمات المحجوزة و التعليقات في أية لغة برمجة بأي لون تريدونه

مرحباً أخي الكريم :)،

عليّك عرض الـ( Source Code ) لمشروعك ليتم التقييم عليّه، إذا نظرت عن قرب ستجد أنه لن يستفيد احد من هذا العمل وسوف تجني ( لا شيء ) لأن من يعمل بالـ( VB.Net ) سيستخدم الـ( VB.Net Code Editor ) :)، وليس لأن مشروعك لايفي بالغرض لكن لأنه لايقدم شيء جديد :(، على أية حال جئت لك بمشروع مماثل لمشروعك ولكن مصنوع بشكل احترافي :P وهذا الـ( Source Code ) الخاص به ;)

Automatic Rich Text Box Coloring and Formatting

بالتوفيق .

Fikou-sama كتب:

البرنامج يحتوي علئ ال Code Source في RichTextBox الموجودة في أعلئ نافدة البرنامج

في الإعادة إفادة

Imports System.Text.RegularExpressions

Public Class Form1

	Private Sub ColorKeyWord(ByVal indexStart As Integer, ByVal keyword As String, ByVal color As Color)
		Me.RichTextBox1.SelectionStart = indexStart
		Me.RichTextBox1.SelectionLength = keyword.Length
		Me.RichTextBox1.SelectionColor = color
	End Sub

	Private Sub ColorCode(ByVal commentChar As Char, ByVal keywords() As String)
		Dim m As Match

		'**********************	COLORER LES KEYWORDS  **********************
		For i As Integer = 0 To keywords.Length - 1
			m = Regex.Match(Me.RichTextBox1.Text, "(\s*)(" & keywords(i) & ")(\s{1})"

			While m.Success
				Me.ColorKeyWord(m.Groups(2).Index, m.Groups(2).Value, Me.keywordsColorBtn.BackColor)
				m = m.NextMatch
			End While
		Next

		'************************  COLORER LES STRING  ************************
		m = Regex.Match(Me.RichTextBox1.Text, "\" & Chr(34) & ".*?\" & Chr(34))
		While m.Success
			Me.ColorKeyWord(m.Index, m.Value, Color.Red)
			m = m.NextMatch
		End While

		'*********************  COLORER LES COMMENTAIRES **********************
		m = Regex.Match(Me.RichTextBox1.Text, "\" & commentChar & "+.*")
		While m.Success
			Me.ColorKeyWord(m.Groups(0).Index, m.Groups(0).Value, Me.commentColorBtn.BackColor)
			m = m.NextMatch
		End While
	End Sub

	Private Sub Colorer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Colorer.Click
		Dim keys() As String = Split(Me.keywordsRichTextBox.Text, ";")
		Dim commentChar As String = Me.commentCharTextBox.Text

		For i As Integer = 0 To keys.Length - 1
			keys(i) = keys(i).Trim
		Next

		Me.ColorCode(commentChar, keys)
	End Sub

	Private Sub commentColorBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles commentColorBtn.Click, keywordsColorBtn.Click
		Dim cd As New ColorDialog

		If cd.ShowDialog Then
			CType(sender, Button).BackColor = cd.Color
		End If

	End Sub
End Class

Fikou-sama كتب:

في الإعادة إفادة

أصبح الآن سهل القراءة والوصول ;) :P

Très Bien

Merci

:) ;)