+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أمثلة ومشاريع أعضاء المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=114)
+---- قسم : مكتبة مشاريع VB.net (http://vb4arb.com/vb/forumdisplay.php?fid=141)
+---- الموضوع : برنامج لتحسين ظهور الأكواد في مشاركات المنتدى (/showthread.php?tid=10033)
برنامج لتحسين ظهور الأكواد في مشاركات المنتدى - Sajad - 13-08-13
السلام عليكم
اخواني الاعزاء برجاء عدم وضع الملف التنفيذي مع المرفق وإلا سيتم حذف المرفق
بارك الله فيكم
برنامج لتحسين ظهور الأكواد في مشاركات المنتدى - ali.alfoly - 13-08-13
sajad كتب :السلام عليكم
اخواني الاعزاء برجاء عدم وضع الملف التنفيذي مع المرفق وإلا سيتم حذف المرفق
بارك الله فيكم
ممكن تنوه عليها فى توقيعك عشان الكل ينتبه انما موضوع القوانين مش كل الناس بتقراء القوانين
برنامج لتحسين ظهور الأكواد في مشاركات المنتدى - sooriaty03 - 13-08-13
السلام عليكم ورحمة الله وبركاته
وأخيرا تم حل المشكلة والتي هي ظهور الكود في سطر واحد بعد لصقه في الفيجوال
سبب المشكلة أن بعض الكود تعارض مع مستخدمي متصفح فايرفوكس وتم إصلاحه
وتم إضافة بعض التعديلات من قبل أخي الحبيب أبورائد فاسمحوا لي أن أضع المشروع نيابة عنه أسأل الله أن يجعله في ميزان حسناته
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
المشروع شامل التعديلات الأخيرة
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]أعطوني ملاحظاتكم
برنامج لتحسين ظهور الأكواد في مشاركات المنتدى - ali.alfoly - 13-08-13
ممتاز وقمة فى الجمال
وياريت يتم طرحه على انه الاصدار الثانى ويكون فى موضوع منفرد
ردبارك الله فيك
برنامج لتحسين ظهور الأكواد في مشاركات المنتدى - AHMED HUSSIEN - 13-08-13
sajad كتب :السلام عليكم
تجربة البرنامج المعدل:
[/COLOR][/align][/COD[/COLOR][/align][/CODE]كود :
[align=left][color=#000000][CODE][align=left][COLOR="#FF8811"]var [/color][color=#C4C4C4]paramList [/color][color=#C0C0C0]= [/color][color=#FF8811]new [/color][color=#32A9CB]List[/color][color=#C0C0C0]<[/color][color=#32A9CB]ReportParameter[/color][color=#C0C0C0]>[/color][COLOR="#D4D4D4"]
{
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Bid"[/color][color=#D4D4D4],[/color][color=#C4C4C4]bid[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Cname"[/color][color=#D4D4D4],[/color][color=#C4C4C4]cname[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Pname"[/color][color=#D4D4D4],[/color][color=#C4C4C4]pname[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Pcount"[/color][color=#D4D4D4],[/color][color=#C4C4C4]pcount[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Bdate"[/color][color=#D4D4D4],[/color][color=#C4C4C4]bdate[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"TotalPrice"[/color][color=#D4D4D4],[/color][color=#C4C4C4]totalprice1[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"TotalPrice2"[/color][color=#D4D4D4],[/color][color=#C4C4C4]totalprice2[/color][color=#D4D4D4][CODE][align=left][COLOR="#FF8811"]var [/color][color=#C4C4C4]paramList [/color][color=#C0C0C0]= [/color][color=#FF8811]new [/color][color=#32A9CB]List[/color][color=#C0C0C0]<[/color][color=#32A9CB]ReportParameter[/color][color=#C0C0C0]>[/color][COLOR="#D4D4D4"]
{
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Bid"[/color][color=#D4D4D4],[/color][color=#C4C4C4]bid[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Cname"[/color][color=#D4D4D4],[/color][color=#C4C4C4]cname[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Pname"[/color][color=#D4D4D4],[/color][color=#C4C4C4]pname[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Pcount"[/color][color=#D4D4D4],[/color][color=#C4C4C4]pcount[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"Bdate"[/color][color=#D4D4D4],[/color][color=#C4C4C4]bdate[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"TotalPrice"[/color][color=#D4D4D4],[/color][color=#C4C4C4]totalprice1[/color][COLOR="#D4D4D4"]),
[/COLOR][color=#FF8811]new [/color][color=#32A9CB]ReportParameter[/color][color=#D4D4D4]([/color][color=#FA8072]"TotalPrice2"[/color][color=#D4D4D4],[/color][color=#C4C4C4]totalprice2[/color][COLOR="#D4D4D4"])
}[/COLOR][/align]
اخي العزيز ahmed hussien لماذا يقوم البرنامج بسنخ الكود مرتين؟
تم حل المشكلة
تجربة :
كود :
[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Form1_FormClosing(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]FormClosingEventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color] [color=#0000FF]Me[/color][color=#000000].FormClosing[/color]
[color=#000000] clipHook.RemoveHook()[/color]
[color=#000000] keyHook.Stop()[/color]
[color=#0000FF]End[/color] [color=#0000FF]Sub[/color]