Question

vb里我要单击窗体时产生点，但是松开鼠标时这个点就消失要怎么弄，我是要在form_click里编这

vb里我要单击窗体时产生点，但是松开鼠标时这个点就消失要怎么弄，我是要在form_click里编这个

Answer 1

代码如下：

Dim ax, ay As Integer
Private Sub Form_Click()
Me.PSet (ax, ay), vbRed
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ax = X
ay = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (ax, ay), Me.BackColor
End Sub

追问

额，忘了说了，就是必须要在鼠标点的那个地方画

追答

是啊，上面就是在你鼠标点的位置画的点啊

追问

这个是我的目的，不知道判断语句在您这个里面该怎么插

追答

这已经是另一个问题了，如果早知道你要做完一个再做一个的话，我早就不回答了。
...

Answer 2

北京化工大学的同学？