الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar

اذهب الى الأسفل

الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar Empty الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar

مُساهمة من طرف end.sub في الخميس يناير 09, 2014 11:03 am

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

أقدم لكم الاداة 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

 يوجد مثال و الاداة فى المرفقات
المرفقات
الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar Attachment
FileCop.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(9 Ko) عدد مرات التنزيل 57
end.sub
end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar Empty رد: الاداة FileCop التى تقوم بنسخ الملفات مع أستخدام شريط تقدم ProgressBar

مُساهمة من طرف أحمد مناع في الخميس يناير 09, 2014 7:31 pm

عظيم جدا على مجهودك أخى end sub

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 954
النقاط : 201722
التقيم : 116
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى