+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تكبير صور اليست فيو (/showthread.php?tid=10623)
تكبير صور اليست فيو - محمد اسماعيل - 08-11-14
عايز اكبر الصور باليست فيو والبرنامج شغال
استخدمت الكود دة بس منفعش
PHP كود :
ImageList1.ImageSize = New System.Drawing.Size(110, 120)
RE: تكبير صور اليست فيو - الوليد ☺ - 08-11-14
السلام عليكم ورحمة الله
عند استخدامك للكود السابق فإنك تلغي جميع الصور الموجودة فيها وينتظر منك إضافة الصور من جديد
RE: تكبير صور اليست فيو - محمد اسماعيل - 08-11-14
طيب انا عايز الطريقة الي اكبر بيها الصور بدون الغاء او الانتظار لاعادة التحميل من جديد زي ماحضرتك وضحت
RE: تكبير صور اليست فيو - الوليد ☺ - 08-11-14
السلام عليكم ورحمة الله
مش حينفع أخي الكريم لأن الصور الموجودة سابقا قد تم تصغيرها للمقاس المحدد من البداية، ولو كبرتها مش حتعجبك
وعشان تعرف المشكلة جرب التالي وسترى شكل الصور أصبح شكلها ازاي
PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim imgListDictionary As New Dictionary(Of String, Image)
For i = 0 To Me.ImageList1.Images.Count - 1
imgListDictionary.Add(Me.ImageList1.Images.Keys(i), Me.ImageList1.Images(i))
Next
Me.ImageList1.ImageSize = New Size(110, 120)
For Each d In imgListDictionary
Me.ImageList1.Images.Add(d.Key, d.Value)
Next
End Sub
RE: تكبير صور اليست فيو - محمد اسماعيل - 08-11-14
احترمك كثيرا واحترم ردك بس البرمجة مفيهاش كلمة مش هينفع
RE: تكبير صور اليست فيو - الوليد ☺ - 08-11-14
السلام عليكم ورحمة الله
ههه، عجبني ردك إن "البرمجة مفيهاش كلمة مش هينفع" وهاد يدل أنك لا تستسلم لليأس
طيب يالغالي
يمكن إضافة عدة ImageList وكل واحدة بمقاس معين
لو تلاحظ أن أداة ListView فيها خاصيتين واحدة SmallImageList والثانية LargeImageList
يعني حدد لكل واحدة منهم ImageList مخصصة للمقاس المطلوب
إذا كنت تريد غير ذلك فهناك طريقة متعبة قليلاً
وهي وضع الصور الأصل في الريسورس بمقاسها الطبيعي وتقوم بتعبئة أداة ImageList منها حسب المقاس الذي ترغب
RE: تكبير صور اليست فيو - محمد اسماعيل - 08-11-14
انا اضعها في فولدر وليس الريسورس عشان ذاكرة البرنامج متبقاش كبيرة
RE: تكبير صور اليست فيو - الوليد ☺ - 08-11-14
السلام عليكم ورحمة الله
تمام ولو إنه لو كانت الصور في الريسورس يكون أفضل عشان مشكلة فقدان إحدى الصور نتيجة الحذف الخطأ مثلا
مادام الصور في مجلد تقدر تعبيها بالطريقة التالية ( إذا كنت لا تحدد الصورة بالاسم ممكن تحذفه وفيه سطر مثال لذلك)
PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Me.ImageList1.ImageSize = New Size(110, 120)
Me.ImageList1.ColorDepth = ColorDepth.Depth32Bit
Me.ImageList1.Images.Add("اسم1", Image.FromFile("image1.jpg")) ' إسم الصور لازم ما يتكرر '
Me.ImageList1.Images.Add("اسم2", Image.FromFile("image2.jpg"))
Me.ImageList1.Images.Add("اسم3", Image.FromFile("image3.jpg"))
Me.ImageList1.Images.Add(Image.FromFile("image4.jpg")) ' مثال صورة بدون اسم '
End Sub
RE: تكبير صور اليست فيو - محمد اسماعيل - 08-11-14
كدة معملناش حاجة انا عايز مقاسات من الصور مختلفة انت كدة رجعت لنقطة الصفر
يعني لو انا حملت الصور بالمقاسات العادية 50و 60عايز اغيرها في وقت تشغيل البرنامج بحيث الصور كلها تبقي واضحة وهية صغيرة ولما اختار صورة واحددها اكبرها بعد كدة زي منا عايز مثلا 90و80
زي خاصية لايضاح رؤية الصورة
RE: تكبير صور اليست فيو - الوليد ☺ - 08-11-14
السلام عليكم ورحمة الله
واضح إنك ما جربتش الكود الأخير، ---أنا جربت الكود وشغال تمام---
انت لمن تعمل Me.ImageList1.ImageSize إنت كده بتحذف الصور الموجودة في الأداة أصلاً
وبعدها نعبيها من الصور التي في المجلد والي المفروض أصلاً هي كبيرة ولكن سيتم إعادة تحجيمها بناء على آخر مقاس أنت حددته
لكن لو كانت الصور الأصلية أصلا صغيرة وعاوز تكبرها أكيد ما تطلع واضحة
إن شاء الله تكون وضحت الفكرة، وجرب وبعدين قلي...
نسيت أقلك ما تنس تضع الدقة Me.ImageList1.ColorDepth = ColorDepth.Depth32Bit قبل ما تعبي الصور
(أضفتها في الكود الأخير)
ما فهمت ايه قصدك (خاصية لايضاح رؤية الصورة)