13-08-13, 03:58 PM
السلام عليكم ورحمة الله وبركاته
وأخيرا تم حل المشكلة والتي هي ظهور الكود في سطر واحد بعد لصقه في الفيجوال
سبب المشكلة أن بعض الكود تعارض مع مستخدمي متصفح فايرفوكس وتم إصلاحه
وتم إضافة بعض التعديلات من قبل أخي الحبيب أبورائد فاسمحوا لي أن أضع المشروع نيابة عنه أسأل الله أن يجعله في ميزان حسناته
تجربة للكود بعد التعديل
أعطوني ملاحظاتكم
وأخيرا تم حل المشكلة والتي هي ظهور الكود في سطر واحد بعد لصقه في الفيجوال
سبب المشكلة أن بعض الكود تعارض مع مستخدمي متصفح فايرفوكس وتم إصلاحه
وتم إضافة بعض التعديلات من قبل أخي الحبيب أبورائد فاسمحوا لي أن أضع المشروع نيابة عنه أسأل الله أن يجعله في ميزان حسناته
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
المشروع شامل التعديلات الأخيرة
CodeColoring-03
السلام عليكم ورحمة الله وبركاته
تجربة للكود بعد التعديل
كود :
[color=#0000FF]Imports[/color][color=#000000] System.IO[/color]
[color=#0000FF]Imports[/color][color=#000000] System.Drawing[/color]
[color=#0000FF]Public[/color] [color=#0000FF]Class[/color] [color=#2B91AF]Form1[/color]
[color=#0000FF]Dim[/color][color=#000000] X [/color][color=#0000FF]As[/color] [color=#0000FF]Integer[/color][color=#000000] = 0[/color]
[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Form1_Load([/color][color=#0000FF]ByVal[/color][color=#000000] sender [/color][color=#0000FF]As[/color][color=#000000] System.[/color][color=#2B91AF]Object[/color][color=#000000], [/color][color=#0000FF]ByVal[/color][color=#000000] e [/color][color=#0000FF]As[/color][color=#000000] System.[/color][color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color] [color=#0000FF]MyBase[/color][color=#000000].Load[/color]
[color=#000000] Beep()[/color]
[color=#0000FF]End[/color] [color=#0000FF]Sub[/color]
[color=#008000]''' [/color][color=#808080]<summary>[/color]
[color=#008000]''' تجربة لبرنامج تحسين الكود[/color]
[color=#008000]''' [/color][color=#808080]</summary>[/color]
[color=#008000]''' [/color][color=#808080]<remarks></remarks>[/color]
[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] B()[/color]
[color=#000000] MsgBox([/color][color=#A31515]"OK"[/color][color=#000000])[/color]
[color=#0000FF]End[/color] [color=#0000FF]Sub[/color]
[color=#0000FF]End[/color] [color=#0000FF]Class[/color]أعطوني ملاحظاتكم

