بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
كيف يمكنني استخدام شريط المعالجه المسمى progressbar في مشاريعي ..وماهي اهم خصائصه
اردت استخدم هذا الشريط من اجل تحميل جدول من قاعدة بيانات ووضعها في اداة اللست فيو .. فكيف عمل ذلك ...وشكرا
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
كيف يمكنني استخدام شريط المعالجه المسمى progressbar في مشاريعي ..وماهي اهم خصائصه
اردت استخدم هذا الشريط من اجل تحميل جدول من قاعدة بيانات ووضعها في اداة اللست فيو .. فكيف عمل ذلك ...وشكرا
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
:lol:
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
تشكر اخي المشرف على هذا الرد الرائع ....
اخي الكريم ... لماذا عملت الداله التاليه في الملف المرفق وما الفائده منها :
Public Function GetCountOfData() As Long GetCountOfData = rs.RecordCount End Function
وكيف يمكنني ان اربط اداة شريط المعالجه بالتايمر ...
وشكرا
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
اولا : الدالة GetCountOfData وهي للحصول علي عدد السجلات المراد قرائتها من الملف .
واسناد القيمة المرجعه الي الخاصية Max للاداة الـProgressBar .
ما تقصد بربط شريط الحالة في تايمر ؟
من المعروف ان التايمر متعدد الاغراض .
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
اقصد من حيث زيادة سرعة تحميل شريط المعالجه
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
السلام عليكم
الحقيقه انا جديد هنا
وعجبنى الموضوع ده خاصه ان انا عندى سؤال يا ريت حد يجاوب عليه فى الموضوع ده
السؤال هو
ازاى ممكن اعرف ال maxvalue لل progressbar لو انا عندى عمليه غير معلومه النهايه ويتم تنفيذها بخطوه واحده مثلا
لو نا هاجيب الداتا من data base واضعها فى data set
طبعا الامر ده
سطر واحد اللى بيقوم بتنفيذه
اللى هوه الداله .fill للااداه dataset
اذاى اربط هذه الداله ( .fill ) بال progressbar
اتمنى ان يجيبنى احد سريعا بمثال
( ومش هاتفرق نوع ال data base
sql server او اكسيس
معلش
انا اسف انا افتكرت المنتدى عن ال vb.net
الغى بقى السؤال اللى فات لانه خاص ببيئه الدوت نت مش vb6
انا اسف مره تانيه ولو كان فيه حد عارف الاجابه بس فى ال vb.net ياريت يبعتلى المثال على المايل ده
ahmed2002mo@yahoo.com
السلام غليكم ورحمة الله وبركاته
أنا نفسي أستخدم أداة الـ Progressbar مثلاً في عرض التقدم لنسخ ملف مثلاُ أو نقله من مكان إلى آخر
كما في الـ Windows ياريت يكون في مثال على ذلك .
جزاكم الله خيراً .
تم تعديل هذه المشاركة بواسطة COMFORT في 22 يناير 2007 في 20:43

الأخ 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هذا الموضوع مغلق.