[sascoxat]

(04-03-22, 03:50 PM)معاند الحظ كتب : وعليك السلام ورحمة الله



اخي رابط الصورة التي ارفقتها مشفر كـ Base64 ولكي تستطيع اظهارها في عنصر تحكم PictureBox بدون ان تقوم بتحميلها 
فيجب عليك اولا ان تقوم يتحويل رابط  الصورة (ليس الرابط الذي ارفقته) الى ساسلة بايتات ولكي تقوم بهذا قم بفتح الرابط الذي يحتوي على الصورة 
ثم اضغط كليك يمين على الصورة واختر نسخ عنوان الصورة او Copy Image Address 

الان قم باستيراد فضاء الاسماء التالي

كود :

Imports System.IO

الان انسخ الكود التالي والصقه في محرر كودك 

كود :

Public Shared Function BytesFromBase64ImageString(imageData As String) As Byte()
        Dim trunc = imageData.Split(","c)(1)
        Dim padded = trunc.PadRight(trunc.Length + (4 - trunc.Length Mod 4) Mod 4, "="c)
        Return Convert.FromBase64String(padded)
    End Function

الان انسخ الكود التالي وضعه في الحدث الذي تستخدمه لعرض الصورة

كود :

Dim b() As Byte = BytesFromBase64ImageString("الصق رابط الصورة المشفر هنا")
        Dim img = Image.FromStream(New MemoryStream(b))
        PictureBox1.Image = img

شكرا لك اخي الكريم ولكن هل من الممكن انه يتم جلب رابط الصورة تلقائيا بدون تدخل مني