一个画图的问题.

Question

问题:我在form_load里已经画了一幅图,现在要想在程序中描点.但是我想在描点的同时把上一次所描的点去掉.不能去掉form_load里画的图.
谢谢.

Answer 1

我觉得你先cls一下，然后再直接加上语句form_load看看行不行，我也没试过，不知道行不行~~~~~：）

Answer 2

Option Explicit
Dim x0 As Single, y0 As SinglePrivate Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture1.BackColor = vbWhite
    Picture1.DrawMode = vbNotXorPen
    Picture1.DrawWidth = 5
    x0 = -1
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If x0 <> -1 Then Picture1.Line (x0, y0)-(x0, y0)
    Picture1.Line (X, Y)-(X, Y)
    x0 = X
    y0 = Y
End Sub

Answer 3

kmzs(.:RNPA:.山水岿濛) ,  怎样取的原来点的像素？已知原来点的坐标。

Answer 4

给你一段代码参考另：你的分太少了，让大伙怎么分啊Option ExplicitPrivate Sub Command1_Click()
    Form1.Line (100, 100)-(1000, 1000)
End SubPrivate Sub Command2_Click()
    Me.Cls
End SubPrivate Sub Form_Load()
    Me.AutoRedraw = True
    Me.Circle (1000, 1000), 500
    Set Me.Picture = Me.Image
End Sub