[larbihamri]

قم بإضافة الاداة و اكتب هذا الكود :

PHP كود :

If not background1.isbusy then
Frm1.show
End if 


[عبد العزيز البسكري]

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

تسلم أخي الغالي أبو روضة و سلم يمينك و دينك

سأتابع ذلك بإذن الله

شوف أخي الكريم العربي .. باستعمال هذا الكود ..

الإشكالية بشكل واضح .. شاهد عند الضغط على زر الامر في المرة الاولى عند فتح المشروع .. أما فيما بعد فلا يتأخر فتح الفورم كثيرا

https://c.top4top.io/m_1753c5yxv1.mp4

تحياتي واحتراماتي

[larbihamri]

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

[عبد العزيز البسكري]

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

[Mohamad Anan]

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

كود :

   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

[ابو روضة]

أخى عبد العزيز هل ممكن الاستغناء عن ال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

[عبد العزيز البسكري]

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

بارك الله فيكما و لكما أساتذتي الأفاضل

محمد عنان

أبو روضة

على المساعدة القيّمة لي بهذا الموضوع

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

تحياتي واحتراماتي

[asemshahen5]

شريط متحرك String Animation

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