منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيفية ربط ProgressBar بعملية حفظ البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفية ربط ProgressBar بعملية حفظ البيانات (/showthread.php?tid=29405)

كيفية ربط ProgressBar بعملية حفظ البيانات - mr_hso - 17-04-19

السلام عليكم اخواني الكرام
كل عام وانتم بخير واللهم بلغنا رمضان جميعا معافين غير مرضي ولا مكروبين 

لدى سؤال تعبت فى البحث عنه 

لدي برنامج بالفيجول بيسك 2015 استخدم فيه الكود التالي للحفظ  
كود :
Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
       Try
           dt55.Rows.Add()
           Dim pos500 As String = dt55.Rows.Count - 1
           dt55.Rows(pos500).Item(1) = TextBox2.Text
           If DateTimePicker7.CustomFormat = " " Then
               dt55.Rows(pos500).Item(2) = DBNull.Value
           Else
               dt55.Rows(pos500).Item(2) = DateTimePicker1.Value.Date
           End If
           If DateTimePicker8.CustomFormat = " " Then
               dt55.Rows(pos500).Item(3) = DBNull.Value
           Else
               dt55.Rows(pos500).Item(3) = DateTimePicker2.Value.Date
           End If
       Catch ex As Exception
       End Try
       save_data()

       MsgBox("تمت اضافة التجديد بنجاح", Title:="تمت")
   End Sub

وكود الحفظ الاصلي
كود :
Sub save_data()
       Dim save55 As New OleDbCommandBuilder(da55)
     save55.QuotePrefix = "["
       save55.QuoteSuffix = "]"
       da55.Update(dt55)
       dt55.AcceptChanges()
   End Sub

وذلك الامر يستغرق بعض الوقت حتى يتم الحفظ وظهور رسالة تاكيد الحفظ


ما اريده


*** اريد ان يظهر شريط الــ    ProgressBar   حتي تتم عملية الحفظ

او

***ظهور صورة GIF  لدائرة التحميل المعتادة للويندوز 

كيف يمكنني هذا

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

سبحان الله وبحمده  ***   سبحان الله العظيم