الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: أدوات اللغة و مكتبات DLL& OCX
صفحة 1 من اصل 1 • شاطر
الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar
بسم الله الرحمن الرحيم
أقدم لكم الاداة FileCop التى تقوم بنسخ الملفات مع استخدام شريط تقدم ProgressBar ليس فقط من على جهاز الكمبيوتر بل يمكنك استخدامها لنسخ ملف موجود على شبكة الانترنت الى جهاز الكمبيوتر أو بمعى أصح تحميل من الشكبة للجهاز ....ويتم استخدامها على النحو التالى :
1_ قم بإضافة الاداة الى مشروعك
2_ لنسخ ملف معين يتم أستخدام الكود التالى :
حيث أن :
_txtFrom.Text ....مربع النص الذى سيتم كتابة مسار و اسم مصدر الملف المراد نسخة
_txtTo.Text .......مربع النص الذى سيتم كتابة المسار الذى سيتم وضع الملف فيه .
3_ فى حدث FileCopier1_Progress للاداة يمكنك استخدام الكود التالى لاستخدام شريط الحالة فى عملية النسخ
و النتيجة كما فى الشكل التالى :
![الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar Egy-tech13892653691](https://2img.net/h/zakyshny.eu5.org/kleeja/uploads/egy-tech13892653691.png)
أقدم لكم الاداة FileCop التى تقوم بنسخ الملفات مع استخدام شريط تقدم ProgressBar ليس فقط من على جهاز الكمبيوتر بل يمكنك استخدامها لنسخ ملف موجود على شبكة الانترنت الى جهاز الكمبيوتر أو بمعى أصح تحميل من الشكبة للجهاز ....ويتم استخدامها على النحو التالى :
1_ قم بإضافة الاداة الى مشروعك
2_ لنسخ ملف معين يتم أستخدام الكود التالى :
- الكود:
On Error GoTo CopyError
FileCopier1.CopyFile txtFrom.Text, txtTo.Text
Exit Sub
CopyError:
FileCopier1_CopyComplete 0
MsgBox "Error " & Format$(Err.Number) & " copying file." & _
vbCrLf & Err.Description
Exit Sub
حيث أن :
_txtFrom.Text ....مربع النص الذى سيتم كتابة مسار و اسم مصدر الملف المراد نسخة
_txtTo.Text .......مربع النص الذى سيتم كتابة المسار الذى سيتم وضع الملف فيه .
3_ فى حدث FileCopier1_Progress للاداة يمكنك استخدام الكود التالى لاستخدام شريط الحالة فى عملية النسخ
- الكود:
Private Sub FileCopier1_Progress(ByVal total_bytes As Long, ByVal bytes_copied As Long)
If total_bytes = 0 Then
lblStatus.Caption = Format$(bytes_copied) & _
" bytes copied"
prgStatus.Visible = False
Else
lblStatus.Caption = Format$(bytes_copied) & _
" of " & Format$(total_bytes) & " bytes copied"
If Not prgStatus.Visible Then
prgStatus.Min = 0
prgStatus.Max = total_bytes
End If
prgStatus.Value = bytes_copied
If Not prgStatus.Visible Then prgStatus.Visible = True
End If
End Sub
و النتيجة كما فى الشكل التالى :
![الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar Egy-tech13892653691](https://2img.net/h/zakyshny.eu5.org/kleeja/uploads/egy-tech13892653691.png)
يوجد مثال و الاداة فى المرفقات
- المرفقات
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
رد: الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar
عظيم جدا على مجهودك أخى end sub
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar
Thanxxxxxxxxxxxxxxxxx
mal0042002- ..
- تاريخ التسجيل : 05/11/2020
المساهمات : 26
النقاط : 26
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: أدوات اللغة و مكتبات DLL& OCX
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» تصميم تطبيق جوال لمغسلة ملابس
» تصميم تطبيق جوال لشركة عقارات
» شركة مكافحة النمل الابيض بالرياض
» تصميم تطبيق جوال لنقل الاثاث
» هناجر
» تصميم تطبيق جوال لمتجر ورد
» تصميم تطبيق جوال لسلسلة مطاعم
» تصميم تطبيق جوال لتوصيل الطلبات
» مظلات سيارات متحركة