0

我在绘制 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);
}

如何清除绘图区域？

4

1 回答 1

2

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

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

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

于 2012-08-08T16:28:37.607 回答