رؤية جديدة للإطلاع على الأكواد بطريقة بسيطة

سلام أخوانى الكرام

قد يواجه الكثير منا مشكلة فى كيفية قراءة الأكواد بعد كتابتها ... وذلك لعدم تنسيق وترتيب الأكواد أو التعليقات...

إذا كنت أخى ممن يعانون من هذه المشكلة فتفضل هذا البرنامج الرائع..

Smart Indenter v3.5 For VBA

ببساطة..

هو برنامج يقوم بترتيب وتنسيق الأكواد داخل محرر الوحدات النمطية حتى تظهر فى صورة أفضل لسهولة قراءتها بعد ذلك مرة أخرى..

بالضغط كليك يمين يظهر الآتى

تحتوي هذه القائمة على:

1- Indent Procedure : وهو يقوم بتنظيم وترتيب الأكواد داخل التحديد.

2- Indent Module : وهو يقوم بترتيب أكواد الوحدة الحالية فقط.

3- Indent Project : وهو يقوم بترتيب أكواد المشروع بأكمله .

4- Indenting Options : وهو يقوم بعرض مربع حوار لتغيير بعض خصائص التنسيق.

مثال: تأمل هذا الكود

Private Sub Form_Load()
Do While Len(strFile)
If strFile <> "." And strFile <> ".." Then
intAttr = GetAttr(strDir & "\" & strFile)
If (intAttr And vbDirectory) Then
strAllDirs = strAllDirs & strFile & Chr$(0)
Else
If intAttr <> vbNormal Then
SetAttr strDir & "\" & strFile, vbNormal
If Err Then DelTree = Err: Exit Function
End If
Kill strDir & "\" & strFile
If Err Then DelTree = Err: Exit Function
End If
End If
strFile = Dir$
Loop
End Sub

تأمله بعد عملية التنسيق بالبرنامج

Private Sub Form_Load()
	Do While Len(strFile)
		If strFile <> "." And strFile <> ".." Then
			intAttr = GetAttr(strDir & "\" & strFile)
			If (intAttr And vbDirectory) Then
				strAllDirs = strAllDirs & strFile & Chr$(0)
			Else
				If intAttr <> vbNormal Then
					SetAttr strDir & "\" & strFile, vbNormal
					If Err Then DelTree = Err: Exit Function
				End If
				Kill strDir & "\" & strFile
				If Err Then DelTree = Err: Exit Function
			End If
		End If
		strFile = Dir$
	Loop
End Sub

لاحظ هذا الفرق فى التنسيق.. وكيف أن قراءة هذا الكود أصبحت سهلة....

أرجو أن يفيدكم بقدر ما أفادنى

والسلام ختام

IndenterVBA.rar