利用VB与Excel快速生成工艺卡片的方法篮子模具

2022-06-26 02:27

利用VB与Excel快速生成工艺卡片的方法

利用VB与Excel快速生成工艺卡片的方法 2011年12月03日 来源: 引言 在进行CAPP项目开发时,最终要生成多种工艺卡片。由于VB具有极强的界面设计能力,且易学易用,支持面向对象、事件驱动、ActiveX技术以及强大的数据库处理能力,很多用户喜欢用VB作为CAPP项目的开发语言。但VB的表格处理能力一般,特别是处理复杂表格时,显得力不从心。而Excel作为Micro sof t公司的表格处理软件有着强大的功能。为此,在充分利用VB诸多优点的基础上,结合Excel的表格处理能力,成功解决了CAPP项目开发中复杂表格生成这一难题。 1 解决问题的思路与方法 首先利用VB强大的界面设计能力,在其开发环境下用Label(标签)、Textbox(文本框)、Ole(用于嵌入图片)、MSFlexGrid(网格)等控件“画出”一张空白卡片,这张卡片是由各种控件组成的,可充分利用基于VB的CAPP系统强大的功能,进行卡片内容的快速填充和编辑,生成内容上完全符合实际需要的“准工艺卡”。由于其不是真正意义上的表格,而且目的在于利用CAPP系统强大功能进行快速生成,所以并不适用于打印输出和实际生产。 利用Excel强大的表格处理功能,根据需要事先设计出各种实用的空白工艺卡片模版,其表格组成应与VB环境下对应的表格完全相同。实际使用时,只需调用需要的卡片模版,然后将CAPP系统生成的工艺表格中相关控件的内容传入Excel表格对应的单元格,即可生成真正意义上的工艺卡片。 2 VB中各控件内容向Excel表格中的传送 由于Excel应用程序是外部可创建对象,所以能从VB应用程序内部来程序化操作Excel,方法是利用VB的OLE自动化技术获取Excel的控制句柄,从而通过VB直接控制Excel的各种操作。由于对Excel的操作都是在VB的主界面下进行的,用户感觉就像使用VB自己的表格一样,十分方便。 2.1 利用VB启动Excel并打开对应的工作薄和表 a.在工程中引用Micro sof t Excel类型库。从VB的“工程”菜单中选择“引用”栏,选中Micro sof tExcel 11.0 Object Library(Excel 2003),然后单击“确定”,表示在工程中引用Excel类型库。 b.在通用对象的声明过程中定义Excel对象。Dim ExApp A s Excel Applicatio nDim ExBoo k A s Excel Wo rkBoo kDim ExSheet A s Excel Wo rksheet c.在程序中打开已经存在的Excel工件簿文件并设置活动工作表。Set ExApp=CreateObject("Excel.Applica2tio n")’创建Excel对象Set ExBoo k=ExApp.Wo rkboo ks.Open("Excel工艺模版文件名")’打开工件簿文件ExApp.Visible=True’设置Excel对象可见Set ExSheet=ExBoo k.Wo rksheet s("表名")’设置活动工作表 2.2 MSFlex Grid的文本向Excel单元格的传送 在CAPP项目开发中,工艺卡片中的主要内容是文本和图形。其中,VB环境下的文本内容主要存于文本框和MSFlexGrid网格控件中,其中又以MSFlex Grid网格控件为主。下面以VB的MS2Flex Grid网格控件向Excel单元格传送文本为例,介绍通用的程序代码。 以下代码将MSFlexGrid1网格控件第1行、第1列至第1行、第4列的内容传送到Excel表的“e1”~“h1”的单元格中。i=1Fo r j=101 To 104‘101~104为字母e~h的A SCII码值r=Chr(j)&iExSheet.Range(r).Value=MSFlex Grid1.Text Mat rix(i,j-100)Next j 2.3 VB中的图形向Excel单元格的传送 在CAPP项目中所使用的各种工艺图形,均以文件的形式进行保存,本文使用的图形文件为Au2to CAD的dwg文件。若用变量Pict ure_name表示工艺卡片中插入的图形文件名(含路径),则可利用工作表的OLEObjects对象的Add方法,将此图形文件插入到Excel表格的某一单元格(如"a7")中,具体代码如下:ExSheet.Range("a7").ActivateExSheet.OL EObject s.Add(FileName:=Pic2t ure_name,Link:=Fal se).Select 需要说明的是,插入到Excel表格中的图形大小,可能与Excel模版中设定的图形区域不一致,可以在预览时(此时可通过代码自动打开所生成的Excel工艺卡片)进行如下调整:选中卡片中插入的图形;单击右键,在快捷菜单中选择“显示‘图片’工具栏”;利用图片工具栏中的“裁剪”和“压缩图片”按钮,将图片调整到合适尺寸。 2.4 已生成的Excel工艺表格的保存 以下代码将已生成的Excel工艺表格以文件的形式保存起来,供预览、打印及实际生产之用,并关闭Excel以及相应的工作薄和工作表。Exapp.DisplayAlert s=Fal seExbook.SaveA s("生成的Excel工艺表格文件名")Exbook.CloseExapp.DisplayAlert s=TrueSet Exboo k=Not hingSet ExSheet=Not hingSet Exapp=Not hing 3 预览及打印功能的实现 在VB环境下,利用OLE容器控件,调用Cre2ateLink方法可以在运行时从已生成的工艺卡片文件中创建一个链接对象[1],从而方便地打开已生成的Excel工艺表格,实现预览及打印,方法如下:在VB下建立一窗体(Name属性设置为Frm Excel),在其上放置一OL E控件(Name属性设置为Ole1),然后在预览及打印菜单的相应事件过程中编写下列代码。Frm Excel.Ole1.CreateLink"生成的Excel工艺卡片文件名"Frm Excel.Ole1.DoVerb‘运行时激活对象 4 结束语 通过VB和Excel的有机结合,充分发挥各自软件的优势和特色,使编程更加简练、实用,使复杂的表格处理更加简便。对于表格中的图形处理,由于采用了OLE技术,故表格中既可以插入常用的AutoCAD图形文件,也可以插入Pro2E,SoldWorkS等图形文件,使用户对图形软件的选择处于完全开放的状态,极大地方便了用户。(end)

缩窄性心包炎吃什么好如何预防

沈阳治疗青春痘

济南恶性肿瘤病专科医院哪家好

哈尔滨女性不孕病医院排名

洛阳男科医院有哪些

北京近视眼医院排名

相关阅读
最好矿产资源开发利用水平调查评估试点工作取得钣金模具非标刀具金属切割机切脚机铣刀z

矿产资源开发利用水平调查评估试点工作取得的阶段性成果【铝道】5月23日,矿产资源开发利用水平调查评估试点工作中期成果总结交流会在北京举行。会议总结了试点工作旋片泵取得的阶段性成果,并研究部署了下广大客户在

2022-09-28 23:19
最好豪华别墅门批发剥线机覆铜板开关插座荣成宣威z

豪华别墅门批发东易门业11年专注别墅大门制作更专业别墅在我国,现在已经不少见了。几烫金机乎每个城市都能看见。而别墅的装潢,要求甚高,只有既漂亮,又有极优性能的装修及配饰,才配得上高端别墅的价值。(百度搜索

2022-09-28 22:30
最好亚洲镍业2015年镍矿石发运量创纪录高位包装机械分级机金丝焊线机切纸刀片鲜米机z

亚洲镍业2015年镍矿石发运量创纪录高位【单向阀铝道】据外电1月14日消息,菲律宾较大的镍矿产商亚洲镍业(Nickel Asia Corp)周四称,该公司旗下位于菲律宾的四个镍矿在2015年的镍矿石发运量较2014年增加1网络交换机0%至1970万吨,创

2022-09-28 21:16
最好25日沈阳4302B平板市场价格行情调度机冀州喷涂系统弯管机锥形托辊z

25日沈心率计阳430/2B平板市场价格行情您当前位置:首页 价格行情25日沈阳430/2B平板市场价格行情25日沈阳430/2B平板市场价格行情来源:中国五金商机日期:钢种规格牌号钢功能目标10分欠螺丝缺厂/产地价格(元/吨)涨万激光焊能资

2022-09-28 17:54
矿商顶风涨价钢企有竞争真空开关管

矿商顶风涨价 钢企有竞争铁矿石价格重现倒挂矿商顶风涨价加剧钢企压力63.5%/63%的进口现货矿从190美元/吨的高位降至177美元/吨,现货价在今年低于长协价格。然而,就在铁矿石现货价与长协价出现倒挂的同时,国际矿商们纷纷

2022-09-26 19:08
挡墙三维复合排水网作用西宁复合排水网功分器

挡墙三维复合排水网作用 西宁复合排水网挡墙三维复合排水网作用 西宁复合排水网产品用途:主要用于铁路、公路、隧道、市政工程、水库、护坡等排水工程中效果显著。产品特挡墙三维复合排水网作用 西宁复合排水网产品用

2022-09-26 18:35