+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25438)
هل هناك طريقة لتسريع هذا الكود - ابو روضة - 19-06-18
السلام عليكم ورحمة الله وبركاته
هل هناك طريقة لتسريع هذا الكود لآنه يتوقف تماما الى ان ينتهى
وجربت الثريد وال BackgroundWorker معه وبيظهر خطأ
وهو لجلب نص فى التكست بوكس بعد تحميل صفحة معينة والكود شغال تمام لكن بيجعل
الفورم معلق ولا يتحرك وانا اريد تسريعه بحيث يتحرك عادى ولا يهنج
PHP كود :
RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("colo")
m = Regex.Match(RichTextBox1.Text, "(?<=accesto"").+(="")")
TextBox6.Text = m.Value
واخر تجربة كانت هكذا وايضا يأتى خطأ
PHP كود :
Dim thread2 As System.Threading.Thread
Public Sub darkness1()
RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("colo")
m = Regex.Match(RichTextBox1.Text, "(?<=accesto"").+(="")")
TextBox6.Text = m.Value
End Sub
وهذا فى الزر
thread1 = New System.Threading.Thread(AddressOf darkness1)
thread1.Start()
وده فى الفورم لود
CheckForIllegalCrossThreadCalls = False
من جلب النص المطلوب
RE: هل هناك طريقة لتسريع هذا الكود - elgokr - 19-06-18
ارفق مثال مصغر حتى يتم اختبار الكود
مع عمل المطلوب من ثم اعادة ارفاقة له
تحياتى لك
RE: هل هناك طريقة لتسريع هذا الكود - YousefOkasha - 29-06-18
تفضل اخي جرب هذا الكود ..
كود :
Try
&Vbcode
Catch ex as Exception
Msgbox (ex.message)
End Tryاكتب الكود الذي يأتي منه خطأ