'定义Picture坐标系,绘制中轴线
Private Sub Command1_Click()
Dim Y%, X%
Me.Picture1.Scale (0, 100)-(200, 0)
Me.Picture1.Line (0, 50)-(200, 50), vbRed
End Sub

'按下鼠标获取点坐标
Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
End Sub
'画线
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button Then
Me.Picture1.Line -(X, Y), vbBlue
End If
End Sub

问题:
如何修改才能得到不连续的任意曲线?(即鼠标按下后再按下鼠标,在两点之间不会形成连线!)

多谢指教!

加个变量判断：
一开始设置：mblnIsDrawing=False

当鼠标左键点下时，设置mblnIsDrawing=True

鼠标放开时设置为：mblnIsDrawing=False

Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button=vbleftbutton then
mblnisdrawing=true
CurrentX = X
CurrentY = Y
endif
End Sub

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mblnisdrawing Then
Me.Picture1.Line -(X, Y), vbBlue
End If
End Sub

Private Sub picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button=vbleftbutton then
mblnisdrawing=false
endif
End Sub

首先感谢楼上兄弟的热情帮助！
按照上述方法问题仍然得不到解决，调试时得到的依然是连续曲线．

'定义Picture坐标系,绘制中轴线
Dim nm
Private Sub Command1_Click()
Dim Y%, X%
Me.Picture1.Scale (0, 100)-(200, 0)
Me.Picture1.Line (0, 50)-(200, 50), vbRed
End Sub

Private Sub Form_Load()
nm = 1
End Sub

'按下鼠标获取点坐标
Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
End Sub
'画线
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button Then
If nm = 1 Then
Me.Picture1.Line (X, Y)-(X, Y), vbBlue
nm = 2
Else
Me.Picture1.Line -(X, Y), vbBlue
End If
End If
End Sub

Private Sub picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
nm = 1
End If
End Sub

[此贴子已经被作者于2007-7-26 18:32:11编辑过]

感谢＾＿＾