Question

vb中line函数的使用方法

关于LINE的使用方法，我一直都不会用
总是画不出线来
请说得详细点，谢谢了
是在做一个画图板的时候要用的
在鼠标按下、移动、弹起的代码总是写不成功

Answer 1

object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。

Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。

(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。

Step 可选的。关键字，指定相对于线的起点的终点坐标。

(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。

color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。

B 可选的。如果包括，则利用对角坐标画出矩形。

F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。

Answer 2

Line (100, 100)-(3000, 3000)
从100，100画到3000，3000
会不会你坐标点太小了

Answer 3

把画板的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