Question

VB中pset函数的作用？

Answer 1

object.PSet [Step] (x, y), [color]PSet 方法的语法有如下对象限定符和部分：部分描述object可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。Step可选的。关键字，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。(x, y)必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。color可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。

可以用来清除制定位置点或画出一个点。

Answer 2

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

Answer 3

pset是用来放置控件某一点，设置该点的颜色值，用于绘图

Answer 4

VB中pset函数的作用是将对象上的点设置为指定颜色。
示例：
这个示例用PSet方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。
Sub Form_Click()
Dim CX, CY, Msg, XPos, YPos ' 声明变量。
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 ' 打印消息。
Do
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。
DoEvents ' 进行其它处理。
Loop
End Sub