三环磨料厂分厂怎么样:vb中line函数的使用方法
来源:百度文库 编辑:中科新闻网 时间:2024/10/02 07:00:28
关于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
会不会你坐标点太小了