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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37343)



مشكله بالبكيتشر بووكس - اليوم السابع - 01-01-21

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

ما السبب وكيف اتغلب علي ذلك



RE: مشكله بالبكيتشر بووكس - معاند الحظ - 01-01-21

يمكن رابط الصورة غير مباشر
لو تضيف الرابط اللي تستخدمه عشان اجرب


RE: مشكله بالبكيتشر بووكس - اليوم السابع - 01-01-21

(01-01-21, 05:52 AM)معاند الحظ كتب : يمكن رابط الصورة غير مباشر
لو تضيف الرابط اللي تستخدمه عشان اجرب

هذا هو الرابط ولكن حليت المشكله عن طريق 
https://h.top4top.io/p_1826gwh211.jpg
كود :
Dim WC As New WebClient
           Dim BYTES() As Byte = WC.DownloadData(my_link_img)
           Dim IMGSTREAM As New MemoryStream(BYTES)
           pic_my_img_support.Image = Image.FromStream(IMGSTREAM)



RE: مشكله بالبكيتشر بووكس - ابو روضة - 01-01-21

(01-01-21, 07:04 AM)اليوم السابع كتب :
(01-01-21, 05:52 AM)معاند الحظ كتب : يمكن رابط الصورة غير مباشر
لو تضيف الرابط اللي تستخدمه عشان اجرب

هذا هو الرابط ولكن حليت المشكله عن طريق 
https://h.top4top.io/p_1826gwh211.jpg
كود :
Dim WC As New WebClient
           Dim BYTES() As Byte = WC.DownloadData(my_link_img)
           Dim IMGSTREAM As New MemoryStream(BYTES)
           pic_my_img_support.Image = Image.FromStream(IMGSTREAM)

بسم الله ما شاء الله أخى اليوم السابع مستواك فى تحسن , ربنا يعينك...

هذا كود أيضاً

كود :
 Dim tClient As WebClient = New WebClient
       Dim tImage As Bitmap = Bitmap.FromStream(New MemoryStream(tClient.DownloadData("ضع هنا رابط الصورة المباشر")))
       PictureBox1.Image = tImage



RE: مشكله بالبكيتشر بووكس - اليوم السابع - 01-01-21

(01-01-21, 07:25 AM)ابو روضة كتب :
(01-01-21, 07:04 AM)اليوم السابع كتب :
(01-01-21, 05:52 AM)معاند الحظ كتب : يمكن رابط الصورة غير مباشر
لو تضيف الرابط اللي تستخدمه عشان اجرب

هذا هو الرابط ولكن حليت المشكله عن طريق 
https://h.top4top.io/p_1826gwh211.jpg
كود :
Dim WC As New WebClient
           Dim BYTES() As Byte = WC.DownloadData(my_link_img)
           Dim IMGSTREAM As New MemoryStream(BYTES)
           pic_my_img_support.Image = Image.FromStream(IMGSTREAM)

بسم الله ما شاء الله أخى اليوم السابع مستواك فى تحسن , ربنا يعينك...

هذا كود أيضاً

كود :
 Dim tClient As WebClient = New WebClient
       Dim tImage As Bitmap = Bitmap.FromStream(New MemoryStream(tClient.DownloadData("ضع هنا رابط الصورة المباشر")))
       PictureBox1.Image = tImage

والله يا ابو روضه انا بتعلم منك يا اخي و من الاخ سعود و من الاخ عاصم و من الاخ معاند حظ وانتم بجد سبب في تعلمي اي شئ