منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] اريد اداة شريط التحميل مع الشرح ومثال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=30)
+---- الموضوع : [vb6.0] اريد اداة شريط التحميل مع الشرح ومثال (/showthread.php?tid=13754)

اريد اداة شريط التحميل مع الشرح ومثال - piratar - 08-11-15

السلام عليكم الطلب واضح من العنوان وشكرا

RE: اريد اداة شريط التحميل مع الشرح ومثال - abulayth - 08-11-15

السلام عليكم

ارجو منك اخي الكريم التوضيح اكثر

هل المقصود تحميل البرنامج ام التحميل من قاعدة بيانات مثلا او التحميل من النت ........

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

RE: اريد اداة شريط التحميل مع الشرح ومثال - piratar - 08-11-15

اقصد اداة progress bar

RE: اريد اداة شريط التحميل مع الشرح ومثال - administrator - 08-11-15

تفضل مثال بالمرفقات


RE: اريد اداة شريط التحميل مع الشرح ومثال - vb6_coder - 08-11-15

السلام عليكم

[attachment=8480]

RE: اريد اداة شريط التحميل مع الشرح ومثال - piratar - 09-11-15

للاسف الامثلة لا تعمل لدي يحدث خطا عند التحميل

RE: اريد اداة شريط التحميل مع الشرح ومثال - administrator - 09-11-15

ضع صورة الخطاء هنا

RE: اريد اداة شريط التحميل مع الشرح ومثال - piratar - 09-11-15

يقول انه هناك ملف بامتداد .log مفقود

RE: اريد اداة شريط التحميل مع الشرح ومثال - administrator - 09-11-15

جرب الكود التالي



PHP كود :
Option Explicit

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
ProgressBar1.Value = 0
ProgressBar2.Value = 0
ProgressBar3.Value = 0
ProgressBar4.Value = 0
End Sub

Private Sub Form_Load()
ProgressBar2.Max = 1000
ProgressBar1.Max = 100
ProgressBar3.Max = 100
ProgressBar4.Max = 1000
End Sub

Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
Exit Sub
End If
ProgressBar1.Value = ProgressBar1.Value + 2
ProgressBar1.Refresh
ProgressBar3.Value = ProgressBar3.Value + 2
ProgressBar3.Refresh
End Sub

Private Sub Timer2_Timer()
If ProgressBar2.Value = 1000 Then
Timer2.Enabled = False
Exit Sub
End If

ProgressBar2.Value = ProgressBar2.Value + 5
ProgressBar2.Refresh
ProgressBar4.Value = ProgressBar4.Value + 5
ProgressBar4.Refresh
End Sub 


RE: اريد اداة شريط التحميل مع الشرح ومثال - piratar - 09-11-15

انا اريد اداة غير التي في الفيجوال وشكرا