资源描述：
《如何在vs．net环境中自动生成visio图》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、如何在Vs．net环境中自动生成Visio图第23卷第4期2007年4月甘肃科技GansuScienceandTechnologyVZ.23Apr.Ⅳ0.42007如何在Vs.net环境中自动生成Visio图韦宝峰,郏伯瀚,万生瑶(1.中国石油兰州石化分公司自动化研究院,甘肃兰州730060;2.中国石油西北销售分公司兰州公司,甘肃兰州730060;3.中国石油兰州石化分公司炼油厂,甘肃兰州730060)摘要:文章介绍了如何在VS.Net环境中,结合VBA编写Visio应用程序,来实现自动绘制Vi—sio图的方法
2、和过程.关键词:VS.Net;VBA;程序;自动生成;Visio图中图分类号:TP3l1.11业务需求在日常工作中,对第二年的工作计划有系统来管理,数据如表1所示:现在需要把信息系统中的工作计划的数据绘制成Visio时间线图.要求:系统中的数据修改了,Visio图的内容会自动与系统数据进行同步.表1工作计划的数据计划名称开始时间结束时间是否里程碑x工作5/2/20067/21/2006否半年工作总结6/10/20066/10/2006是M工作7/4/200612/10/2006否Y工作11/14/200611/2
3、0/2006否绘制的Visio图如下图1所示:图1工作计划Visio圈(0)2解决方案,打开viio,填充数据通过程序调用Visio模版文件中的VBA宏,来DimoVisioAsNewVisio.Application自动绘制Visio时间线图.oVisio.Visible—True2.1建设VS.Net解决方案DimflipTipAsBoolean=False图形垂直翻创建一个应用程序解决方案,获取表1的数据转标志集,打开Visio模版文件,将数据集的数据绘制成时DimoDocAsVisio.Document—
4、oVisio.Doc一问线图.以下为部分代码(以VB.Net为例):uments.Open(strTemplatePath)……DimiAsIntegerDimoTaskPlanDataAsNewTaskPlanData—Fori一0TodtData.Rows.Count一1Service.TaskPlanData连接webServiceSelectCasedtData.Rows(i)("sflcb")oTaskPlanData.Url—strServiceURLCase"是"DimdsRetValAsDataS
5、et—oTaskPlanData.oDoc.ExecuteLine("TlMELNM.模块1.GetData(iUserID)获取数据vbaDrawMilstone"""&dtData.ROWS(i)("DimdtDataAsDataTable—dsRetVa1.TablesKSSJ")""","""&dtData.Rows(i)("Name")64甘肃科技第23卷&…,"'&flipTip&"")IfflipTipThenflipTip==FalseElseflipTip
6、::TrueEndIfCase"否"oDoc.ExecuteLine("TlMELNM.模块1.vbaDrawBracketinterval…&dtData.Rows(i)("KSSJ")&…,&dtData.Rows(i)("JSSJ")&""","""&dtData.Rows(i)("Name")&…,…&flipTip&……")IfflipTipThenflipTip:=FalseEIseflipTip:=TrueEndIfEndSelectN
7、ext2.2建设Visio模版新建一个Visio文件,将时间线拖入模版中并进行属性配置,然后编写VBA宏,来绘制"间隔"和"里程碑",代码如下:绘制里程碑PublicSubvbaDrawMilstone(ByValdata—timeMileStoneAsDate,ByValstrMileDescAsString,ByValflipTipAsBoolean)DimshpObjAsVisio.ShapeSetshpObj—ThisDocument.Pages(1).Drop(Application.Documents
8、.Item("TIMELN—M.VSS").Masters.ItemU("CircleMilestone"),2.755906,3.622047)DimVSOCharacterslAsVisio.CharactersSetVSOCharactersl—Application.Ac—tiveWindow.Page.Shapes.ItemFromlD(shpObj.Shape
