vb 2015 GDI + растровое размещение

Question

У меня было мало удачи, пытаясь найти ответ на это как на stackoverflow, так и в Интернете в целом.

У меня есть форма в проекте Windows Forms vb 2015 года.

В этой форме я разместил шесть элементов управления: четыре текстовых поля, панель и кнопку.

При нажатии на кнопку, она генерирует растровое изображение, например так:

Private Sub btnSetLeft_Click(sender As Object, e As EventArgs) Handles btnSetLeft.Click 
    Dim R As Integer = CInt(txtRedLeft.Text) 
    Dim G As Integer = CInt(txtGreenLeft.Text) 
    Dim B As Integer = CInt(txtBlueLeft.Text) 
    Dim A As Integer = CInt(txtAlphaLeft.Text) 
    gcL = Color.FromArgb(A, R, G, B) 
    Using bm As Bitmap = New Bitmap(9, 9) 
     Using gBM As Graphics = Graphics.FromImage(bm) 
      Using br As SolidBrush = New SolidBrush(gcL) 
       gBM.FillRectangle(br, New Rectangle(0, 0, 8, 8)) 
      End Using 
     End Using 
    End Using 
End Sub 

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

Как это сделать?

Answer 1

Это не слишком сложно (я упростил ваш пример):

Dim gcL As Color = Color.Blue 
Using bm As New Bitmap(9, 9) 
    Using gBM As Graphics = Graphics.FromImage(bm) 
     Using br As New SolidBrush(gcL) 
      gBM.FillRectangle(br, New Rectangle(0, 0, 8, 8)) 
     End Using 
    End Using 
    panel1.BackgroundImage = bm 
    panel1.BackgroundImageLayout = ImageLayout.Tile 
    panel1.Update() 
End Using