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

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

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

لدي برنامج بالفيجول بيسك 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 لدائرة التحميل المعتادة للويندوز

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mr_hso