求用vb编一段简单程序，跟画图有关的。

来源：百度知道 编辑：UC知道 时间：2024/09/28 15:29:48
就是用鼠标在图片框里点一下，就出现一个点，点到别处，原来的点就消失在新的地方产生一个点，谁来帮帮忙？
picture1上还有别的图形，用picture1.cls的语句不会把他们都消去了吗？还有，pset画出来的点能调大小而不改变图上原有的其他的线条吗？

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Cls
Picture1.DrawWidth = 10 '这个是用来调整大小的

Picture1.PSet (X, Y)

End Sub

先在另一个控件上储存图片,或者干脆把图片保存起来.在画点时让把图片设为原来没点的那张,然后画上点.
Private Sub Form_Load()
Picture2.Picture = Picture1.Image'把PICTURE1上画的图保存到PICTURE2
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.PaintPicture Picture2.Picture, 0, 0'让PICTURE1画上PICTURE2的图片
Picture1.PSet (X, Y)'画点
End Sub

好久没用 具体语句忘了反正就是在先注册鼠标坐标，然后再第一行写clear 第二行再写画点的语句 挺简单的