PSet方法用来在指定的坐标处画点,其格式如下:
[Object.] PSet [step] (x,y)[,color]
uObject是要在其上画点的对象,一般为窗体或图片框。
v (x,y)是坐标值,指明在何处画点。
wstep:选用此项时,(x,y)是相对于当前坐标点的相对位置。例如,若当前坐标点为(100,100),则:
PSet step(100,100)
将在实际坐标点(200,200)处画点。
xcolor:指定画点的颜色,否则点的颜色为对象的前景色。
需要注意的是,PSet方法所绘制的点跟对象的:
DrawWidth属性 —— 指定点的大小
DrawStyle属性 —— 指定点的形状
DrawMode属性 —— 绘图属性,用于颜色设置
BackColor属性 —— 指定画点的背景色
ForeColor属性 —— 指定画点的前景色
例题1:使用PSet方法画点
Private Sub Form_Load()
Form1.DrawWidth = 50
End Sub
Private Sub Form_MouseDown(X As Single, Y As Single)
Form1.PSet(X, Y), vbRed
End Sub
Private Sub Form_MouseUp(X As Single, Y As Single)
Form1.PSet(X, Y), Form1.BackColor
End Sub