[محمدالزند]

هل يمكن داون لود الصورة بعد ما يتم عرضها في Photo Box علما بان الصورة تخش في قاعدة البيانات bit

[alsalamoni]

هل يمكن داون لود الصورة بعد ما يتم عرضها في Photo Box علما بان الصورة تخش في قاعدة البيانات bit

كود :

PictureBox1.Load("https://vb4arb.com/banner.jpg")

Dim stream As New IO.MemoryStream
PictureBox1.Image.Save(stream, PictureBox1.Image.RawFormat)
Dim bit As Byte() = stream.ToArray

[alsalamoni]

هل يمكن عمل دايلوج لحفظ الصورة في مسار محدد

موضوعك عن قاعدة البيانات وليس دايلوج، وضح طلبك بالكامل في المرة القادمة

كود :

Dim url = "https://vb4arb.com/banner.jpg"
PictureBox1.Load(url)
Using OpenFileDialog1 As New OpenFileDialog
   OpenFileDialog1.FileName = IO.Path.GetFileName(url)
   If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
       Dim stream As New IO.MemoryStream
       PictureBox1.Image.Save(OpenFileDialog1.FileName)
   End If
End Using

[محمدالزند]

نفس المشكلة لاسف

---

الارور في Dialog Result

[alsalamoni]

نفس المشكلة لاسف

---

الارور في Dialog Result

اساسا لم تذكر ان هناك مشكلة لتقول (نفس المشكلة)

ضع رابط للتطبيق عليه
اذكر تفاصل الارور
ووضح بالصور ما هي المشكلة

[محمدالزند]

PHP كود :

Private Sub pbox_Click(sender As Object, e As EventArgs) Handles pbox.Click
        Dim url = "https://vb4arb.com/banner.jpg"
        pbox.Load(url)
        Using ofd As New OpenFileDialog
            ofd.FileName = IO.Path.GetFileName(url)
            If ofd.Show Dialog = Windows.Forms.Dialog Result.OK Then
                 Dim stream As New IO.MemoryStream
                pbox.Image.Save(ofd.FileName)
            End If
        End Using
    End Sub 


---

ارفق ازاي صورة في الموضوع ؟

[alsalamoni]

PHP كود :

Private Sub pbox_Click(sender As Object, e As EventArgs) Handles pbox.Click
        Dim url = "https://vb4arb.com/banner.jpg"
        pbox.Load(url)
        Using ofd As New OpenFileDialog
            ofd.FileName = IO.Path.GetFileName(url)
            If ofd.Show Dialog = Windows.Forms.Dialog Result.OK Then
                 Dim stream As New IO.MemoryStream
                pbox.Image.Save(ofd.FileName)
            End If
        End Using
    End Sub 


---

ارفق ازاي صورة في الموضوع ؟

ارفعها على موقع مشاركة مثل https://top4top.io ثم ضع رابط الصورة

ولا تنس تذكر اي رابط طبقت عليه الكود وضعت منه المشكله

[alsalamoni]

PHP كود :

Private Sub pbox_Click(sender As Object, e As EventArgs) Handles pbox.Click
        Dim url = "https://vb4arb.com/banner.jpg"
        pbox.Load(url)
        Using ofd As New OpenFileDialog
            ofd.FileName = IO.Path.GetFileName(url)
            If ofd.Show Dialog = Windows.Forms.Dialog Result.OK Then
                 Dim stream As New IO.MemoryStream
                pbox.Image.Save(ofd.FileName)
            End If
        End Using
    End Sub 


---

ارفق ازاي صورة في الموضوع ؟

لاحظت وجود مسافة هنا (ofd.Show Dialog) المفروض لا توجد مسافة
هل تقوم بالنسخ واللصق مباشرة من الكود الذي لديك
ام انك تقوم بتعديل الرد ؟

[alsalamoni]

[محمدالزند]

---

مفيش داون لود والصورة مش بتنزل