Question

如何在vb 中的窗体上的form上画线，不是有什么form1.line......我也不清楚，就是command事件

就可以画线，要有源码啊，还要有解释 急。。。。。。

Answer 1

我不是高手，对代码的意义理解不深。以下程序简单易学，可供参考：

Private Sub Command1_Click()
Cls
Scale (-15, 15)-(15, -15) ' 规定坐标系的范围(x1,y1)-(x2,y2)，即左上角－右下角
Line (0, 14)-(0, -14) '画y轴
Line (14, 0)-(-14, 0) '画x轴
Line (14.5, 14.5)-(-14.5, -14.5) '画斜线
For x = -13 To 12 Step 0.01 '每隔0.01取一组对应值。以下语句可画函数图像
y = 2 * x ^ 2 + 3 * x - 4 '二次函数解析式
PSet (x, y) '描点
Next x
End Sub

Answer 2

代码如下：Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
For n = 1 To 2000
y = Fix(200 * Sin(n) + 1560)
x = 840 + n
Line (x, y)-(x, y)
Next
End Sub