VC中画虚线矩形的方法

CDC * dc = GetDC();
        CPen * pOldPen = NULL;
        CPen pen;
        if (m_bDashLine)
            pen.CreatePen(PS_DASH, 1, RGB(0, 255, 0));//虚线
        if (m_bDotDashLine)
            pen.CreatePen(PS_DASHDOT, 1, RGB(0, 0, 255));//点画线
        if (m_bFullLine)
            pen.CreatePen(PS_SOLID, 1, RGB(255, 0, 0));//实线

        pOldPen = dc->SelectObject(&pen);

        CBrush * pOldBrush = NULL;
        CBrush * pBrush = CBrush::FromHandle((HBRUSH)GetStockObject(NULL_BRUSH));//背景透明效果
        pOldBrush = dc->SelectObject(pBrush);

        CRect rect;
        rect.SetRect(m_pointStart, point);

        dc->Rectangle(&rect);
        dc->SelectObject(pOldPen);
        pen.DeleteObject();