在这里，我将像大家介绍一个用vb编写的饼图组件，你只需要给它几个简单的参数，就可以生成一副GIF格式的图片给你。调用例子如下：
Dimobj
Setobj=CreateObject("ChinaaspChart.pie")
obj.AddValue"男",150
obj.AddValue"女",45
obj.AddValue"不知道",15
obj.ChartName="性别比例图"
obj.FileName="d:\123.gif"
obj.SaveChart
除了在vb里面可以调用，这段代码同样也可以在asp里面调用。
下面请followme编写我们的组件。
1.Newproject,请选择activexdll，在projectexplorer面板上选择project1,然后在属性面板上修改其name为ChinaASPChart。同样把里面的classmodules修改为pie
2.保存该project,将project存为chinaaspchart.vbp,将class1.cls存为pie.cls。
3.菜单project,选择菜单项References,然后请把MicrosoftActiveServerPagesOjbectLibrary、MicrosoftExcel9.0ObjectLibrary、COM ServicesTypeLibrary选上。
注意：在NT4/win98上没有COM ServiceTypeLibrary这个东东，应该选MicrosoftTransactionServerTypeLibrary
4.编辑pie.cls,代码如下：
注释：-------------------------------------------------------------------------------
Dimxl
Dimm_chartName
Dimm_chartData()
Dimm_chartType
Dimm_fileName
PublicErrMsg
PublicfoundErr
DimiCount
Typem_Value
labelAsString
valueAsDouble
EndType
DimtValueAsm_Value
PublicPropertyLetChartType(ChartType)
m_chartType=ChartType
EndProperty
PublicPropertyGetChartType()
ChartType=m_chartType
EndProperty
PublicPropertyLetChartName(ChartName)
m_chartName=ChartName
EndProperty
PublicPropertyGetChartName()
ChartName=m_chartName
EndProperty
PublicPropertyLetFileName(fname)
m_fileName=fname
EndProperty
PublicPropertyGetFileName()
FileName=m_fileName
EndProperty
PublicSubAddValue(label,value)
iCount=iCount 1
ReDimPreservem_chartData(iCount)
tValue.label=label
tValue.value=value
m_chartData(iCount)=tValue
EndSub
PublicSubSaveChart()
OnErrorResumeNext
DimiSheet
Dimi
Setxl=NewExcel.Application
xl.Application.Workbooks.Add
xl.Workbooks(1).Worksheets("sheet1").Activate
IfErr.Number<>0Then
foundErr=True
ErrMsg=Err.Description
Err.Clear
Else
xl.Workbooks(1).Worksheets("sheet1").Cells("2,1").value=m_chartName
Fori=1ToiCount
xl.Worksheets("Sheet1").Cells(1,i 1).value=m_chartData(i).label
xl.Worksheets("Sheet1").Cells(2,i 1).value=m_chartData(i).value
Next
xl.Charts.Add
xl.ActiveChart.ChartType=m_chartType
xl.ActiveChart.SetSourceDataxl.Sheets("Sheet1").Range("A1:"&Chr((iCountMod26) Asc("A"))&"2"),1
xl.ActiveChart.Location2,"Sheet1"
Withxl.ActiveChart
.HasTitle=True
.ChartTitle.Characters.Text=m_chartName
EndWith
xl.ActiveChart.ApplyDataLabels2,False,_
True,False
Withxl.Selection.Border
.Weight=2
.LineStyle=0
EndWith
xl.ActiveChart.PlotArea.Select
Withxl.Selection.Border
.Weight=xlHairline
.LineStyle=xlNone
EndWith
xl.Selection.Interior.ColorIndex=xlNone
xl.ActiveWindow.Visible=False
xl.DisplayAlerts=False
xl.ActiveChart.Exportm_fileName,FilterName:="GIF"
xl.Workbooks.Close
IfErr.Number<>0Then
foundErr=True
ErrMsg=ErrMsg
Err.Clear
EndIf
EndIf
Setxl=Nothing
EndSub
PrivateSubClass_Initialize()
iCount=0
foundErr=False
ErrMsg=""
m_chartType=-4102注释：xl3DPie
注释：54注释：柱状图
EndSub
注释：-------------------------------------------------------------------------------
5.如果实现柱状图？
实际上前面的代码已经实现了柱状图的功能，只是缺省是饼图功能。调用代码改成如下：
Dimobj
Setobj=CreateObject("ChinaaspChart.pie")
obj.AddValue"男",150
obj.AddValue"女",45
obj.AddValue"不知道",15
obj.ChartName="性别比例图"
obj.FileName="d:\123.gif"
obj.ChartType=54
obj.SaveChart
6.在asp里面调用该组件画图并显示它需要注意的地方。
（1）图片必须生成在web目录下。
（2）asp程序运行在多用户环境下，必须加锁处理
可以通过application实现。其逻辑如下：
ifapplication("标志")=0then
显示图片
else
application.lock
生成图片
显示图片
application("标志")=0
application.unlock
endif
当然何时需要生成图片置标志位，就需要您自己根据程序的要求来确定了。
总结：
COM里面调用office组件是一个十分有用的技巧，它的优点是开发相对简单，使用方便，适合企业级低访问量，高业务要求的应用，缺点是占用系统资源高。
程序在Windows2000Server Office2000 VB6.0上测试通过。->
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
