owc11, y-axis 的问题, 求救

tensaix2j

2006 July


我用 owc11 来画 line chart 的话，如果y axis 是date,x-axis 是label

那该怎么code？..

因为这样不行。。。

1. 
   
2.         dim str,strinterval as string
   
3.        
   
4.         strinterval = "a,b,c,d,e"
   
5.         str = "7/1/2005,7/2/2005,7/3/2005,7/4/2005,7/5/2005"
   
6. 
   
7.         Dim oChartSpace As OWC11.ChartSpaceClass = New OWC11.ChartSpaceClass
   
8.         Dim oconst = oChartSpace.Constants
   
9. 
   
10.         oChartSpace.Charts.Add(0)
    
11. 
    
12.         oChartSpace.Charts(0).Type = 6
    
13.         oChartSpace.Charts(0).HasTitle = True
    
14.         oChartSpace.Charts(0).Title.Caption = "experiment"
    
15. 
    
16.         oChartSpace.Charts(0).SeriesCollection.Add(0)
    
17. 
    
18.       
    
19.         oChartSpace.Charts(0).SeriesCollection(0).SetData(OWC11.ChartDimensionsEnum.chDimCategories, Convert.ToInt32(OWC11.ChartSpecialDataSourcesEnum.chDataLiteral), strinterval)
    
20.         oChartSpace.Charts(0).SeriesCollection(0).SetData(OWC11.ChartDimensionsEnum.chDimValues, OWC11.ChartSpecialDataSourcesEnum.chDataLiteral, str)
    
21. 
    

复制代码

y axis 只显示integer..

[ 本帖最后由 tensaix2j 于 19-7-2006 10:53 AM 编辑 ]

tensaix2j

帮帮忙好吗？很急下。。

tensaix2j

我等了三天了。。

tensaix2j

各位大大帮帮忙，我等了一个月。
google不到我要的答案。。

Sunyata

不好意思，我也不会。你不妨去以下的网址找找看。
http://www.codeproject.com
我在VB.NET 里search owc，是有一些例子。

meemee

看你这么可怜。。。我就想办法帮帮你吧。。。(我也不是很会)

试试加这一行。。。
[size=-1]

1. oChartSpace1.Charts(0).Axes(oconst.chAxisPositionLeft).NumberFormat = "DD/MM/YY"

复制代码

以下，是我用html来做的，你可以参考看看。。。
[size=-1]

1. <object id=ChartSpace1 classid=CLSID:0002E55D-0000-0000-C000-000000000046 style="width:500;height:400"></object>
   
2. 
   
3. <script language=vbs>
   
4. Sub Window_OnLoad()
   
5. 
   
6.     Dim categories(3)
   
7.     Dim values(3)
   
8.     Dim chConstants
   
9. 
   
10.     categories(0) = "a"
    
11.     categories(1) = "b"
    
12.     categories(2) = "c"
    
13.     categories(3) = "d"
    
14. 
    
15.     ChartSpace1.Clear
    
16.     ChartSpace1.Charts.Add(0)
    
17.     ChartSpace1.Charts(0).Type = 6
    
18.     ChartSpace1.Charts(0).HasTitle = True
    
19.     Set chConstants = ChartSpace1.Constants
    
20. 
    
21.     ChartSpace1.Charts(0).SeriesCollection.Add(0)
    
22. 
    
23.     values(0) = #1/8/98#
    
24.     values(1) = #8/4/98#
    
25.     values(2) = #7/2/98#
    
26.     values(3) = #1/7/98#
    
27. 
    
28.     ChartSpace1.Charts(0).SeriesCollection(0).Caption = "1998"
    
29.     ChartSpace1.Charts(0).SeriesCollection(0).SetData chConstants.chDimCategories, chConstants.chDataLiteral, categories
    
30.     ChartSpace1.Charts(0).SeriesCollection(0).SetData chConstants.chDimValues, chConstants.chDataLiteral, values
    
31. 
    
32.     ChartSpace1.Charts(0).HasLegend = True
    
33.     ChartSpace1.Charts(0).Axes(chConstants.chAxisPositionLeft).NumberFormat = "DD/MM/YY"
    
34.     ChartSpace1.Charts(0).Axes(chConstants.chAxisPositionLeft).MajorUnit = 30
    
35. 
    
36. End Sub
    
37. </script>
    

复制代码

[ 本帖最后由 meemee 于 4-8-2006 10:19 AM 编辑 ]