17-04-19, 11:21 PM
السلام عليكم اخواني الكرام
كل عام وانتم بخير واللهم بلغنا رمضان جميعا معافين غير مرضي ولا مكروبين
لدى سؤال تعبت فى البحث عنه
لدي برنامج بالفيجول بيسك 2015 استخدم فيه الكود التالي للحفظ
وكود الحفظ الاصلي
وذلك الامر يستغرق بعض الوقت حتى يتم الحفظ وظهور رسالة تاكيد الحفظ
ما اريده
*** اريد ان يظهر شريط الــ ProgressBar حتي تتم عملية الحفظ
او
***ظهور صورة GIF لدائرة التحميل المعتادة للويندوز
كيف يمكنني هذا
جزاكم الله خير
سبحان الله وبحمده *** سبحان الله العظيم
كل عام وانتم بخير واللهم بلغنا رمضان جميعا معافين غير مرضي ولا مكروبين
لدى سؤال تعبت فى البحث عنه
لدي برنامج بالفيجول بيسك 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 لدائرة التحميل المعتادة للويندوز
كيف يمكنني هذا
جزاكم الله خير
سبحان الله وبحمده *** سبحان الله العظيم