09-11-20, 03:13 AM
(آخر تعديل لهذه المشاركة : 09-11-20, 03:15 AM {2} بواسطة العطر الرايق.)
السلام عليكم ورحمه الله وبركاتة
يوجد لدى إشكالية تحتاج للحل والبركة فيكم
داخل مشروعي يوجد اضافة للصور يتم نقلها لمجلد داخل المشروع ويحفظ اسم الصور ومسارها بقاعدة بيانات
من نوع sql لجبها وقت الحاجة . ولكن يتم نقل صورة واحدة فقظ في كل مره .
ماهي الطريقة لأضافة اكثر من صوره دفعة واحد ونقلها لمجلد الصور مع حفظ اسمائها ومسارها .
وهذا الكود المستخدم في نقل صورة واحدة في كل مرة فقط . وارغب في تعديله
كود الاضافة
ارجو انه تم فهم المطلوب ومن لديه المعرفة لا يبخل علينا ....ولكم فائق تقديري
يوجد لدى إشكالية تحتاج للحل والبركة فيكم
داخل مشروعي يوجد اضافة للصور يتم نقلها لمجلد داخل المشروع ويحفظ اسم الصور ومسارها بقاعدة بيانات
من نوع sql لجبها وقت الحاجة . ولكن يتم نقل صورة واحدة فقظ في كل مره .
ماهي الطريقة لأضافة اكثر من صوره دفعة واحد ونقلها لمجلد الصور مع حفظ اسمائها ومسارها .
وهذا الكود المستخدم في نقل صورة واحدة في كل مرة فقط . وارغب في تعديله
كود :
Public Sub picpath()
OpenFileDialog1.Filter = "PNG|*.png|JPG|*.jpg"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
pathcopy = OpenFileDialog1.FileName
picName = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
pathPaste = Application.StartupPath & "\imge\" & picName
End If
End Sub
كود الاضافة
كود :
Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
picpath()
Try
My.Computer.FileSystem.CopyFile(pathcopy, pathPaste)
Catch ex As Exception
End Try
End Sub
ارجو انه تم فهم المطلوب ومن لديه المعرفة لا يبخل علينا ....ولكم فائق تقديري