[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إخواني الأفاضل .. لو تكرّمتم بالمساعدة حول هذه الإشكاليّة

1 - هل يمكن إجبار المستخدم على إختيار الصور من مجلّد خاص دون غيره عند إستعراض الصور بالأداة

OpenFileDialog

2 - كيف يمكن حفظ الصورة من ال PictureBox1 إلى مجلّد الصور بتسمية التاكست بوكس رقم 2

بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء

[سامي محمد]

بهذا الكود لا يمكن اختيار صورة من غير مجلد الـــ bin

كود :

  If IO.Path.GetDirectoryName(.FileName) <> IO.Path.GetDirectoryName(Application.StartupPath) Then
                    MessageBox.Show("( bin ) يجب اختيار صورة من مجلد البرنامج")
                    Exit Sub
                End If

وهذا لحفظ الصورة في المجلد المحدد

كود :

  If TextBox2.Text.Trim = Nothing Then MessageBox.Show("اكتب اسم الصورة") : TextBox2.Focus()

        PictureBox1.Image.Save(Destination_Logo & "\" & TextBox2.Text & TextBox3.Text)

واعذرني ان فهمتك خطأ ..... لاني بصراحة لا اعتقد ان مثل هذه الاكواد تخفى عليك اخ عبدالعزز

[ابراهيم ايبو]

السلام عليكم اخي عبد العزيز(ياسكري)
تفضل كود فتح صورة مع الذهاب الافتراضي الى مجلد الصور الموجود في مجلد Debug  فقط غير اسم المجلد الى ماتريد
وكذلك كود حفظ الصورة بحيث يأخذ الاسم من مربع النص رقم 2 بدون ان تكتب اللاحقة ايضا يذهب افتراضي لنفس المجلد
او ان احببت ادخل مسارا أخر او الغ السطر بحيث يتم الاختيار حيث ما يريد

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim Ofd As New OpenFileDialog()
       Ofd.Filter = "Images |*.jpg;*.Png;*.Bmp "
       Ofd.InitialDirectory = Application.StartupPath & "\DDKK" ' ضع اسم المجلد الذي سيكون الافتراضي
       If Ofd.ShowDialog() = DialogResult.OK Then
           PictureBox1.Image = Image.FromFile(Ofd.FileName)
       End If


   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim Sfd As New SaveFileDialog()
       Sfd.Filter = "Images |*.jpg"
       Sfd.InitialDirectory = Application.StartupPath & "\DDKK" ' ضع اسم المجلد الذي سيكون الافتراضي
       Sfd.FileName = TextBox2.Text + ".jpg" ' اسم الملف الموجود في مربع النص رقم 2 مضافا اليه اللاحقة
       If Sfd.ShowDialog() = DialogResult.OK Then

           PictureBox1.Image.Save(Sfd.FileName) ' حفظ الصورة
       End If
   End Sub

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

تسلم أخي الغالي سامي و سلم يمينك و دينك .. و بارك الله فيك و لك و في والديك ليوم الدين

أخي و حبيب قلبي العزيز الغالي إبراهيم .. بارك الله فيك و بوالديك و بأهلك و ذويك ليوم الدين

بصراحة سادتي الأكارم

أردت إجبار المستخدم على إختيار الصور من مجلّد خاص لأنّي قمت بقص الصور باستعمال الفوتوشوب بنفس الإمتداد و بنفس الحجم و الأبعاد حتى تظهر على الفورم بطريقة متناسقة كلها بحجم واحد عند إستخدام أداة العرض ال CardView

و دخت ألف دوخة .. و دوخة

لأجد مثال بأدوات الديف إكسبرس يتم حفظ الصور بمجلّد خاص و ليس بقاعدة البيانات .. فقط خوفا  على زيادة حجمها

المثال الذي وجدته يعتمد على العلاقة بين اسم الصورة بقاعدة البيانات .. سيكون كمثال رقم 1 .. و لا بدّ من حفظ نفس الصورة بنفس التسمية بالمجلّد
سأجرّب ما توصلت إليه و إن شاء الله يكون المطلوب من بين أيديكم
إلى ذلك الحين .. أجدد شكري و تقديري واحترامي وامتناني لكما
تحياتي واحتراماتي

[alshandodi]

السلام عليكم أخي عبدالعزيز قمت بوضع المثال البسيط بسرعة على حسب الأكواد المجمعه من اساتذة هذا المنتدى الرائع فاتمنى ان يكون ذو فائدة لك ولاعضاء المنتدى الرائع

ولك مني جزيل الشكر والتقدير

[asemshahen5]

اخي عبد العزيز استخدم ليست فيو لعرض الصور من مجلد محدد .

او استخدم كود لاعادة تحجيم الصور للحجم الذي تريده من اي مجلد كان .

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم الشندودي على المثال الرائع
زادك الله من علمه و فضله و أحسن إليك
أخي الغالي و أستاذي القدير عاصم شاهين
صدقني منذ عرفت البرمجة سنة 2015 لم أستعمل الليست فيو إطلاقا
و أدرك تماما أنّ ملاحظاتك و أفكارك لا بدّ من أخذها بعين الإعتبار .. و لذلك لو تتكرم علي بمثال صغير حول إستعمال ما تم ذكرة من سيادتك فقط للفهم أكثر
كنت أود رفع الملف الأصلي لكن بسبب حجم الملف .. غيرته بمشروع بأفكار مماثلة

بالنسبة للملف الأول
أخذت جزء من أكواد أخي الكريم سامي محمد و جزء آخر من أكواد أخي الغالي إبراهيم إيبو ..
كلّه تمام .. بقيت فقط جزئية إجبار المستخدم من إختيار الصور من مجلّد First_Folder
الملف :
https://top4top.io/downloadf-15604n8uj1-zip.html
بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء
تحياتي للجميع

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
جرب بهذا الشكل

PHP كود :

Dim Ofd As New OpenFileDialog()
        Ofd.Filter = "Images |*.jpg;*.Png;*.Bmp "
        Ofd.InitialDirectory = Application.StartupPath & "\DDKK" ' ضع اسم المجلد الذي سيكون الافتراضي
        If Ofd.ShowDialog() = DialogResult.OK Then
            If Ofd.FileName.Contains("DDKK") = False Then
                MsgBox("Wanted Folder Is DDKK " & vbNewLine & Ofd.InitialDirectory)
                Ofd = Nothing
                Exit Sub
            End If
            PictureBox1.Image = Image.FromFile(Ofd.FileName)
        End If 


الاخ عبد العزيز بما انك تستخدم DX بعملك فانصحك باستخدام ImageListBoxControl مناسبة تماما لعرض الصور.

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي و أستاذي الكريم الغالي أبو ليلى

بارك الله فيك و لك و بعملك و صحّتك و أوقاتك و بأهلك و أحسن إليك دنيا و آخرة إن شاء الله

و هو المطلوب تحقيقه بالضبط .. تسلم و سلم يمينك و دينك و زادك من علمه و فضله

سأبحث منذ اللحظة عن الأداة ImageListBoxControl لاستغلالها لأنّها تبدو فعلا رائعة

الشكر و الاحترام و الامتنان موصول لأساتذتنا الأفاضل المشاركين بالموضوع أعلاه

تحياتي واحتراماتي للجميع

[asemshahen5]

ان تصل متأخرا خير من ان لا تصل تفضل هذا مثال عن استخدام ليست فيو و اعذرني عن تاخري بالرد بسبب قطع الكهرباء :