منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز - نسخة قابلة للطباعة

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

أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز - F.H.M - 25-10-24

الأخوة الأعزاء

السلام عليكم ورحمة الله وبركاته ،،،

أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز

وشكراً جزيلاً

RE: أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز - Zuhare - 25-10-24

اذا كانت الصوره معروضه في PictureBox وهي اصلا موجوده في الجهاز يكفي استخدام الكود Process.Start(filename) مع وضع مسار الصوره في filename واذا كانت غير ذلك فهذا هو الكود
PHP كود :
Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
    If PictureBox1.Image IsNot Nothing Then
        Dim p As String = IO.Path.GetTempFileName & ".png"
        PictureBox1.Image.Save(p, Imaging.ImageFormat.Png)
        Process.Start(p)
    End If
End Sub 


RE: أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز - F.H.M - 25-10-24

الله يعطيك العافية أخ زهير وكثر الله من أمثالك

يظهر لي هذا الخطأ عند الضغط على الصورة

مع العلم بأن الصورة موجوده في قاعدة بيانات Access وتم جلبها من DataGridView

RE: أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز - أبو خالد الشكري - 25-10-24

مرحبا أخي العزيز
جرب الكود التالي :

كود :
        If PictureBox1.Image IsNot Nothing Then
            Dim tempFilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "tempImage.png")
            PictureBox1.Image.Save(tempFilePath, System.Drawing.Imaging.ImageFormat.Png)
            Process.Start(tempFilePath)
        End If


RE: أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز - F.H.M - 25-10-24

أشكرك أخوي بوخالد

نفس الخطأ

RE: أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز - أبو خالد الشكري - 25-10-24

جرب الكود المعدل التالي :
كود :
       If PictureBox1.Image IsNot Nothing Then
           Dim tempFilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "tempImage.png")
           Using tempImage As New Bitmap(PictureBox1.Image)
               tempImage.Save(tempFilePath, System.Drawing.Imaging.ImageFormat.Png)
           End Using
           Process.Start(tempFilePath)
       End If


RE: أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز - F.H.M - 25-10-24

الله يعطيك العافية ويطول بعمرك ومن تحب

جزاك الله خير ماقصرت

الكود الأخير يعمل على أكمل وجه

كثر الله من أمثالك