[VB.NET] استفسار عن تصدير الرسم البياني الى ملف الوورد

كود :

       Dim ms As New MemoryStream

        PbChart_pic.Image.Save(ms, PbChart_pic.Image.RawFormat)

        Img = ms.ToArray

        InsertNewRowIn_Member_Tbl(TxtMember_ID.Text, TxtMember_name.Text, DtpMember_Date.Text, TxtMember_age.Text, TxtMember_Wieght.Text, TxtMember_hight.Text, TxtBrotin.Text, TxtKrpohidrat.Text, TxtDohon.Text, Img)

PHP كود :

       Dim Img0 As New Bitmap(PbChart_pic.Width, PbChart_pic.Height)
        Dim G As Graphics = Graphics.FromImage(Img0)
        Dim R As New Rectangle(0, 0, PbChart_pic.Width, PbChart_pic.Height)
        G.FillRectangle(Brushes.Yellow, R)
        G.DrawRectangle(Pens.Black, R)
        Dim ms As New MemoryStream
        Img0.Save(ms, Imaging.ImageFormat.Png)
        Img = ms.ToArray
        G.Dispose()

PHP كود :

       Dim Img0 As New Bitmap(PbChart_pic.Width, PbChart_pic.Height)
        Dim G As Graphics = graphics.FromImage(Img0)
        Dim R As New Rectangle(0, 0, PbChart_pic.Width, PbChart_pic.Height)
        G.FillRectangle(Brushes.Yellow, R)
        G.DrawRectangle(Pens.Black, R)
        Dim ms As New MemoryStream
        Img0.Save(ms, Imaging.ImageFormat.Png)
        Img = ms.ToArray
        G.Dispose()

PHP كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim i1 As Decimal = TxtBrotin.Text
        Dim i2 As Decimal = TxtKrpohidrat.Text
        Dim i3 As Decimal = TxtDohon.Text
        Dim total As Decimal = i1 + i2 + i3
        Dim deg1 As Decimal = (i1 / total) * 360
        Dim deg2 As Decimal = (i2 / total) * 360
        Dim deg3 As Decimal = (i3 / total) * 360
        Dim pen As New Pen(Color.Black, 2)

        Dim Img0 As New Bitmap(PbChart_pic.Width, PbChart_pic.Height)
        Dim graphics As Graphics = PbChart_pic.CreateGraphics()

        Dim rect As New Rectangle(50, 25, 200, 200)
        Dim brush1 As New SolidBrush(Color.Green)
        Dim brush2 = New SolidBrush(Color.Yellow)
        Dim brush3 = New SolidBrush(Color.Red)
        Dim G As Graphics = graphics.FromImage(Img0)
        G.Clear(PbChart_pic.BackColor)
        G.FillPie(brush1, rect, 0, deg1)
        G.FillPie(brush2, rect, deg1, deg2)
        G.FillPie(brush3, rect, deg1 + deg2, deg3)
        Dim ms As New MemoryStream
        Img0.Save(ms, Imaging.ImageFormat.Png)
        Img = ms.ToArray
        PbChart_pic.Image = Image.FromStream(ms)
        G.Dispose()
        mytotal()
    End Sub

كود :

 Dim i1 As Decimal = TxtBrotin.Text

        Dim i2 As Decimal = TxtKrpohidrat.Text

        Dim i3 As Decimal = TxtDohon.Text



        Dim total As Decimal = i1 + i2 + i3



        Dim deg1 As Decimal = (i1 / total) * 360

        Dim deg2 As Decimal = (i2 / total) * 360

        Dim deg3 As Decimal = (i3 / total) * 360





        Dim Img0 As New Bitmap(PbChart_pic.Width, PbChart_pic.Height)

        Dim pen As New Pen(Color.Black, 2)

        Dim graphics As Graphics = graphics.FromImage(Img0)

        Dim rect As New Rectangle(0, 0, PbChart_pic.Width, PbChart_pic.Height)

        Dim brush1 As New SolidBrush(Color.Green)

        Dim brush2 = New SolidBrush(Color.Yellow)

        Dim brush3 = New SolidBrush(Color.Red)

        graphics.Clear(PbChart_pic.BackColor)

        graphics.FillPie(brush1, rect, 0, deg1)

        graphics.FillPie(brush2, rect, deg1, deg2)

        graphics.FillPie(brush3, rect, deg1 + deg2, deg3)



      

        Dim ms As New MemoryStream

        Img0.Save(ms, Imaging.ImageFormat.Png)

        Img = ms.ToArray

        graphics.Dispose()

        PbChart_pic.Image = Img0