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函式指定顏色。

所畫點的尺寸取決於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 ' 聲明變數。

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) ' 垂直位置。