منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

ما السبب وكيف اتغلب علي ذلك
يمكن رابط الصورة غير مباشر
لو تضيف الرابط اللي تستخدمه عشان اجرب
(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)
(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
(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

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