WinCC的开放性剖析.pptVIP

第10章 WinCC的开放性 10.1 OLE应用 10.2 DDE连接 10.3 API应用 10.4 使用ActiveX控件 10.5 利用脚本实现开放性数据交换 10.6 OPC应用 10.7 WinCC数据库直接访问方法 10.4.2 用VBScript访问ActiveX控件 画面中已经插入了外部的ActiveX控件，可以用VBScript中的ScreenItems对象来访问修改ActiveX控件对象的属性。例如在画面中插入了一个ActiveX控件，给它命名为“Control1”，那么可以通过以下的代码修改它的高度、宽度以及其它特殊属性等。 Dim Control Set Control=ScreenItems(’’Controll”) Contr01.Height=5 注意：VBScript是操作对象的运行状态属性；而VBA是操纵对象的组态属性。 10.4.3 用VBA组态ActiveX控件 本例用VBA在画面中插入一个ActiveX控件的WinCC Gauge控件，并调整控件的属性。 Sub AddActiveXControl() Dim objActiveXControl As HMIActiveXControl Set objActiveXControl=ActiveDocument.HMIObjects.AddActiveXControl(”WinCC_Gauge ”, ”XGAUGE.XGaugeCtrl.1”) End Sub 下面的例子中，在当前打开的画面中插入了WinCC Gauge控件，并把它命名为“WinCC_Gauge2”，然后修改其部分属性。需要注意AddActiveXControl函数的参数，第一个参数为插入控件的名称；第二个参数为属性ProgID，其值可从图10-8的“选择OCX控件”对话框选中WinCC Gauge Control得到。 Sub AddActiveXControl() Dim objActiveXControl As HMIActiveXControl Set objActiveXControl=ActiveDocument.HMIObjects.AddActiveXControl(”WinCC_Gauge 2”, ”XGAUGE.XGaugeCtrl.1”) objActiveXControl.Top=40 objActiveXControl.Left=60 objActiveXControl.Properties(”BackColor”).value=RGB(255，0，0) End Sub 10.5 利用脚本实现开放性数据交换 10.5.1 VBScript实现开放性数据交换 例1：VBScript实现WinCC与Excel之间的数据交换。本例中输入/输出域中的值写入到了Excel表格中。 Dim objExcelApp Set objExcelApp=CreateObject(“Excel.Application”) objExcelApp.Visible=True ‘ExcelExample.xls必须在执行这个过程之前已经创建好 ‘用ExcelExample.xls文件的真实路径来替换path ObjExcelApp.Workbooks.Open”path\ExcelExample.xls” objExcelApp.Cells(4，3).Value=Screenltems(”IOFieldl”).OutputValue objExcelApp.ActiveWorkbook.Save objExcelApp.Workbooks.Close objExcelApp.Quit Set objExcelApp=Nothing 例2：从MS Access中打开一个报表。 Dim objAccessApp Set objAccessApp=CreateObject(”Access.Application”) objAccessApp.Visible: True ‘DbSample．mdb and RPT_WINCC_DATA必须在执行这段过程之前已经创建好 ‘用数据库文件DbSample.mdb的真实路径替代path objAccessApp.OpenCurrentDatabase”path＼DbSample．mdb”.False objAccessApp.DoCmd.OpenReport”RPT_WINCC_DATA”, 2 objAccessApp.closecurrentDatabase Set objAccessApp=Nothing 例3：用VBScript打开MS Internet Explorer。 Dim objIE Set objIE=