الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية استخدم شريط المعالجه progressbar

مغلق
بدأه العالم في 12 نوفمبر 2005 · 7 رد · 1,143 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

كيف يمكنني استخدام شريط المعالجه المسمى progressbar في مشاريعي ..وماهي اهم خصائصه

اردت استخدم هذا الشريط من اجل تحميل جدول من قاعدة بيانات ووضعها في اداة اللست فيو .. فكيف عمل ذلك ...وشكرا

progressbar.rar

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#2

:lol:

progressbar.rar

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#3

تشكر اخي المشرف على هذا الرد الرائع ....

اخي الكريم ... لماذا عملت الداله التاليه في الملف المرفق وما الفائده منها :

Public Function GetCountOfData() As Long
        GetCountOfData = rs.RecordCount
End Function

وكيف يمكنني ان اربط اداة شريط المعالجه بالتايمر ...

وشكرا

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#4

اولا : الدالة GetCountOfData وهي للحصول علي عدد السجلات المراد قرائتها من الملف .

واسناد القيمة المرجعه الي الخاصية Max للاداة الـProgressBar .

ما تقصد بربط شريط الحالة في تايمر ؟

من المعروف ان التايمر متعدد الاغراض .

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#5

اقصد من حيث زيادة سرعة تحميل شريط المعالجه

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#6

السلام عليكم

الحقيقه انا جديد هنا

وعجبنى الموضوع ده خاصه ان انا عندى سؤال يا ريت حد يجاوب عليه فى الموضوع ده

السؤال هو

ازاى ممكن اعرف ال maxvalue لل progressbar لو انا عندى عمليه غير معلومه النهايه ويتم تنفيذها بخطوه واحده مثلا

لو نا هاجيب الداتا من data base واضعها فى data set

طبعا الامر ده

سطر واحد اللى بيقوم بتنفيذه

اللى هوه الداله .fill للااداه dataset

اذاى اربط هذه الداله ( .fill ) بال progressbar

اتمنى ان يجيبنى احد سريعا بمثال

( ومش هاتفرق نوع ال data base

sql server او اكسيس

معلش

انا اسف انا افتكرت المنتدى عن ال vb.net

الغى بقى السؤال اللى فات لانه خاص ببيئه الدوت نت مش vb6

انا اسف مره تانيه ولو كان فيه حد عارف الاجابه بس فى ال vb.net ياريت يبعتلى المثال على المايل ده

ahmed2002mo@yahoo.com

#7

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

أنا نفسي أستخدم أداة الـ Progressbar مثلاً في عرض التقدم لنسخ ملف مثلاُ أو نقله من مكان إلى آخر

كما في الـ Windows ياريت يكون في مثال على ذلك .

جزاكم الله خيراً .

تم تعديل هذه المشاركة بواسطة COMFORT في 22 يناير 2007 في 20:43

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#8

الأخ COMFORT إذا كان يفيدك الكود التالي :

Option Explicit 
Private Type SHFILEOPSTRUCT 
hwnd As Long 
wFunc As Long 
pFrom As String 
pTo As String 
fFlags As Integer 
fAnyOperationsAborted As Long 
hNameMappings As Long 
lpszProgressTitle As String 
End Type 
Private Declare Function SHFileOperation Lib "shell32.dll" _ 
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long 
Private Const FOF_ALLOWUNDO = &H40 
Private Const FOF_NOCONFIRMATION = &H10 
Private Const FO_COPY = &H2 

Public Function ShellFileCopy(src As String, dest As String, _ 
Optional NoConfirm As Boolean = False) As Boolean 

Dim WinType_SFO As SHFILEOPSTRUCT 
Dim lRet As Long 
Dim lflags As Long 

lflags = FOF_ALLOWUNDO 
If NoConfirm Then lflags = lflags & FOF_NOCONFIRMATION 
With WinType_SFO 
.wFunc = FO_COPY 
.pFrom = src 
.pTo = dest 
.fFlags = lflags 
End With 

lRet = SHFileOperation(WinType_SFO) 
ShellFileCopy = (lRet = 0) 

End Function 


Private Sub Command1_Click() 
Dim bSuccess As Boolean 
bSuccess = ShellFileCopy("C:\yourFolder\yourFile.xxx", "D:\www\file.xxx") 
End Sub

هذا الموضوع مغلق.

مواضيع مشابهة