Поместить изображение формы в массив (VB .net)

Question

Я положил два сплошных круга (фигуры) на форму, изменил их цвета и передвинул их. Когда я нахожу их в нужное положение, я хочу захватить полноцветное изображение формы и как можно быстрее поместить ее в массив. Как я могу это сделать?

Вот как я рисую объекты: Я получаю OvalShape от VB PowerPacks в VB2010Express и рисую его как круг на форме. После этого, я настроить его в коде:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    OccultSize1 = 100 
    OccultSize2 = 50 
    OvalShape1.Width = OccultSize1 
    OvalShape1.Height = OccultSize1 
    OvalShape2.Width = OccultSize2 
    OvalShape2.Height = OccultSize2 
    OvalShape1.Left() = 155 - OvalShape1.Width/2 
    OvalShape1.Top() = 153 - OvalShape1.Height/2 
    OvalShape2.Left() = 155 - OvalShape2.Width/2 
    OvalShape2.Top = 85 'temporary 
    OvalShape1.FillColor = Color.Yellow 
    OvalShape1.BorderColor = Color.Yellow 
    OvalShape2.FillColor = Color.Blue 
    OvalShape2.BorderColor = OvalShape2.FillColor 
    Label1.Text = "100" 
    Label2.Text = "50" 
    Label3.Text = "xxx" 
    tbHue.Value = OvalShape2.FillColor.GetHue 
    RadioButton1.Checked = False 
    RadioButton2.Checked = True 
    LineShape1.Visible = False 
    LineShape2.Visible = True 
    OvalShape3.Visible = False 
    End Sub 

Вот что я пытался с DrawToBitmap (копируется большая часть его от переполнения стека): Button1.Click мое добавление.

Private Function GetFormImage(ByRef GetBitmap As String) As Bitmap 
    ' Make the bitmap. 
    Dim wid As Integer = Me.Width 
    Dim hgt As Integer = Me.Height 
    Dim bm As New Bitmap(wid, hgt) 
    ' Draw the form onto the bitmap. 
    Me.DrawToBitmap(bm, New Rectangle(0, 0, wid, hgt)) 
    bm.Save("E:\rhtempsave\bm.bmp") 
    ' Make a smaller bitmap without borders. 
    wid = 240 'Me.ClientSize.Width 
    hgt = 320 'Me.ClientSize.Height 
    Dim bm2 As New Bitmap(wid, hgt) 
    ' Get the offset from the window's corner to its client 
    ' area's corner. 
    Dim pt As New Point(0, 0) 
    pt = PointToScreen(pt) 
    Dim dx As Integer = 37 'pt.X - Me.Left 
    Dim dy As Integer = 10 'pt.Y - Me.Top 
    ' Copy the part of the original bitmap that we want 
    ' into the bitmap. 
    Dim gr As Graphics = Graphics.FromImage(bm2) 
    gr.DrawImage(bm, 0, 0, New Rectangle(dx, dy, wid, hgt), _ 
     GraphicsUnit.Pixel) 
    bm2.Save("E:\rhtempsave\bm2.bmp") 
    Return bm2 
End Function 

This is bm2.

Answer 1

По какой-то причине, растровые изображения появились на моем диске сегодня, но не вчера. Единственное, что я сделал в то же время, - это выключить компьютер и перезагрузить компьютер. Странно, что Bmps не читаются Photoshop, Photoshop Elements или фоторедактором Win10, но они отображаются в виде значков в диалоговом окне диска. Вероятно, проблема с заголовком. Я думаю, что мне хорошо идти со следующим шагом поместить bmp в массив для последующего поиска. Благодарю. Я очень благодарен за ваш быстрый ответ.