给你一个例子:Private Sub Form_Load() Picture1.ScaleLeft = -15 Picture1.ScaleTop = -25 Picture1.ScaleWidth = 30Picture1.ScaleHeight = 50 Picture1.Line (-15, 0)-(15, 0), RGB(255, 0, 0) Picture1.Line (0, -25)-(0, 25), RGB(255, 0, 0) For i = -15 To 15 Step 3 Picture1.Line (i, 0)-(i, -1), RGB(255, 0, 0) Picture1.CurrentX = i - 0.5 Picture1.CurrentY = 0 Picture1.Print i Next For i = -25 To 25 Step 5 If i <> 0 Then Picture1.Line (0, i)-(0.4, i), RGB(255, 0, 0) Picture1.CurrentX = -1.5 Picture1.CurrentY = i - 0.5 Picture1.Print -i End If Next End SubPrivate Sub Picture1_Click() '点击图片框,显示曲线 For x = -5 To 5 Step 0.01 y = x * x Picture1.PSet (x, y), RGB(0, 255, 0) Next For x = -5 To 5 Step 0.01 y = -x * x Picture1.PSet (x, y), RGB(255, 0, 0) Next SavePicture Picture1.Image, "c:\quxian1.bmp" End Sub
Picture1.Line (-15, 0)-(15, 0), RGB(255, 0, 0)
Picture1.Line (0, -25)-(0, 25), RGB(255, 0, 0)
For i = -15 To 15 Step 3
Picture1.Line (i, 0)-(i, -1), RGB(255, 0, 0)
Picture1.CurrentX = i - 0.5
Picture1.CurrentY = 0
Picture1.Print i
Next
For i = -25 To 25 Step 5
If i <> 0 Then
Picture1.Line (0, i)-(0.4, i), RGB(255, 0, 0)
Picture1.CurrentX = -1.5
Picture1.CurrentY = i - 0.5
Picture1.Print -i
End If
Next
End SubPrivate Sub Picture1_Click() '点击图片框,显示曲线
For x = -5 To 5 Step 0.01
y = x * x
Picture1.PSet (x, y), RGB(0, 255, 0)
Next
For x = -5 To 5 Step 0.01
y = -x * x
Picture1.PSet (x, y), RGB(255, 0, 0)
Next
SavePicture Picture1.Image, "c:\quxian1.bmp"
End Sub
看看这个:http://www.moon-soft.com/doc/readelite608747.htm
http://topic.csdn.net/u/20080331/19/6c605dcc-2f22-4de7-a7f2-c6c122a615f7.html?1759399285