EXCEL VBA:Xor 笔

2015-04-12 18:40 阅读 80 次 评论关闭

对于动画来说,7 是 DrawMode 的一个有用的设置值。一条线画出两次,就可精确还原该线画出之前地有的显示内容。这样就可能创建一个在背景上移动却不会使其毁坏的对象,因为在移动时,可以还原背景。大多数模式不能保护原来的背景。

例如,下列代码的作用是:每单击一下鼠标就移动一个圆,无论圆底下有什么,它都能被还原。

Private Sub Form_Click ()
   ForeColor = 255 : DrawMode = 7
   Circle (CurrentX, CurrentY), 1000
   CurrentX = CurrentX + 220
   CurrentY = CurrentY + 220
   Circle (CurrentX, CurrentY), 1000
End Sub

Xor 笔的绘图模式(以及大多数其它的 DrawMode 设置值),是通过将绘图样式(被称作“笔”)中的各个像素与存在区(被称作“目标”)中的相应像素进行比较的方式工作的。在单色系统中,像素不是被打开就是被关闭,Visual Basic 进行一种简单的逻辑比较:如果笔和目标中有一个打开,而不是两个同时都打开时,则使像素打开。

在彩色系统中,每一个像素都赋给一个色值。对于 DrawMode 的 Xor 笔这样的设置值来说,Visual Basic 将对笔和目标里相应的每一对像素进行比较,执行二进制(位方式)的比较操作。结果决定生成像素的色值。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA:Xor 笔 | 猎微网
分类:Excel VBA 标签:, , ,

评论已关闭!