近日，中共中央印发了《中国共产党党徽党旗条例》（以下简称《条例》），并发出通知，要求各地区各部门认真遵照执行。

通知指出，中国共产党的党徽党旗是中国共产党的象征和标志。维护党徽党旗的尊严，就是维护党的尊严，是各级党组织和每名党员必须履行的政治责任。《条例》是我们党历史上第一部关于党徽党旗的基础主干法规，是党徽党旗制作、使用、管理的基本遵循。《条例》以党章为根本遵循，继承已有好做法，吸收实践新经验，对党徽党旗工作作出全面规范。《条例》的制定和实施，对于充分发挥党徽党旗的政治功能，增强党的凝聚力、战斗力，激发党员党的意识，激励全党不忘初心、牢记使命，坚定理想信念，团结带领全国各族人民在党的旗帜下奋勇前进，具有十分重要的意义。

由于制法图示非常详细，操作性很强，准备用VBNET的GDI+功能绘制一个标准党徽庆祝中国共产党成立100周年。

具体过程如下：

为方便对照，先对照一下原稿说明：

首先定义一个党徽类

Public Class 党徽制法    Dim k As Integer    Dim 标准黄 As Color    Dim 标准红 As Color   End Class

根据标准色度值：设置

 标准黄 = Color.FromArgb(253, 207, 48) '黄色标准色度值  标准红 = Color.FromArgb(237, 44, 37) '红色标准色度值

为方便绘制，定义缩放因子＝20，也就是图上20像素等于单位1

第一步：先绘制网格：

网格可以方便定位，调试。每格宽度和高度都是20像素

第二步：绘制锤头，主要由2个实心多边形绘制。

 Dim Point() As PointF = {New PointF(29 * k, 33 * k), New PointF(33 * k, 29 * k), New PointF(11 * k, 7 * k), New PointF(7 * k, 11 * k)}        g.FillPolygon(myBrush, Point)        Dim Point2() As PointF = {New PointF(8.5 * k, 18.5 * k), New PointF(19.5 * k, 7.5 * k), New PointF(17 * k, 5 * k), New PointF(13 * k, 5 * k), New PointF(4 * k, 14 * k)}        g.FillPolygon(myBrush, Point2)

第三步，给锤头加上圆弧，

Dim r As Single = Sqrt(3.5 ^ 2 + 4 ^ 2) 画实心扇形(New PointF(13.5, 1), r, 45, 100, Color.White)

方法就是用白色扇形把弧形消除

第四步：分段绘制镰刀弧

 r = 18        画实心扇形(New PointF(17, 15), r, 90.0F, 90.0F, 标准黄) 'P点为圆心        r = Sqrt(6 ^ 2 + 15.5 ^ 2)        画实心扇形(New PointF(11, 16.5), r, 270.0F, 90.0F, Color.White) 'R点为圆心        r = 11.12        画实心扇形(New PointF(16.5, 16.5), r, 0, 90.0F, Color.White) 'T点为圆心        r = 16.65        画实心扇形(New PointF(16.5, 11), r, 90F, 90.0F, Color.White) 'V点为圆心

第五步：绘制镰刀把：

r = 2.5        画实心扇形(New PointF(3.5, 30.5), r, 0, 360, 标准黄) 'X点为圆心 刀柄        Dim Point1() As PointF = {New PointF(4 * k, 28 * k), New PointF(6 * k, 30 * k), New PointF(8 * k, 28 * k), New PointF(6 * k, 26 * k)}        g.FillPolygon(New SolidBrush(标准黄), Point1)

第六步：注释表格线显示，也就是不显示网格线

第七步：改变标准色为标准红：

终于完成了全部绘制。