قم بإضافة الاداة و اكتب هذا الكود :
PHP كود :
If not background1.isbusy then
Frm1.show
End if
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الغالي أبو روضة و سلم يمينك و دينك
سأتابع ذلك بإذن الله
شوف أخي الكريم العربي .. باستعمال هذا الكود ..
الإشكالية بشكل واضح .. شاهد عند الضغط على زر الامر في المرة الاولى عند فتح المشروع .. أما فيما بعد فلا يتأخر فتح الفورم كثيرا
تحياتي واحتراماتي
اخي عبد العزيز
في فورم لود الخاصة بفورم ريتش كونترول جرب ان تضع الكود في BackgroundWorker
سأجرب ذلك أخي العربي حين العودة للبيت إن شاء الله
السلام عليكم و رحمة الله و بركاته
كود :
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
السلام عليكم و رحمة الله و بركاته
بارك الله فيكما و لكما أساتذتي الأفاضل
محمد عنان
أبو روضة
على المساعدة القيّمة لي بهذا الموضوع
نعم أخي أبو روضة سأستعمل فكرة مشروعك إن شاء الله لأاني فعلا تعبت من هذه الطريقة
تحياتي واحتراماتي
