Visual Basi c. Net - проблема с наложенным изображением - PullRequest
Новая
       18

Visual Basi c. Net - проблема с наложенным изображением

0 голосов
/ 26 марта 2020

У меня есть программа, которая делает периодические c скриншоты и сохраняет их. Я хочу наложить линейный график поверх графика. У меня есть рабочий график, и я могу сохранить скриншоты. Когда я пытаюсь наложить изображение диаграммы поверх скриншота, это не работает. Я вижу скриншот и наложенный текст, но изображение элемента управления диаграммой просто не отображается.

Когда код работает, изображение диаграммы должно находиться в верхнем правом углу окна. изображение. 

       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim sImageFile As String = ""

            Dim newimage As Bitmap
            newimage = screenCapture()

            Dim gr As Graphics = Graphics.FromImage(newimage)
            Dim myFontLabels As New Font("Arial", 48, FontStyle.Regular)
            Dim myBrushLabels As New SolidBrush(Color.Red)

            Dim graphImage As New Bitmap(Chart1.Width, Chart1.Height)
            Chart1.DrawToBitmap(graphImage, New Rectangle(Chart1.Location, Chart1.Size))

            gr.DrawString(Format(Now(), "M/d/yy H:mm"), myFontLabels, myBrushLabels, newimage.Size.Width - 500, newimage.Size.Height - 100) '# last 2 number are X and Y coords.
            gr.DrawImage(graphImage, New Point(newimage.Size.Width - 500, 50))

            sImageFile = "c:\temp\Test_" + Format(Now(), "MMddyyyy_Hmmss") + ".jpg"
            newimage.Save(sImageFile, System.Drawing.Imaging.ImageFormat.Jpeg)
            PictureBox1.Image = newimage

        End Sub
...