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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال حول تهنيج داتا جريد فيو (/showthread.php?tid=40558)

سؤال حول تهنيج داتا جريد فيو - خالد20 - 24-01-22

السلام عليكم
في المرفقات مثال  صغير حيث يتم اضافة 1000 سطر للداتا جريد فيو عند فتح الفورم
المشكلة انه عندما يكون جهاز الكميوتر بوضع توفير الطاقة فانه يحدث تهنيج بسيط في الداتا جريد فيو عند فتح الفورم
هل هناك طريقة لجعل الفورم يفتح بشكل اسرع

RE: سؤال حول تهنيج داتا جريد فيو - عدنان الشمري - 25-01-22

متابببببببببببببببببع

RE: سؤال حول تهنيج داتا جريد فيو - عبدالله الدوسري - 26-01-22

وعليكم السلام ورحمة الله وبركاته


يوجد طريقة طبعاً :


قم بإضافة ( Module ) جديد باسم ( Extensions ) : ( حصراً في Module )

قم بإضافة هذا الأمر في الـ( Module )  :

كود :
   <System.Runtime.CompilerServices.Extension>
   Public Sub SetDoubleBuffered(Ctrl As Object)
       Dim CtrlType As Type = Ctrl.[GetType]()
       Dim pi As System.Reflection.PropertyInfo = CtrlType.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
       pi.SetValue(Ctrl, True, Nothing)
   End Sub





الشكل النهائي لكامل الملف كالتالي :
كود :
Public Module Extensions

   <System.Runtime.CompilerServices.Extension>
   Public Sub SetDoubleBuffered(Ctrl As Object)
       Dim CtrlType As Type = Ctrl.[GetType]()
       Dim pi As System.Reflection.PropertyInfo = CtrlType.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
       pi.SetValue(Ctrl, True, Nothing)
   End Sub

End Module









لاحظ السطر :
<System.Runtime.CompilerServices.Extension>
الموجود أعلى الأمر SetDoubleBuffered

هذا السطر مفيد جداً 
يقوم بإضافة أمر جديد لكل الكنترولات الموجودة في الـ NET.
بحيث يمكنك إستدعاء الأمر من داخل المنترول نفسة

مثال :
أريد تسريع ( DataGridView ) ( داتا قريد فيو ) :
من داخل الفورم عند إنشاء الفورم أو الحدث ( New ) قم بإستدعاء هذا الامر لكل كنترول تريد تسريعة
بكل بساطة اكتب اسم الكنترول ثم استدعي الامر من داخل الكنترول نفسة كالتالي :
كود :
Me.UsersDataGridView.SetDoubleBuffered


مثال :
[attachment=27535]










SetDoubleBuffered
هذا الأمر يقوم بزيادة الذاكرة العشوائية التي يستخدمها الكنترول ( أي كنترول ,, سواءً فورم , زر , صندوق نص , داتا قريد , وإلخ... من جميع الكنترولات )
عند زيادة الذاكرة العشوائية للكنترول نفسة ,, صبح الكنترول قادرة على إستخدام الذاكرة ( Memory ) بشكل أكبر وذلك مما يساعدة في تسريع العمليات المنفذة في الكنترول
وبالتالي تختفي الرعشة التي تظهر على الكنترول عند إعادة رسمة على الشاشة ,, مثل الداتا قريد فيو ,, عندما تعرض البيانات بشكل كبير فيها تظهر رعشة على الكنترول غير مرغوب فيها أبداً.


كل شيء يسصبح أسرع بعد إستخدام هذا الأمر على كل كنترول تريد تسريعة أو يظهر لك بطئ في الإستجابة.
حتى الفورم يمكن تسريعة إذا كان يحتوي على كنترولات كثيرةز

ستتفاجاء من سرعة الكنترول بعد إستخدام هذة الطريقة


تحياتي ...

RE: سؤال حول تهنيج داتا جريد فيو - خالد20 - 26-01-22

شكرا لك .........
فقط سؤال لوسمحت اين اجد الحدث NEW انا استخد م فيجوال ستيدو 2015 ولم اجده

RE: سؤال حول تهنيج داتا جريد فيو - خالد20 - 26-01-22

استخدمت الحدث LOAD ونجح الامر
بالفعل كود رائع
شكرا لك

RE: سؤال حول تهنيج داتا جريد فيو - ابو انس - 26-01-22

استكمالا للمشاركة الرائعة وبعد اذن صاحبها
اقول
يا اخالد20 افعل مثلما قال عبد الله في مشاركته ولكن في حدث LOAD للفورم ضع الكود التالي
كود :
     For Each AA As Control In ME.Controls
               AA.SetDoubleBuffered()
           Next
وهكذا يتم تطبيق الامر على جمييع الادوات في الفورم

RE: سؤال حول تهنيج داتا جريد فيو - خالد20 - 27-01-22

(26-01-22, 10:00 PM)ابو انس كتب : استكمالا للمشاركة الرائعة وبعد اذن صاحبها
اقول
يا اخالد20 افعل مثلما قال عبد الله في مشاركته ولكن في حدث LOAD للفورم ضع الكود التالي
كود :
     For Each AA As Control In ME.Controls
               AA.SetDoubleBuffered()
           Next
وهكذا يتم تطبيق الامر على جمييع الادوات في الفورم

تمام شكرا لك