04-03-22, 02:04 PM
04-03-22, 03:50 PM
وعليك السلام ورحمة الله
[attachment=27648]
اخي رابط الصورة التي ارفقتها مشفر كـ Base64 ولكي تستطيع اظهارها في عنصر تحكم PictureBox بدون ان تقوم بتحميلها
فيجب عليك اولا ان تقوم يتحويل رابط الصورة (ليس الرابط الذي ارفقته) الى ساسلة بايتات ولكي تقوم بهذا قم بفتح الرابط الذي يحتوي على الصورة
ثم اضغط كليك يمين على الصورة واختر نسخ عنوان الصورة او Copy Image Address
الان قم باستيراد فضاء الاسماء التالي
الان انسخ الكود التالي والصقه في محرر كودك
الان انسخ الكود التالي وضعه في الحدث الذي تستخدمه لعرض الصورة
[attachment=27648]
اخي رابط الصورة التي ارفقتها مشفر كـ 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 = img04-03-22, 05:39 PM
(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
شكرا لك اخي الكريم ولكن هل من الممكن انه يتم جلب رابط الصورة تلقائيا بدون تدخل مني
04-03-22, 11:13 PM
(04-03-22, 05:39 PM)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
شكرا لك اخي الكريم ولكن هل من الممكن انه يتم جلب رابط الصورة تلقائيا بدون تدخل مني
تفضل فقط ضع webbrowser وحط الكود التالي في اي مكان انت عاوزه فورم لود او اي بوتن
كود :
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
If WebBrowser1.Url.ToString = ("https://rblx-tools.org/shirt/copy?id=2448956875) Then
Dim ImgTags As HtmlElementCollection = WebBrowser1.Document.Body.GetElementsByTagName("img")
For Each element As HtmlElement In ImgTags
Dim ImgUri As String = element.GetAttribute("src")
textbox1.Text = ImgUri
Next
End If
End Sub