Excel VBA基础教程:画点

单个像素的控制，是简单的图形操作。PSet 方法用来设置指定点处像素的色彩：

[object.]PSet(x,y)[,color]

x和y参数是单精度参数，所以它们可以接受整数或分数的输入。输入可以是任何含有变量的数值表达式。

如果没有包括color参数，PSet 将像素设置为前景色 (ForeColor)。例如，下述语句在当前窗体（代码所连接的窗体），MyForm，和 picPicture1 上设置各种点：

PSet (10.75, 50.33)
MyForm.PSet (230, 1000)
picPicture1.PSet (1.5, 3.2)

添加color参数可提供更多控制：

'设置50, 75点为亮蓝色。PSet (50, 75), RGB(0, 0, 255)

Blanker 应用程序是用随机选定的色彩画点，创建 Confetti 演示程序。PSetDemo 过程创建 Confetti：

Sub PSetDemo ()
   '设置红色为随机数。R = 255 * Rnd'设置绿色为随机数。G = 255 * Rnd'设置蓝色为随机数。B = 255 * Rnd'设置水平位置。XPos = Rnd * ScaleWidth'设置垂直位置。YPos = Rnd * ScaleHeight'用随机色画点。PSet (XPos, YPos), RGB(R, G, B)End Sub

Confetti 的显示结果如图 12.13 所示：

图 12.13 在 Blanker 应用程序中的 Confetti 显示

为了“擦除”一点，只要把其颜色设置为背景色即可：

PSet (50, 75), BackColor

如同本章稍后的“画各种直线和形状”一节中描述的，可在 Step 之前加上（x，y）坐标，它可相对最后所画点的位置向下画点。

Point 方法和 PSet 方法是密切相关的，它只是返回指定位置处的颜色值：

PointColor = Point (500, 500)

详细信息详细信息，请参阅《语言参考》的“PSet 方法”和“Point 方法”。