Question

VB中PSet (xx + 50, yy) 中PSet什么意思

VB中PSet (xx + 50, yy) 中PSet什么意思

Answer 1

pset是指对你设置的坐标处打一个点的意思，
pset(xx+50,yy),变量xx与yy随着你程序的变化，就能打印出你想要的图形，这些图形的都由一个一个的点组成的。

Answer 2

画点语句，在xx + 50, yy的坐标位置画一个点。

Answer 3

在 (xx+50, yy) 画一个点
将对象上的点设置为指定颜色。

语法

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

Answer 4

Pset (xx+50,yy)
就是在坐标（xx+50,yy）处画一个点

Answer 5

PSet 方法
将对象上的点设置为指定颜色。
语法
object.PSet [Step] (x, y), [color]
PSet 方法的语法有如下对象限定符和部分：

部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。
(x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。
color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
PSet 方法示例
这个示例用 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 ' 打印消息。
Do
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。
DoEvents ' 进行
Loop ' 其它处理。
End Sub