موضوع نقاش حول شلة أدوات 6 Microsoft Windows Common Controls

نبدأ باسم الله مع اداة شريط التقدم PROGRESS BAR

تفضلوا هذه ثلاثة مشاريع تناقشه :-

1/ زيادة قيمته بوقت ثابت

-----------------------------------------------------

2/ زيادة قيمته من خلال التقدم

-----------------------------------------------------

3/ الفرق بينه وبين اداة ATA PROGRESS BAR

شكراً ...

Ala2 VB

بسم الله

الاخ علاء الموضوع الذي تتحدث عنه موضوع مهم جدا فعلا لان هذه الأدوات كثيرا ما يستخدمها المبرمج في برامجه

وانا كمان تعبتني جدا حتى تعلمتها

وان شاء الله اي اضافة هتخطر في بالي لن ابخل بها

وشكرا

ملحوظة : الرابط لم يعمل

أخي يبدو إن النظام مشغول :

تفضل .... رابط آخر لتحميلم الثلاثة :-

تحميل

بارك الله فيك

سؤال أخ علاء !

لماذا لن ترفق مرفقاتك بالمشاركه , وترفع ملفاتك على موقع آخر ؟

بمناسبة البروجريس بار

احد الادوات الى انا صنعتها

Mido Style progress bar

اخواني كيف اربط الprogress bar بسجلات قاعدة البيانات ( يعني انا عايز اعمل شريط تحميل)

كما قلت فانا بقالى حوالى 3 شهور او اكثر متعاملتش مع قواعد البيانات

المهم انت عندك خاصيتين مهمين فى البروجرس بار هما Max و Value

المهم مثلا عاوز تحمل كومبو بوكس بمحتويات حقل

تجيب عدد السجلات فى الحقل وتحطها فى الخاصية ماكس

وبعد كدة تعمل لووب loop وكل لما تحط محتو سجل تزود ال Value بواحد

مثلا

نفترض انك سميت البروجرس بار ب prg

ومعاك Data control

prg.max = data1.recordset ( rec_name).count

 - 1for i = 0 to  data1.recordset ( rec_name).count

combo.addItem data1.recordset ( rec_name)

prg.value = prg.value + 1

next

على فكرة انا كتبت الكود فى محرر الموقع يعنى مش فى ال IDE

انا بس كنت عاوز اوضح الفكرة وعزرونى فى بعض الاخطاء لانى بقالى فترة كبيرة جدا متعاملتش مع قواعد البيانات ومش ناوى اتعامل معاها ههههىىىىىى :lol:

مشكور أخي بس لية مش عايز تتعامل معاها مرة ثاية :lol:

أخي هل انت متأكد من

data1.recodset( rec_name).count

؟

فعلا مفيش خاصية Count

لكن ممكن تيجى بجملة Sql

او لووب اخر

او تعمل دالة تجيبلك العدد

مثل

Dim c As Long
 c = 0
 Data1.Recordset.MoveFirst
 Do Until Not Data1.Recordset.EOF
	c = c + 1
 Loop

وبكدة العدد هيخزن فى متغير C

وابقى حطه فى خاصية ال Max

موجودة باسم RecordCount

Data1.Recordset.RecordCount

ولاتزعل أخي احمد :

ALa2VB_PBAR.rar

وهذا مثال لكيفية ربط ProgressBar مع Webbrowser ::

ProgressBar_With_WebBrowser_By_Ala2_VB.rar

إظهار شريط تقدم في صينية النظام :

ProgressBar_In_The_TaskBar.rar

شريط تقدم داخل شريط حالة :

ProressBar_in_statusbar_by_Ala2_Vb.rar

والآن ... مع اداة المنزلق : Slider :

مثال :

Slider_By_Ala2_VB.rar

UP UP UP