神马品牌网螺旋钢管理论重量:vb中line函数的使用方法
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 20:20:21
关于LINE的使用方法，我一直都不会用
总是画不出线来
请说得详细点，谢谢了
是在做一个画图板的时候要用的
在鼠标按下、移动、弹起的代码总是写不成功
总是画不出线来
请说得详细点，谢谢了
是在做一个画图板的时候要用的
在鼠标按下、移动、弹起的代码总是写不成功
把画板的scaleMode设置为3，在画板的mousedown事件时记下x,y（用全局变量）在mouseup事件使用line函数画线，从全局变量中的xy到函数的xy
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 (100, 100)-(3000, 3000)
从100，100画到3000，3000
会不会你坐标点太小了