如何清除ActiveX OCX控件的绘图区域？

Question

我在绘制ActiveX控件时遇到了一些麻烦。在下面的屏幕截图中，您将在VB6 IDE中调整大小后看到控件。调整大小之前的控件轮廓仍然显示在控件的左侧：

以下是使用红色Z绘制黑色省略号的代码：

void CzFileIoXCtrl::OnDraw(CDC* pdc, 
                           const CRect& rcBounds, 
                           const CRect& rcInvalid)
{
    if (!pdc)
    {
        return;
    }

    pdc->SetBkMode(TRANSPARENT); 
    pdc->SelectObject(CBrush::FromHandle((HBRUSH)GetStockObject(BLACK_BRUSH)));
    pdc->Ellipse(rcBounds.left, rcBounds.top, 
                 rcBounds.left + rcBounds.Width(), 
                 rcBounds.top + rcBounds.Height());       

    HFONT font = CreateFont(int(rcBounds.Height() * 0.7),
                            int(rcBounds.Width()  * 0.5),
                            0, 0, FW_BLACK, FALSE, FALSE, FALSE,
                            ANSI_CHARSET,
                            OUT_DEFAULT_PRECIS,
                            CLIP_DEFAULT_PRECIS,
                            CLEARTYPE_QUALITY,
                            FF_DECORATIVE, NULL);
    pdc->SelectObject(font);
    pdc->SetTextColor(RGB(255, 0, 0));
    DRAWTEXTPARAMS params = { sizeof(DRAWTEXTPARAMS), 1, 0, 0, 1 };
    RECT bounds = rcBounds;
    CString z(L"Z");
    pdc->DrawTextEx(z, &bounds, DT_CENTER | DT_VCENTER | DT_SINGLELINE, &params);
}

如何清除绘图区域？

Answer 1

我设法在vb表单编辑器中重现了这一点。看起来问题来了，因为你没有在椭圆之外画任何东西。因此，您可以在OnDraw（）中绘制任何内容之前在整个区域中绘制一个矩形。

pdc->FillRect( rcBounds, &CBrush(TranslateColor( AmbientBackColor() )) );

我对此进行了测试并且工作正常。