vb6.0中,spread如何做这样的统计图吗（见图）

如题，见下图：

回复 1楼tianyake的帖子

tianyake 你好，
实现图中功能需要使用自己画，可以参考帮助文档：
To create an owner-drawn cell  章节。

随机安装 Demo ：C:\Program Files (x86)\FarPoint Technologies\Spread 8\Samples\ActiveX\VB6\Overview

7.0里面可以做吗
我看到7.0里的Samples\ActiveX\VB6\Overview没有图表的例子

回复 3楼tianyake的帖子

不是图表的例子，是General 下的一个例子，如图：




Spread COM 7.0 我没有安装，不知道你在帮助文档中是否搜索到了 To create an owner-drawn cell  相关章节？如果有就可以进行自定义绘制。

7.0下也有这个，也能够搜索到To create an owner-drawn cell ，里面有很多celltype，不知道应该用哪种？
能否帮我弄两个数据，做两个上图的柱状图和线图

回复 5楼tianyake的帖子

不好意思，Spread COM版不支持图表功能，Spread 其他平台产品都提供丰富图表功能。
VB6.0 绘图方法我也不太了解，在 Spread 使用方面，起作用的是这个事件：

1. 
   
2. Private Sub spread_DrawItem(ByVal Col As Long, ByVal row As Long, ByVal hDC As stdole.OLE_HANDLE, ByVal left As Long, ByVal top As Long, ByVal right As Long, ByVal Bottom As Long, ByVal style As Long)
   
3.   Dim s As Long
   
4.   Dim hBrush As Long
   
5.   Dim Rec As RECT
   
6.   Dim xMargin As Long
   
7.   Dim yMargin As Long
   
8.   
   
9.   ' Reduce the cell rectangle by 10 percent on each side.
   
10.   Rec.left = left / Screen.TwipsPerPixelX
    
11.   Rec.right = right / Screen.TwipsPerPixelX
    
12.   Rec.top = top / Screen.TwipsPerPixelY
    
13.   Rec.Bottom = Bottom / Screen.TwipsPerPixelY
    
14. 
    
15.   ' Reduce the rectangle by 20 percent.
    
16.   xMargin = (Rec.right - Rec.left) / 10
    
17.   yMargin = (Rec.Bottom - Rec.top) / 10
    
18.   Rec.left = Rec.left + xMargin
    
19.   Rec.right = Rec.right - xMargin
    
20.   Rec.top = Rec.top + yMargin
    
21.   Rec.Bottom = Rec.Bottom - yMargin
    
22. 
    
23.   ' Use Style parameter (.i.e TypeOwnerDrawStyle property of cell) to
    
24.   ' determine the figure to paint in the cell.
    
25.   If style = STYLE_ELLIPSE Then
    
26.     s = Ellipse(hDC, Rec.left, Rec.top, Rec.right, Rec.Bottom)
    
27.   ElseIf style = STYLE_RECTANGLE Then
    
28.     s = Rectangle(hDC, Rec.left, Rec.top, Rec.right, Rec.Bottom)
    
29.   ElseIf style = STYLE_ROUNDRECT Then
    
30.     s = RoundRect(hDC, Rec.left, Rec.top, Rec.right, Rec.Bottom, (Rec.left - Rec.right) / 3, (Rec.Bottom - Rec.top) / 3)
    
31.   ElseIf style = STYLE_FILLRECT Then
    
32.     hBrush = CreateSolidBrush(RGB(255, 0, 0))
    
33.     s = FillRect(hDC, Rec, hBrush)
    
34.     s = DeleteObject(hBrush)
    
35.   End If
    
36.   
    
37.   ' Also use the Text property of cell
    
38.   spread.Col = Col
    
39.   spread.row = row
    
40.   s = DrawText(hDC, spread.Text, Len(spread.Text), Rec, DT_CENTER + DT_VCENTER + DT_SINGLELINE)
    
41. 
    
42. End Sub
    

复制代码