首页 > > 程序设计 > VB >

在VB组件内调用Excel2000实现GIF饼图

2018-06-17 17:09:20来源：未知阅读 ()

当我第一次使用excel的时候，就为excel的图表功能所倾倒，实在强大，并且那些图也挺漂亮了。后来我尝试着在vb里面调用excel所支持的vba功能，发现功能的确强大，就是十分繁琐。后来就考虑用vb在excel外面包一层，写成对象，去掉我们不需要的特性。这样掉用起来就方便多了，所谓一劳永逸:P。
　　在这里，我将像大家介绍一个用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上测试通过。->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有