منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
إستعمال ال Multi Threading - نسخة قابلة للطباعة

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

الصفحات: 1 2 3 4

RE: إستعمال ال Multi Threading - larbihamri - 19-10-20

قم بإضافة الاداة و اكتب هذا الكود :
PHP كود :
If not background1.isbusy then
Frm1.show
End if 


RE: إستعمال ال Multi Threading - عبد العزيز البسكري - 19-10-20

السّلام عليكم و رحمة الله و بركاته
تسلم أخي الغالي أبو روضة و سلم يمينك و دينك
سأتابع ذلك بإذن الله
شوف أخي الكريم العربي .. باستعمال هذا الكود ..
الإشكالية بشكل واضح .. شاهد عند الضغط على زر الامر في المرة الاولى عند فتح المشروع .. أما فيما بعد فلا يتأخر فتح الفورم كثيرا
https://c.top4top.io/m_1753c5yxv1.mp4
تحياتي واحتراماتي


RE: إستعمال ال Multi Threading - larbihamri - 19-10-20

اخي عبد العزيز
في فورم لود الخاصة بفورم ريتش كونترول جرب ان تضع الكود في BackgroundWorker

RE: إستعمال ال Multi Threading - عبد العزيز البسكري - 19-10-20

سأجرب ذلك أخي العربي حين العودة للبيت إن شاء الله


RE: إستعمال ال Multi Threading - Mohamad Anan - 20-10-20

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

كود :
   REM المطلوب تنفيذه في عملية منفصلة في الخلفية
   Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Form1.ShowDialog()
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Me.BackgroundWorker1.RunWorkerAsync()
   End Sub


RE: إستعمال ال Multi Threading - ابو روضة - 20-10-20

أخى عبد العزيز هل ممكن الاستغناء عن الWebBrowser واستعمال
هذا الكود الصغير لعمل شريط متحرك أيضا ؟

لو نعم فهذا كود يقوم بعمل شريط متحرك داخل Label لآن اداة الويب براوزر كما تعرف 
مكتبة كبيرة مبنية على متصفح Internet Explorer وبكل تأكيد 
سيكون هناك بطئ شديد فى بداية تشغيلها..
ومرفق المشروع كامل عثرت عليه الآن لآنه كان موجود عندى من سنين.

 
كود :
Public Class Form1
   Dim Num As Integer
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Label1.Location = New Point(Label1.Location.X - 1, Label1.Location.Y)
       If Label1.Location.X < -Label1.Width Then
           Label1.Location = New Point(Me.Width, Label1.Location.Y)
       End If
   End Sub


RE: إستعمال ال Multi Threading - عبد العزيز البسكري - 20-10-20

السلام عليكم و رحمة الله و بركاته
بارك الله فيكما و لكما أساتذتي الأفاضل
محمد عنان
أبو روضة
على المساعدة القيّمة لي بهذا الموضوع
نعم أخي أبو روضة سأستعمل فكرة مشروعك إن شاء الله لأاني فعلا تعبت من هذه الطريقة
تحياتي واحتراماتي


RE: إستعمال ال Multi Threading - asemshahen5 - 20-10-20

شريط متحرك String Animation

عمل شريط متحرك من قاعدة البيانات .