السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل .. لو تكرّمتم بالمساعدة حول هذه الإشكاليّة
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 .. و لا بدّ من حفظ نفس الصورة بنفس التسمية بالمجلّد
سأجرّب ما توصلت إليه و إن شاء الله يكون المطلوب من بين أيديكم
إلى ذلك الحين .. أجدد شكري و تقديري واحترامي وامتناني لكما
تحياتي واحتراماتي
السلام عليكم أخي عبدالعزيز قمت بوضع المثال البسيط بسرعة على حسب الأكواد المجمعه من اساتذة هذا المنتدى الرائع فاتمنى ان يكون ذو فائدة لك ولاعضاء المنتدى الرائع
ولك مني جزيل الشكر والتقدير
اخي عبد العزيز استخدم ليست فيو لعرض الصور من مجلد محدد .
او استخدم كود لاعادة تحجيم الصور للحجم الذي تريده من اي مجلد كان .
السّلام عليكم و رحمة الله و بركاته
أخي و أستاذي الكريم الغالي أبو ليلى
بارك الله فيك و لك و بعملك و صحّتك و أوقاتك و بأهلك و أحسن إليك دنيا و آخرة إن شاء الله
و هو المطلوب تحقيقه بالضبط .. تسلم و سلم يمينك و دينك و زادك من علمه و فضله
سأبحث منذ اللحظة عن الأداة ImageListBoxControl لاستغلالها لأنّها تبدو فعلا رائعة
الشكر و الاحترام و الامتنان موصول لأساتذتنا الأفاضل المشاركين بالموضوع أعلاه
تحياتي واحتراماتي للجميع
ان تصل متأخرا خير من ان لا تصل تفضل هذا مثال عن استخدام ليست فيو و اعذرني عن تاخري بالرد بسبب قطع الكهرباء :
[
attachment=24389]
