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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://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("http://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 = "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


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

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 = "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 ثم ضع رابط الصورة

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

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 = "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) المفروض لا توجد مسافة
هل تقوم بالنسخ واللصق مباشرة من الكود الذي لديك
ام انك تقوم بتعديل الرد ؟

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

(04-02-20, 12:11 AM)محمدالزند كتب : [img]https://d.top4top.io/p_1494d5wx71.png"> [/img]
ده الارور الي في الكود  والرابط انا مش عارف الوظيفة بتاعته

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


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


بخصوص الخطا في الكود غير السطر المؤشر عليه خطا بالتالي باضافة كلمة System
If ofd.Show Dialog = System.Windows.Forms.Dialog Result.OK Then
عفوا

ضع SaveFileDialog بدلا من OpenFileDialog

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


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