有关 line 方法画线的问题

Question

或则以异或方式绘制，再画一次就是清除DrawMode 属性
      返回或设置一个值，以决定图形方法的输出外观或者 Shape 及 Line 控件的外观。语法object.DrawMode [= number]DrawMode 属性语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
Number 整型值，指定外观，“设置值”中有详细描述。 
设置值number 的设置值为：常数 设置值 描述 
VbBlackness 1 黑色。 
VbNotMergePen 2 非或笔 － 与设置值 15 相反 (Merge Pen)。 
VbMaskNotPen 3 与非笔 － 背景色以及画笔反相二者共有颜色的组合。 
VbNotCopyPen 4 非复制笔 － 设置值 13 (Copy Pen) 的反相 
VbMaskPenNot 5 与笔非 － 画笔以及显示反相二者共有颜色的组合。 
VbInvert 6 反转 － 显示颜色的反相 
VbXorPen 7 异或笔 － 画笔的颜色以及显示颜色的组合，只取其一。 
VbNotMaskPen 8 非与笔 － 设置值 9 (Mask Pen) 的反相。 
VbMaskPen 9 与笔 － 画笔和显示二者共有颜色的组合。 
VbNotXorPen 10 非异或笔 － 方式 7 的反相 (Xor Pen)。  
VbNop 11 无操作 － 输出保持不变。该设置实际上关闭画图。 
VbMergeNotPen 12 或非笔 － 显示颜色与画笔颜色反相的组合。 
VbCopyPen 13 复制笔（缺省值） － 由 ForeColor 属性指定的颜色。 
VbMergePenNot 14 或笔非 － 画笔颜色与显示颜色的反相的组合。 
VbMergePen 15 或笔 － 画笔颜色与显示颜色的组合。 
VbWhiteness 16 白色。 
说明当用 Shape 或 Line 控件，或者用图形方法画图时，使用这个属性产生可视效果。Visual Basic 将绘图模式的每一个像素与现存背景色中相应的像素做比较，然后进行逐位比较操作。例如，设置值 7（异或笔）用 Xor 操作符将绘图模式像素和背景像素组合起来。DrawMode 设置值的真正效果，取决于运行时所画线的颜色与屏幕已存在颜色的合成。对于设置值 1，6，7，11，13 和 16 可以最可靠地预知该属性的输出结果。

Answer 1

谢谢。保存图像的方法我先前已经测试成功了，但是需要在 画的时候不停loadpicture 才行，我怕影响系统运行速度设置 DrawMode ＝ 7 以后，为什么画不出来线了？ 或者说画出来的都是背景色？我还设置了 picture.ForeColor = &H80000012 黑色的

Answer 2

最好设为白色——&HFFFFFF保存到另一个PictureBox（AutoReDraw设为True,用PaintPicture方法传输图像）
PaintPicture 方法
      用以在 Form, PictureBox 或 Printer 上绘制图形文件（.bmp、.wmf、.emf、.cur、.ico或 .dib）的内容。不支持命名参数。语法object.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcodePaintPicture 方法的语法包含下列部分：部分 描述 
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的 Form 对象缺省为 object。 
Picture 必需的。要绘制到 object 上的图形源。Form 或 PictureBox 必须是 Picture 属性。 
x1, y1 必需的。均为单精度值，指定在 object 上绘制 picture 的目标坐标（x-轴和y-轴）。object 的 ScaleMode 属性决定使用的度量单位。  
Width1 可选的。单精度值，指示 picture 的目标宽度。object 的 ScaleMode 属性决定使用的度量单位。如果目标宽度比源宽度 (width2) 大或小，将适当地拉伸或压缩 picture。如果该参数省略，则使用源宽度。 
Height1 可选的。 单精度值，指示 picture 的目标高度。object 的 ScaleMode 属性决定使用的度量单位。如果目标高度比源高度 (height2) 大或小，将适当地拉伸或压缩 picture。如果该参数省略，则使用源高度。 
x2, y2 可选的。均为单精度值，指示 picture 内剪贴区的坐标（x-轴和y-轴）。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略，则缺省为 0。 
Width2 可选的。单精度值，指示 picture 内剪贴区的源宽度。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略，则使用整个源宽度。 
Height2 可选的。 单精度值，指示 picture 内剪贴区的源高度。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略，则使用整个源高度。 
Opcode 可选的。是长型值或仅由位图使用的代码。它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作（例如， vbMergeCopy 或 vbSrcAnd 操作符）。关于位操作符常数的完整列表，请参阅 Visual Basic Help 文件中的 RasterOp Constants 主题。 
在使用opcode时有一些限制。例如，如果资源是图标或图元文件，则只能使用 vbSrcCopy，而不能使用其他的opcode；并且，与图案 (或 SDK 术语中的"画笔")，如 MERGECOPY、 PATCOPY、 PATPAINT 和 PATINVERT，相交互的opcode实际上是同目标的 FillStyle 属性交互。注意   Opcode 用于将按位操作传递到位图。当传递其他图象类型时将一个值给该参数会造成“无效过程调用或参数”错误。这是设计的原因。要避免这个错误，对于除位图外的图象，将 Opcode 参数置为空。
 
说明通过使用负的目标高度值 (height1) 和 / 或目标宽度值 (width1) ，可以水平或垂直翻转位图。 可以省略任何多个可选的尾部的参数 。如果省略了一个或多个可选尾部参数，则不能在指定的最后一个参数后面使用逗号。如果想指定某个可选参数，则必须先指定语法中出现在该参数前面的全部参数。注意，在将一个.Bmp加载入 PictureBox 控件和使用 Windows API 函数 BitBlt() 添加图片之间有一点不同。当您对一个图象使用 BitBlt() 时，PictureBox 控件不知道象您使用 LoadPicture方法那样去调整大小。将 ScaleWidth 和 ScaleHeight 属性设置为图象的大小也不起作用。如果您想在使用 BitBlt 之后用 PictureBox 调整新图片的大小，必须用代码手工做，转换单位并处理边框，下面是如何这样做的一个简单示例：Sub ResizePictureBoxToImage(pic as PictureBox, twipWd _
  as Integer, twipHt as Integer)
 ' 该代码假设所有的单位都为缇。如果
 ' 不是，必须在调用该例程之前，转换为缇。
 ' 这里也假设图象显示在0,0处。
 Dim BorderHt as Integer, BorderWd as Integer
 BorderWd = Pic.Width - Pic.ScaleWidth
 BorderHt = Pic.Height - Pic.ScaleHeight
 pic.Move pic.Left, pic.Top, twipWd + BorderWd, _
   twipHt + BorderHt
End Sub