منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في تكبير صورة في picture box بدون فقدان جودتها - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في تكبير صورة في picture box بدون فقدان جودتها (/showthread.php?tid=22482)



مساعدة في تكبير صورة في picture box بدون فقدان جودتها - salahmax12 - 10-11-17

السلام عليكم
انا الان اسوي صفحة Bookmarks
لمشروع المتصفح اللي اسويه
فكرة الموضوع
ان في setting اسمه Fav
هذا كل ما اضغط علي زر Bookmark
يضيف لينك الصفحة الموجودة بالويب براوزر
و في زر Bookmarks موجود
المفترض انه يسوي new tab بال tab control
و يحط ال favicon حقت الموقع في picturebox
 و تحته label به اللينك
للان ما في مشاكل لكن انا اشرح الوضع
انا مشكلتي ان ال favicon حجمها
 16x16 
او 32x32
و لهذا يجب ان اعدل ال size mode في ال picture box الي Stretch Image
و اكبر حجمه
و ذي ما فيها مشكلة
لكن لمن الصورة تكبر تكون مبكسلة جداً
بحيث انه تقريبا لا يظهر منها شئ
فهل يوجد طريقة لتكبيرها بدون فقدان الجودة
او علي الاقل تكون واضحة ؟
انا استخدم ذالكود
PHP كود :
       For Each mark As String In My.Settings.FAV
            Dim url 
As Uri = New Uri(mark)
 
           If url.HostNameType UriHostNameType.Dns Then
                Dim iconURL 
"http://" url.Host "/favicon.ico"
 
               Dim request As System.Net.WebRequest System.Net.HttpWebRequest.Create(iconURL)
 
               Dim response As System.Net.HttpWebResponse request.GetResponse()
 
               Dim stream As System.IO.Stream response.GetResponseStream()
 
               Dim favicon Image.FromStream(stream)
 
               pb.Image favicon
                link
.Text mark.ToString
                pb
.SizeMode PictureBoxSizeMode.StretchImage
                pb
.Size = New Size(128128)
 
               link.Location = New Point(pb.Location.Xpb.Height link.Height)
 
               Bookmark.Controls.Add(link)
 
               Bookmark.Controls.Add(pb)
 
           End If
 
       Next 
 
في شوية صور توضح اكثر في المرفقات
و اذا احتاجتم اي شئ قولوا لي



RE: مساعدة في تكبير صورة في picture box بدون فقدان جودتها - silverlight - 10-11-17

المفروض أن كود مثل التالي قد يفي بالغرض لكنه لن يكون دقيقا تماما


PHP كود :
       Dim source As Bitmap My.Resources.CloseButtonHot
        Dim factor 
As Integer 2
        Dim dest 
As Bitmap = New Bitmap(Image.FromHbitmap(source.GetHbitmapIntPtr.Zero), New Size(source.Width factorsource.Height factor))
 
    

للأسف الدوت نت لا يوجد بها كود او كلاس مباشر يمكنه تنفيذ ما تريده بكل دقة

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


RE: مساعدة في تكبير صورة في picture box بدون فقدان جودتها - a.ahmed - 10-11-17

PHP كود :
pb.SizeMode PictureBoxSizeMode.Zoom 



RE: مساعدة في تكبير صورة في picture box بدون فقدان جودتها - salahmax12 - 11-11-17

(10-11-17, 03:01 PM)silverlight كتب : المفروض أن كود مثل التالي قد يفي بالغرض لكنه لن يكون دقيقا تماما


PHP كود :
       Dim source As Bitmap My.Resources.CloseButtonHot
        Dim factor 
As Integer 2
        Dim dest 
As Bitmap = New Bitmap(Image.FromHbitmap(source.GetHbitmapIntPtr.Zero), New Size(source.Width factorsource.Height factor))
 
    

للأسف الدوت نت لا يوجد بها كود او كلاس مباشر يمكنه تنفيذ ما تريده بكل دقة

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

همممم .. انا لست بالمنزل حاليا ولهذا لا استطيع تجربتي الكود و لكن هل يمكنك شرحه قليلا .... فبكل اسف لم استطع إدراك ما يفعله


RE: مساعدة في تكبير صورة في picture box بدون فقدان جودتها - silverlight - 11-11-17

انا فقط وضحت لك ماذا يحدث عند تكبيير الصورة أو بمعني أدق ماذا سيحدث معك عند عمل Stretch للصورة
خاصة لو كانت الصورة صغيرة
الكود المكتوب يأخذ الصورة الأصلية و يضرب ابعادها في مقياس رسم factor جديد و يصنع منها صورة جديدة بأبعاد جديدة
ولأني مش عايز أدخلك في متاهة كبيره
استخدمت الكود في شكله البسيط هذا