Question

VB下用line如何在一个picturebox里画两条线？

只想画直线，从（0，0）开始以不同斜率上升。还要不同颜色。

Answer 1

picturebox1.forecolor=vbred
picturebox1.line (0,0)-(x,y)

追问

要两条啊！

追答

picturebox1.forecolor=vbgreen
picturebox1.line (0,0)-(x2,y2)

追问

有没有完整的可运行程序啊？x，y，x2，y2要是随时间变化能不能画啊？要是这么简单就不在知道里提问了。

追答

当然随时可以根据时间变化了

Answer 2

Line 方法示例
这个示例用 Line 方法在窗体上画了几个同心矩形。要运行这个示例，将此代码放入窗体的 General 部分。按 F5 并单击窗体。

Sub Form_Click ()
Dim CX, CY, F, F1, F2, I ' 声明变量。
ScaleMode = 3 ' 设置 ScaleMode 为像素。
CX = ScaleWidth / 2 ' 水平中点。
CY = ScaleHeight / 2 ' 垂直中点。
DrawWidth = 8 ' 设置 DrawWidth。
For I = 50 To 0 Step -2
F = I / 50 ' 执行中间步骤。
F1 = 1 - F: F2 = 1 + F ' 计算。
Forecolor = QBColor(I Mod 15) ' 设置前景颜色。
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents ' 做其它处理。
If CY > CX Then ' 设置 DrawWidth。
DrawWidth = ScaleWidth / 25
Else
DrawWidth = ScaleHeight / 25
End If
For I = 0 To 50 Step 2 ' Set up loop.
F = I / 50 ' 执行中间。
F1 = 1 - F: F2 = 1 + F ' 计算。
Line (CX * F1, CY)-(CX, CY * F1) ' 画左上角。
Line -(CX * F2, CY) ' 画右上角。
Line -(CX, CY * F2) ' 画右下角。
Line -(CX * F1, CY) ' 画左下角。
Forecolor = QBColor(I Mod 15) ' 每次改变颜色。
Next I
DoEvents ' 进行其它处理。
End Sub

追问

只想画直线，从（0，0）开始以不同斜率上升。还要不同颜色。

追答

怎么开始不说清楚？