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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الاداة 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.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(9 Ko) عدد مرات التنزيل 48

end.sub
.....
.....

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

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

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

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

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

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

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

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

http://egy-tech.forumegypt.net

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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