友情提示:同学您好,此页面仅供预览,在此页面学习不会被统计哦! 请进入学习空间后选择课程学习。

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