杭州交通信息网国家电网韩君简历:在vb里面怎么画直线
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/23 20:28:00
具体的使用方法，我用LINE函数时，总是画不出来
Option Explicit
Private Type point
X As Long
Y As Long
End Type
Dim oldP As point
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then oldP.X = X: oldP.Y = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Line (oldP.X, oldP.Y)-(X, Y), RGB(255, 0, 0)
End Sub
用line函数