[حريف برمجة]

(16-11-18, 09:39 AM)mh66 كتب : ماشاء الله
زادك الله علما

عند حذف الصورة تظهر رسالة خطأ مفادها انه لا يمكن حذف الصورة لانها مرتبطة بالبرنامج
هل هناك كود لفك ارتباط الصورة
علما انني كتبت كود picturebox1.image=nothing قبل الحذف





شكرا وفقك الله

العفو ،،

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

الحل :

كود :

'عرض صورة
        Dim ImgFile As System.IO.FileStream = New System.IO.FileStream(Application.StartupPath & "\Imgs\" & TextBox1.Text & ".jpg", IO.FileMode.Open, IO.FileAccess.Read)
        Dim rawdata As Byte() = New Byte(Convert.ToInt32(ImgFile.Length)) {}
        ImgFile.Read(rawdata, 0, Convert.ToInt32(ImgFile.Length))
        PictureBox1.Image = Image.FromStream(New System.IO.MemoryStream(rawdata))
        ImgFile.Close()
        ImgFile = Nothing

وكود الحذف كما هو ،، بإضافة تفريغ الصورة بعد عملية الحذف :

كود :

'حذف صورة
       System.IO.File.Delete(Application.StartupPath & "\Imgs\" & TextBox1.Text & ".jpg")

       PictureBox1.Image = Nothing

---

(16-11-18, 04:47 PM)mh66 كتب : هذا كود الطباعة


'*****************************************************
    'طباعة
    Dim WithEvents printDoc As New Printing.PrintDocument()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        printDoc.Print()
    End Sub

    Private Sub PrintImage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDoc.PrintPage
        e.Graphics.DrawImage(PictureBox1.Image, e.MarginBounds.Left, e.MarginBounds.Top)
    End Sub
    '****************************************************


1 - عندما انفذ اجراء الطباعة يظهر مربع حوار يطالبني بكتابة اسم للملف هل من الممكن تعديل الكود لعدم ظهور هذا المربع
2 - هل من الممكن تعديل الابعاد لتظهر على كامل ورقة A4 وليس حجم البيكتشر بوكس

شكرا

هل تريد الصورة على كامل الورقة A4 بشكل عمودي أو افقي ؟