语法

说明(应用于)

示例

将对象上的点设置为指定颜色。

语法

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

PSet方法的语法有如下对象限定符和部分：

部分　描述

object　可选的。对象表达式，其值为“应用于”列表中的对象。如果object省略，具有焦点的窗体作为object。

Step　可选的。关键字，指定相对于由CurrentX和 CurrentY属性提供的当前图形位置的坐标。

(x, y)　必需的。Single（单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。

color　可选的。Long（长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的ForeColor属性值。可用 RGB函数或 QBColor函数指定颜色。

说明

所画点的尺寸取决于DrawWidth属性值。当 DrawWidth为 1，PSet将一个像素的点设置为指定颜色。当 DrawWidth大于 1，则点的中心位于指定坐标。

画点的方法取决于DrawMode和 DrawStyle 属性值。

执行PSet时，CurrentX和 CurrentY属性被设置为参数指定的点。

想用PSet方法清除单一像素，规定该像素的坐标，并用 BackColor属性设置作为 color参数。

应用于

Form 对象、Forms 集合、PictureBox 控件、Printer 对象和 Printers 集合、PropertyPage 对象、UserControl 对象等等

示例

这个示例用PSet方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。

Sub Form_Click () Dim CX, CY, Msg, XPos, YPos ' Declare variables. ScaleMode = 3 ' 设置ScaleMode 为像素。 DrawWidth = 5 ' 设置DrawWidth.ForeColor = QBColor(4) ' 设置前景为红色。 FontSize = 24 ' 设置点的大小。 CX = ScaleWidth / 2 ' 得到水平中点。 CY = ScaleHeight / 2 ' 得到垂直中点。 Cls ' 清窗体。 Msg = "Happy New Year!"CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置。 CurrentY = CY - TextHeight(Msg) ' 垂直位置。 Print Msg ' 打印消息。 DoXPos = Rnd * ScaleWidth ' 得到水平位置。 YPos = Rnd * ScaleHeight ' 得到垂直位置。 PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。 DoEvents ' 进行 Loop ' 其它处理。 End Sub