Question

vb6.0 画折线图，chart，line等控件也行

有四列数据，第一列是x轴的名字，第二到第四列是数据，想画成折线图，怎么实现呢，数据如下，谢谢了，如果有把握能详细教会的，有意向的加我qq 958592577。有报酬。 末尾的图是我用excel画的图，现在想用vb来实现这个图20 54.78 52.70 50.77 21 46.15 41.45 39.96 22 56.99 40.23 34.96 23 65.50 49.48 42.92 0 43.96 41.09 38.91 1 46.26 44.18 42.33 2 50.94 47.34 44.70 3 31.51 29.42 27.61 4 26.38 24.60 22.91 5 30.12 25.47 22.78 6 37.73 31.63 27.65 7 41.01 32.50 28.37
上面的数据用excel画的图

如果有意向能详细教会的。有酬劳。请加我qq 958592577
另外鼠标移到图中的数据点，能有放大，显示数据功能就最好了。

Answer 1

加你没回，给你看看我的 一个实例吧

Dim BHgc '最高高程
Dim BHLc '里程
Dim BLgc '最低高程
Dim DrwGC '起画点高程
Dim i As Integer '记录条数
Dim GTSL As Integer '杆塔数量
Dim d2Width As Double '绘图大小
Dim d2Height As Double '绘图大小
Dim P2L As Double
Dim P2T As Double
Dim Ttop As Double
Dim TLeft As Double
Dim d2Xc As Double 'X差值
Dim d2Yc As Double 'Y差值
Dim Sfb As Double
Dim tx As Double
Dim ty As Double
Dim p2x As Double
Dim p2y As Double
'==============这是一个鼠标滚轮放大缩小的效果
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 83 Then Call Command1_Click
If KeyCode = 38 Then ‘放大
d2Width = d2Width * 1.1
d2Height = d2Height * 1.1

d2Xc = d2Xc * 1.1 + (p2x * 1.1 - p2x)
d2Yc = d2Yc * 1.1 + (p2y * 1.1 - p2y)

End If
If KeyCode = 40 Then‘缩小
d2Width = d2Width / 1.1
d2Height = d2Height / 1.1

d2Xc = d2Xc / 1.1 + (p2x / 1.1 - p2x)
d2Yc = d2Yc / 1.1 + (p2y / 1.1 - p2y)
End If

Call Drwline '重画线
End Sub

'=================按放大缩小倍率重新画线
Sub Drwline()
Dim endcs As Boolean
If d2Height / 20000 > 2232 Then
Exit Sub
endcs = False
End If
P2.Cls ‘PictureBox重置
P2.FontSize = d2Height / 20000 '设置文字大小
h =1
Sfb = (d2Width / BHLc)
Do While h <= i
If Mid(GPSdata(1, h), 1, 2) <> "FP" Then

Select Case Mid(GPSdata(1, h), 1, 1)
Case "D"
Lcolor = &HEB4BE3
Case "Z"
Lcolor = &HFF&
Case "J"
Lcolor = &HFF&

Case Else
Lcolor = &HFF00&
End Select

x1 = GPSdata(2, h) * Sfb - d2Xc
y1 = P2.ScaleHeight
Y2 = (-GPSdata(3, h) + DrwGC) * 10 * Sfb - d2Yc

If (GPSdata(2, h + 1) * Sfb - d2Xc >= 0 And GPSdata(2, h - 1) * Sfb - d2Xc <= P2.ScaleWidth) Then
If y1 > P2.ScaleHeight Then
y1 = P2.ScaleHeight
Else
y1 = -d2Yc
End If

If Y2 < 0 Then
Y2 = 0
Else
Y2 = (-GPSdata(3, h) + DrwGC) * 10 * Sfb - d2Yc
End If

P2.Line (x1, y1)-(x1, Y2), Lcolor '(GPSdata(2, h) * 1 * bestLCB, (maxmin - (GPSdata(3, h) * 10 - BLgc)) * bestGCB)-(GPSdata(2, h) * 1 * bestLCB, maxmin * bestGCB), Lcolor

If oldx <> 0 Then P2.Line (oldx, oldy)-(x1, Y2), &HFFFF&
oldx = x1
oldy = Y2
P2.Print GPSdata(1, h) ' If Mid(GPSdata(1, h), 1, 1) = "J" Or Mid(GPSdata(1, h), 1, 1) = "Z" Then P2.Print GPSdata(1, h)

endcs = True
Else
If endcs = True Then
P2.Line (oldx, oldy)-(x1, Y2), &HFFFF&
endcs = False
End If
End If

End If
h = h + 1
' rs.MoveNext
Loop
End Sub
前面只是个参考
其实主要就是用到P2.Line （起点X,起点Y)-(终点X,终点Y),颜色
P2.Print 文字
坐标信息都有了，就是个X值和Y值的计算而以了！
希望能帮到你！

Answer 2

这稍纵即逝的诗情画意，
被赋予了柔情，
被赋予了灵魂和生命。
这诗情画意，
千古流传以至永恒。
我从生命之树哈哈