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

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

(02-02-20, 11:56 PM)محمدالزند كتب : [ -> ]هل يمكن داون لود الصورة بعد ما يتم عرضها في Photo Box علما بان الصورة تخش في قاعدة البيانات bit

كود :

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

Dim stream As New IO.MemoryStream

PictureBox1.Image.Save(stream, PictureBox1.Image.RawFormat)

Dim bit As Byte() = stream.ToArray

(03-02-20, 11:29 PM)محمدالزند كتب : [ -> ]هل يمكن عمل دايلوج لحفظ الصورة في مسار محدد

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

كود :

Dim url = "http://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

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

الارور في Dialog Result

(03-02-20, 11:58 PM)محمدالزند كتب : [ -> ]نفس المشكلة لاسف

الارور في Dialog Result

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

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

PHP كود :

Private Sub pbox_Click(sender As Object, e As EventArgs) Handles pbox.Click
        Dim url = "http://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 

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

(04-02-20, 12:02 AM)محمدالزند كتب : [ -> ]
PHP كود :

Private Sub pbox_Click(sender As Object, e As EventArgs) Handles pbox.Click Dim url = "http://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 ثم ضع رابط الصورة

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

(04-02-20, 12:02 AM)محمدالزند كتب : [ -> ]
PHP كود :

Private Sub pbox_Click(sender As Object, e As EventArgs) Handles pbox.Click Dim url = "http://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) المفروض لا توجد مسافة
هل تقوم بالنسخ واللصق مباشرة من الكود الذي لديك
ام انك تقوم بتعديل الرد ؟

(04-02-20, 12:11 AM)محمدالزند كتب : [ -> ][img]https://d.top4top.io/p_1494d5wx71.png"> [/img]

ده الارور الي في الكود والرابط انا مش عارف الوظيفة بتاعته

تم حذف المسافة وبرضة الصورة الثانية سبب الارور