矩形面板图形关系

Question

下面的代码不起作用：

Private Sub panelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles panelButton.Click 

    Dim myBrush As Brush 
    myBrush = New SolidBrush(Color.Yellow) 

    fBitmap = New Bitmap(picturePanel.Width, picturePanel.Height) 
    Dim gg As Graphics = Graphics.FromImage(fBitmap) 
    gg.Clear(Color.White) 

    '<<<<<my attempt<<<<<< 
    Dim rec As Rectangle 
    rec = New Rectangle(picturePanel.Location.X, picturePanel.Location.Y, picturePanel.Width, picturePanel.Height) 
    gg.FillRectangle(myBrush, rec) 
    '<<<<<<<<<<<<<<<<<<<<< 

    'gg.FillRectangle(myBrush, gg.ClipBounds) '<<actual answer 

    gg.Dispose() 
    picturePanel.Refresh() 
End Sub 

在小组重绘处理我这有：

Private Sub picturePanel_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles picturePanel.Paint 
    If fBitmap IsNot Nothing Then 
     e.Graphics.DrawImage(fBitmap, 0, 0) 
    End If 
End Sub 

我已经包括了建议代码（标记为actual answer ）但为什么标记为my attempt的部分没有将面板变成黄色？ - 它可以调整，使它变成面板黄色？

Answer 1

rec = New Rectangle(picturePanel.Location.X, picturePanel.Location.Y, _ 
        picturePanel.Width, picturePanel.Height) 

这是错误的矩形。它与面板的父代相对，而不是面板本身。最好你会在最右下角看到矩形。或者根本没有关闭位图。而是相对于位图的左上角绘制。修复：

rec = New Rectangle(0, 0, fBitmap.Width, fBitmap.Height) 

请注意，您将不再会看到任何白色的，因为你完全透支了这一点。目前还不清楚你的意思。也许更具说明性的是给它一个黄色的边框：

rec = New Rectangle(0, 0, fBitmap.Width-1, fBitmap.Height-1) 
gg.DrawRectangle(Pens.Yellow, rec) 

不喜欢使用语句而不是显式的Dispose（）调用。在刷子上使用它，它也应该被处置。