Question

vb画直线

我做一个一次函数的程序，获得与坐标轴的交点后怎么延长

Answer 1

vb6可以在Picture控件上用line方法画， Picture1.Line (x1, y1)-(x2, y2) 只要 下一条线段的 x1, y1 等于 前一条线段的 x2, y2 就可以画出连续线。曲线都能画。

'用于设置坐标系统的 后面跟上两个坐标,分别是左上角的(X,Y),和右下角的(X,Y)
'即设置原点在左下角
Me.Picture1Scale (0, Me.Picture1.ScaleHeight)-(Me.Picture1.ScaleWidth, -1)

'在原点画一点，此处可以改为你获得的一次函数与坐标轴的交点
Me.Picture1.PSet (0, 0)

'清图，设置不可见，免得用line方法划线的时候，屏幕闪
Me.Picture1.Cls
Me.Picture1.Visible = False '

‘循环画的曲线，仅供参考
For intTmpYQ = 1 To intYQArryCount
Me.Picture1(0).Line -(intX * intTmpYQ, intY * sngTmpYaQi(intTmpYQ))
Next intTmpYQ

’设置为可见，线就画好了
Me.Picture1(0).Visible = True

Answer 2

Private Sub Command1_Click()
x1 = Form1.ScaleWidth / 4
x2 = Form1.ScaleWidth * 3 / 4
y1 = 0.5 * x1 + 1
y2 = 0.5 * x2 + 1
Line (x1, y1)-(x2, y2)
End Sub
Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub
Private Sub Form_Paint()
Dim x1, y1, x2, y2 As Double
Line (0, ScaleHeight / 2)-(Form1.ScaleWidth, ScaleHeight / 2)
Line (Form1.ScaleWidth / 2, 0)-(Form1.ScaleWidth / 2, ScaleHeight)
End Sub

追问

没看懂

追答

只有一个画线函数 Line(x1,y1)-(x2,y2)

箭头和坐标比较麻烦