axis.MajorTickMarks = OWC.ChartTickMarkEnum.chTickMarkNone

’不显示Y轴主要刻度标记

axis.HasTickLabels = True

’显示Y轴刻度标签

axis.Title.Font.Color = “blue”

’Y轴的标题文字颜色

axis.Title.Font.Size = “9”

’Y轴的标题文字大小

axis.Title.Caption=“价格(千元/吨)”

’Y轴的标题文字内容

End If

Next

9. 以GIF图像格式输出图表，并将图像文件名赋给Image控件。

’用随机数来生成随机文件名

Randomize()

Dim nFileNameSuffix As Integer

Dim sFileNameSuffix As String

nFileNameSuffix = 100000 * Rnd()

sFileNameSuffix = System.Convert.ToString(nFileNameSuffix)

’以GIF格式输出图表，大小为500*300，图表的文件名为：polyesterprice_随机数.gif，存放在chart子目录中

owcChartSpace.ExportPicture(MapPath(“chart/PolyesterPrice_”) + sFileNameSuffix + “.gif”, “gif”, 500, 300)

’将Image控件的URL指向该图表文件

imgChart.ImageUrl=“chart/PolyesterPrice_” + sFileNameSuffix + “.gif”

通过以上九个步骤，我们就完成了一个实时数据库图表的生成与显示。在此需要指出的是，以上的九个步骤只是生成一张图表必不可少的基本过程，通过设置OWC的其他属性可以更好、更精确地控制图表的生成与显示方式，如图例、线条的粗细与颜色、坐标轴刻度线及标签的显示频度、网络线等。这部分笔者不再介绍，请参见本文第四部分的源代码。

本文代码生成的图表效果请见下图。

优化

上文中所有实时生成的图表文件都存放在chart文件夹中，由于采用了随机文件名的方式，因此这些文件不会互相覆盖。但是如此日积月累，越来越多的文件不仅占用了硬盘空 间，也妨碍了管理，降低了性能。我们能不能在程序中自动删除以前的图表文件呢？答案是肯定的。我们只要在代码文件的Page_Load()函数中放置如下一段代码，程序运行的时候，就会自动删除当日以前的文件。这样，chart文件

上一页  [1] [2] [3] [4] [5] 下一页