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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : شريط التقدّم (/showthread.php?tid=14684)

شريط التقدّم - عبد العزيز البسكري - 09-02-16

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

إخواني الأفاضل .. أتمنّى مخلصًا من كل قلبي أنْ تكونوا و جميع أفراد أُسَركم الكريمة بألف خير و نعمة و بركة

في محاولة منّي لعمل شريط التقدم PROGRESS BAR لملفي .. كنت أريد أن يظهر شريط التقدّم هذا على الفورم 1 .. و عند الانتهاء من التايمر المخصّص له ..يظهر بعد ذلك الفورم 2 ..

لكن يافرحة ما تمّتْ ..

الفورم 1 و الفورم 2 يظهران بنفس الوقت ..مثلما يوضحه الملف المرفق أدناه

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

جزاكم الله خيرًا  و زادها بميزان حسناتكم

كامل تقديري لمجهوداتكم و إحتراماتي


RE: شريط التقدّم - abulayth - 09-02-16

السلام عليكم

حاو التعديل على الكود ليصبح كالتالي

PHP كود :
Private Sub Timer1_Timer()
Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
Me.Label10.Caption = Me.ProgressBar1.Value & "%"
If Me.ProgressBar1.Value = 100 Then
Timer1.Enabled = False
Form2.Show
End If
End Sub 



يعطيك العافية

RE: شريط التقدّم - ahmedabdelaliem - 09-02-16

تعديل مع اغلاق الفورم الاول 

PHP كود :
Private Sub Timer1_Timer()
Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
Me.Label10.Caption = Me.ProgressBar1.Value & "%"
If Me.ProgressBar1.Value = 100 Then
Timer1.Enabled = False
Unload Me
Form2.Show
End If
End Sub 

بالتوفيق

RE: شريط التقدّم - عبد العزيز البسكري - 09-02-16

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

ألف شكر أخي الغالي :

abulayth

ahmedabdelaliem

بارك الله فيكما و لكما .. جزاكما الله خيرًا و زادها بميزان حسناتكما

مهما عبّر لكما الواحد منّا عن شكره و امتنانه نظير ما تقدّمانه من أعمال جليلة و مساعدات نبيلة .. قليل فيكما

أدعو الله أن يمنَّ عليكما بدوام الصحّة و العافية و راحة البال و يوفّقكما لما يحبّه و يرضاه

تمام التّمام .. هذا هو المطلوب بالضبط خاصّة بالإضافة الصغيرة المميّزة للأخ الغالي أحمد عبد العليم

فائق إحتراماتي و تقديراتي لكما



RE: شريط التقدّم - ahmedabdelaliem - 10-02-16

حياكم الله اخي العزيز بارك الله فيك ويسر امورك كلها

بالتوفيق