帮我修改一下画直线的代码,多谢

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
xx = X
yy = Y
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line (xx, yy)-(X, Y)
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line (xx, yy)-(X, Y)
End If
End Sub

画的直线起点总是在picture的左上角,不知为什么?

Option Explicit
Dim xx As Single
Dim yy As Single

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
xx = X
yy = Y
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line (xx, yy)-(X, Y)
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line (xx, yy)-(X, Y)
End If
End Sub

2楼的只是把楼主的代码抄了一遍吧?没看到哪里改过嘛.
楼主,你这明显不是正常的画线嘛,在Move事件里写画线的语句干吗?
只在MouseUp里面写不行吗?
还有你奇怪它为什么从左上角开始是吗?
因为坐标系统中左上角是(0,0)点,右下角是(width,height)点呗

2楼的只是把楼主的代码抄了一遍吧?没看到哪里改过嘛.
楼主,你这明显不是正常的画线嘛,在Move事件里写画线的语句干吗?
只在MouseUp里面写不行吗?
还有你奇怪它为什么从左上角开始是吗?
因为坐标系统中左上角是(0,0)点,右下角是(width,height)点呗

你在代码编写过程中忽视了变量的作用范围, 在不同的sub过程中变量如果要想通用,必须扩大范围,应加入
dim xx,yy as single 使其作为全局变量,即可,在你所写的程序中,由于没有声明变量范围, 所以xx,yy在默认的情况下是赋的0,0的值,即窗口左上角
建议用 currentX,currentY,来获得新的画图起点,为mousedown事件编写代码.