منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار (/showthread.php?tid=33259)

الصفحات: 1 2

استفسار - محمدالزند - 02-02-20

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

RE: استفسار - alsalamoni - 03-02-20

(02-02-20, 11:56 PM)محمدالزند كتب : هل يمكن داون لود الصورة بعد ما يتم عرضها في 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


RE: استفسار - alsalamoni - 03-02-20

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

موضوعك عن قاعدة البيانات وليس دايلوج، وضح طلبك بالكامل في المرة القادمة
كود :
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


RE: استفسار - محمدالزند - 03-02-20

نفس المشكلة لاسف Sad
الارور في Dialog Result

RE: استفسار - alsalamoni - 04-02-20

(03-02-20, 11:58 PM)محمدالزند كتب : نفس المشكلة لاسف Sad
الارور في Dialog Result

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

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

RE: استفسار - محمدالزند - 04-02-20

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 
ارفق ازاي صورة في الموضوع ؟

RE: استفسار - alsalamoni - 04-02-20

(04-02-20, 12:02 AM)محمدالزند كتب :
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 ثم ضع رابط الصورة

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

RE: استفسار - alsalamoni - 04-02-20

(04-02-20, 12:02 AM)محمدالزند كتب :
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) المفروض لا توجد مسافة
هل تقوم بالنسخ واللصق مباشرة من الكود الذي لديك
ام انك تقوم بتعديل الرد ؟

RE: استفسار - alsalamoni - 04-02-20



RE: استفسار - محمدالزند - 04-02-20

[صورة مرفقة: p_149410cnb1.png]
مفيش داون لود والصورة مش بتنزل