前几天见有人发帖说要直线，还是什么函数的图像，今天就无聊中做了一个，大家下载去看看，这里给出源码，供大家学习

Private Sub Command1_Click()
Dim a As Double

P.Cls

P.ForeColor = vbRed
P.DrawWidth = 1
P.ScaleMode = 0  '用户自定义
P.ScaleMode = 3
P.Scale (-10, 10)-(10, -10)'设定坐标尺度

P.Line (-10, 0)-(10, 0), vbBlue'X轴
P.Line (9.7, 0.3)-(10, 0), vbBlue
P.Line -(9.7, -0.3), vbBlue
P.Print "X"

P.Line (0, -10)-(0, 10), vbBlue ’Y
P.Line (-0.3, 9.7)-(0, 10), vbBlue
P.Line -(0.3, 9.7), vbBlue
P.Print "Y"

P.CurrentX = 0.3  'O POINT
P.CurrentY = -0.3
P.Print "0"


P.DrawWidth = 2 '画线
For a = -8.1 To 8.1 Step 0.001
P.PSet (a, CInt(Text1.Text) * a + CInt(Text2.Text)), vbRed
Next a
End Sub

Private Sub Form_Load()
P.ScaleWidth = 8000
P.ScaleHeight = P.ScaleWidth
End Sub

[[it] 本帖最后由 我是菜鸟哦 于 2008-10-6 20:17 编辑 [/it]]

Private Sub Command1_Click()
Form1.Scale (0.5, -1)-(-1.5, 0.5)
DrawWidth = 5
End Sub
我的代码错在哪儿，为什么点击command1 没有反应？

楼上的，你希望有什么反应？

DrawWidth是线宽
Form1.Scale (0.5, -1)-(-1.5, 0.5)是PICTURE的左上角到右下角的坐标，你的范围也忒小了
还有就是你线宽是5.。。。。自己想想

最后没有画线的部分，怎么出效果

[[it] 本帖最后由 我是菜鸟哦 于 2008-10-8 09:15 编辑 [/it]]