第二十四章使用SEClient對(duì)象模型和顯示代碼

1、24 章 使用 SE Client 對(duì)象模型和顯示代碼在圖形顯示畫面中使用 RSView SE Client （RSView SE 客戶端）對(duì)象模型和 Visual Basic for Applications （ VBA ）代碼可以定制和擴(kuò)展 RSView SE Client 的功能。為此用戶可以使用下 面的方 式：與其它應(yīng)用程序共享數(shù)據(jù) 如果用戶需要經(jīng)常性的在諸如 Microsoft Excel 或 SQL Server 等程 序中使 用 RSView 數(shù)據(jù)，則可以考慮使用 RSView SE Client 對(duì)象模型和顯示代碼與 VBA 以 便將 RSView 與這些應(yīng)用程序進(jìn)行集成。為操

2、作員創(chuàng)建自定義的窗體 用戶可以使用 VBA 創(chuàng)建自定義的窗體，例如創(chuàng)建一個(gè)操作員 可以在運(yùn)行 時(shí)進(jìn)行交互的彈出對(duì)話框。用戶還可以使用 VBA 邏輯來(lái)驗(yàn)證操作員的輸入，例 如：確保操作員輸入 到一個(gè)數(shù)字輸入框的數(shù)據(jù)在另一個(gè)數(shù)字輸入框的數(shù)值的10% 之間波動(dòng)。設(shè)計(jì)直觀的圖形顯示畫面 使用 RSView SE Client 對(duì)象模型將 ActiveX 控件與數(shù)據(jù)結(jié)合在一 起，以 便在圖形顯示畫面中使用。 例如： 在圖形顯示畫面中使用列表框和組合框以便允許操 作員選擇如 recipe item （配方項(xiàng)）等選項(xiàng)。操作 RSView SE Client 窗口 根據(jù) RSView SE Client 窗口

3、的尺寸， 通過(guò)編寫 VBA 代碼來(lái)排 列圖形 顯示畫面。 這樣就可以讓用戶的應(yīng)用項(xiàng)目動(dòng)態(tài)地調(diào)整其大小， 以便適用不同的屏幕桌 面大小和分辨 率。將自定義的信息發(fā)送到診斷日志文件 使用 VBA 代碼將特定的信息發(fā)送到 Diagnostics List （診斷列 表）和 Diagnostics log file （診斷日志文件） ，以便記錄運(yùn)行情況和事件。保護(hù)系統(tǒng) 通過(guò) RSView SE Client 對(duì)象模型，用戶可以獲得安全信息，得知誰(shuí)在使用該系統(tǒng)， 并且通過(guò)使用該安全信息和事件來(lái)控制對(duì)系統(tǒng)的訪問(wèn)例如： 用戶可以編寫一段代碼，來(lái)限 制用戶在一臺(tái)安全計(jì)算機(jī)上訪問(wèn)特定的圖形顯示畫面，并且只有當(dāng)與

4、該圖形顯示畫面具有相同的安全代碼的Visual Basic EditorVisual Basic 編輯器）。用戶名登錄時(shí)，才可以顯示該圖形VBA 集成的開(kāi)發(fā)環(huán)境RSView 圖形顯示畫面中包含了 Microsoft Visual Basic for Applications （ VBA ）。使用 VBA 集 成 的開(kāi)發(fā)環(huán)境 （IDE ）可以創(chuàng)建、 測(cè)試和調(diào)試 VBA 過(guò)程，然后運(yùn)行這些過(guò)程來(lái)響應(yīng)在 RSView 圖形 顯示畫面中觸發(fā)的事件。本章對(duì) IDE 進(jìn)行了簡(jiǎn)要的說(shuō)明，但沒(méi)有談及 VBA 的詳細(xì)信息假定用戶熟悉 VBA 環(huán)境 和 Visual Basic 編程語(yǔ)言。 本章重點(diǎn)談到了 VBA

5、 相對(duì)于 RSView Studio 的很獨(dú)特部分， 并且 講述了如何在 RSView 圖形顯示畫面中使用 VBA 。關(guān)于如何訪問(wèn) VBA 的信息的信息，請(qǐng)參閱第 24-13 頁(yè)的“使用 VBA 幫助文件”。 打開(kāi) IDE 窗口1. 打開(kāi)用戶想要編寫 VBA 代碼的圖形顯示畫面。2. 執(zhí)行下面任意操作：在 Graphic Displays （圖形顯示）編輯器， 點(diǎn)擊 View （查看） 菜單， 然后點(diǎn)擊點(diǎn)擊圖形顯示畫面中的某個(gè)對(duì)象。在Edit （編輯）菜單中，點(diǎn)擊 VBA Code （VBA代碼）。代碼窗口會(huì)打開(kāi)，其內(nèi)容為用戶所選對(duì)象的代碼。在Graphic Displays （圖形顯示）編輯

6、器中，點(diǎn)擊 Edit （編輯）菜單，然后點(diǎn)擊 VBA Code（VBA代碼）。代碼窗口會(huì)打開(kāi)，其內(nèi)容為圖形顯示畫面的代碼。右鍵點(diǎn)擊已打開(kāi)的圖形顯示畫面，然后點(diǎn)擊其上下文菜單中的VBA Code （VBA代碼），代碼窗口會(huì)打開(kāi)，其內(nèi)容為圖形顯示畫面的代碼。右鍵點(diǎn)擊畫面中的對(duì)象，然后點(diǎn)擊其上下文菜單中的口會(huì) VBA Code （ VBA代碼）。代碼窗打開(kāi)，其內(nèi)容為用戶右鍵點(diǎn)擊對(duì)象的代碼。IDE窗口的組成部分F圖顯示了 IDE窗口的主要組成部分。下面會(huì)具體說(shuō)明每個(gè)部分。Frojed Explorer血wPropijrtie- wiridoAProcedure crCode -.v in doAPro

7、ject Explorer wi ndow-工程瀏覽器窗口Properties win dow -屬性窗口Procedure or Code window-過(guò)程或代碼窗口工程瀏覽器窗口 對(duì)于每個(gè)圖形顯示畫面，會(huì)自動(dòng)創(chuàng)建一個(gè)名為 DisplayCode 的 VBA 工程。對(duì)于在 Graphic Display （圖形顯示）編輯器中打開(kāi)的每個(gè)圖形顯示畫面， 工程瀏覽器都會(huì)顯示該 VBA 工程。每個(gè)工程都包含一個(gè) RSView Studio Objects （ RSView Studio 對(duì)象）文件夾。該文件夾包含 一個(gè)稱 為 ThisDisplay 的模塊，它代表圖形顯示畫面。該模塊包含了與畫面中

8、的對(duì)象進(jìn)行交 互的代碼。名為 ThisDisplay 的模塊可以包含任何數(shù)量的過(guò)程。用戶可以創(chuàng)建額外的 VBA 模塊和用戶窗體。 要想在這些模塊中使用過(guò)程或者使用用戶窗體， 用戶必 須從名為 ThisDisplay 的模塊中調(diào)用這些過(guò)程。屬性窗口該窗口列出了代碼模塊、類模塊和 VBA 用戶窗體及這些窗體上對(duì)象的屬性設(shè)置。用戶不能 夠在 RSView 中直接調(diào)用窗體。要想使用窗體，可以在名為 ThisDisplay 的代碼模塊的過(guò)程 中調(diào)用該窗 體。過(guò)程或代碼窗口該窗口是用戶可以編寫或編輯 VBA 過(guò)程的窗口。在 ThisDisplay 中，任何可以觸發(fā)事件的 RSView SE Client

9、對(duì)象都在該窗口左手側(cè)的下拉列表中列出。 當(dāng)在左側(cè)列表中選擇某個(gè)對(duì)象 時(shí)，該對(duì)象的事 件會(huì)在右手側(cè)的下拉列表中列出?？焖偕鲜植襟E步驟 1開(kāi)始創(chuàng)建一個(gè)圖形顯示畫面 顯示代碼和圖形顯示畫面一同保存。在用戶編寫可以操作圖形 對(duì)象的 VBA 代碼之前，用戶 應(yīng)該首先創(chuàng)建圖形顯示畫面和圖形對(duì)象。關(guān)于創(chuàng)建圖形顯示畫面的詳細(xì)信息，請(qǐng)參閱第16 章，“創(chuàng)建圖形顯示” 。步驟 2 創(chuàng)建用戶的 VBA 代碼使用 Visual Basic 編程語(yǔ)言，可以在名為 ThisDisplay 模塊的代碼窗口中創(chuàng)建過(guò)程。關(guān)于創(chuàng)建 Visual Basic 過(guò)程的信息， 請(qǐng)參閱 VBA 幫助文件。關(guān)于訪問(wèn) VBA 幫助文件的信息

10、， 請(qǐng) 參閱第 24-13 頁(yè)的“使用 VBA 幫助”。VBA 代碼是如何運(yùn)行的用戶所創(chuàng)建的 VBA 過(guò)程被調(diào)用以響應(yīng)畫面事件。當(dāng)用戶在運(yùn)行時(shí)打開(kāi)顯示畫面后，圖形顯 示畫面事 件被觸發(fā)。響應(yīng)該事件的過(guò)程會(huì)自動(dòng)執(zhí)行。關(guān)于過(guò)程過(guò)程被稱為代碼塊，它以單元為單位運(yùn)行。過(guò)程的實(shí)例如 Visual Basic 子程序和函數(shù)。名為 ThisDisplay 的模塊可包含任何數(shù)量的過(guò)程，以響應(yīng)畫面事件。用戶在名為 ThisDisplay 的模塊中創(chuàng)建的過(guò)程可以的調(diào)用其它窗體或模塊中的任何過(guò)程。RSView SE Client 對(duì)象模型RSView SE Client 對(duì)象模型包含能夠代表 RSView SE C

11、lient 特點(diǎn)的對(duì)象。使用這些對(duì)象，用 戶可以 通過(guò)編寫代碼與 RSView SE Client 進(jìn)行交互，這些代碼在某個(gè)對(duì)象事件發(fā)生時(shí)運(yùn)行。VBA 可以與下列 RSView SE Client 對(duì)象模型中的對(duì)象進(jìn)行交互：ActiveXExtender ActiveXExtender 對(duì)象將由 RSView 圖形實(shí)現(xiàn)的屬性和方法與 ActiveX 對(duì) 象的屬性 和方法進(jìn)行合并。AlarmSummary 代表 RSView Alarm Summary 對(duì)象。Application 代表 RSView SE Client 的容器程序。 使用這個(gè)對(duì)象來(lái)訪問(wèn) RSView 圖形顯示集。Arc 代表

12、RSView 弧形對(duì)象。Arrow 代表 RSView 箭頭對(duì)象。BackspaceButton 代表 RSView 退格按鈕對(duì)象。該對(duì)象如同鍵盤上的退格鍵一樣工作。BarGraph 代表 RSView 柱狀顯示對(duì)象Button 代表 RSView 按鈕對(duì)象。ControlListSelector 代表 RSView 控件列表選擇器對(duì)象。Display 代表圖形顯示畫面。DisplayListSelector 代表 RSView 圖形顯示畫面列表選擇器對(duì)象。Displays 包含多個(gè)圖形顯示畫面對(duì)象的集合。Element 代表圖形顯示畫面中的任何對(duì)象。 該對(duì)象包含了所有 RSView 對(duì)象的基

13、本屬性和方 法。其成員與每個(gè)圖形對(duì)象的特定成員相結(jié)合，并形成可以在 VBA 中使用的圖形對(duì)象。Elements 代表多個(gè)元素對(duì)象的集合。Ellipse 代表 RSView 橢圓對(duì)象。EmbeddedOLE EmbeddedOLE 對(duì)象代表第三方對(duì)象，如 Excel 圖表。EndButton 代表 RSView 結(jié)束按鈕對(duì)象。該對(duì)象如同鍵盤上的結(jié)束鍵一樣工作。EnterButton 代表 RSView 回車按鈕對(duì)象。該對(duì)象如同鍵盤上的回車鍵一樣工作。Freehand 代表 RSView 徒手畫對(duì)象。Gauge 代表 RSView 測(cè)量盤對(duì)象。Group 代表畫面上的一套已經(jīng)被組合起來(lái)的對(duì)象。要想

14、編寫可以響應(yīng)組事件的 VBA 代碼， 用戶必須 在打開(kāi) VBA IDE 之前在圖形顯示畫面中創(chuàng)建組。如果用戶沒(méi)有首先在圖形顯示畫 面中創(chuàng)建組，則組 對(duì)象將不會(huì)產(chǎn)生事件，且在運(yùn)行時(shí)為該組編寫的代碼也不會(huì)響應(yīng)組事件。HomeButton 代表 RSView 起始按鈕對(duì)象。該對(duì)象如同鍵盤上的起始鍵一樣工作。Image 代表 RSView 圖像對(duì)象。InterlockedPushButton 代表 RSView 互鎖型按鈕對(duì)象。LatchedPushButton 代表 RSView 鎖定型按鈕對(duì)象。Line 代表 RSView 畫線對(duì)象。ListIndicator 代表 RSView 列表指示器對(duì)象。

15、LocalMessageDisplay 代表 RSView 本地信息顯示對(duì)象。MaintainedPushButton 代表 RSView 保持型按鈕對(duì)象。MomentaryPushButton 代表 RSView 瞬時(shí)型按鈕對(duì)象。MoveDownButton 代表 RSView 向下移動(dòng)按鈕對(duì)象。 該對(duì)象如同鍵盤上的向下箭頭鍵一樣工 作。MoveLeftButton 代表 RSView 向左移動(dòng)按鈕對(duì)象。該對(duì)象如同鍵盤上的向左箭頭鍵一樣工 作。MoveRightButton 代表 RSView 向右移動(dòng)按鈕對(duì)象。 該對(duì)象如同鍵盤上的向右箭頭鍵一樣工 作。MoveUpButton 代表 RSV

16、iew 向上移動(dòng)按鈕對(duì)象。 該對(duì)象如同鍵盤上的向上箭頭鍵一樣工作。MultistateIndicator 代表 RSView 多態(tài)指示器對(duì)象。MultistatePushButton 代表 RSView 多態(tài)按鈕對(duì)象。NumericDisplay 代表 RSView 數(shù)字顯示對(duì)象。NumericInput 代表 RSView 數(shù)字輸入對(duì)象PageDownButton 代表 RSView 向下翻頁(yè)按鈕對(duì)象。該對(duì)象如同鍵盤上的向下翻頁(yè)鍵一樣工PageUpButton 代表 RSView 向上翻頁(yè)按鈕對(duì)象。 該對(duì)象如同鍵盤上的向上翻頁(yè)鍵一樣工作。 Panel 代表 RSView 面板對(duì)象。Pictu

17、re 代表 RSView 位圖對(duì)象。PilotCtrlListSelector 代表 RSView 導(dǎo)航控制列表選擇器對(duì)象。Polygon 代表 RSView 多邊形對(duì)象。Polyline 代表 RSView 折線對(duì)象。PolyPolygon 代表 RSView 多個(gè)多邊形對(duì)象。RampPushButton 代表 RSView 斜坡增減型按鈕對(duì)象。Recipe 代表 RSView 配方對(duì)象。RoundedRectangle 代表 RSView 圓角矩形對(duì)象。使用多邊形對(duì)象來(lái)表示矩形。Scale 代表 RSView 比例對(duì)象。在柱狀圖中使用該對(duì)象。StringDisplay 代表 RSView

18、字符串顯示對(duì)象。StringInput 代表 RSView 字符串輸入對(duì)象。Symbol 代表 RSView 符號(hào)指示器對(duì)象。StringList 代表特殊字符串的集合。的數(shù)值。Tag 代表 FactoryTalk 標(biāo)簽對(duì)象。使用標(biāo)簽對(duì)象可以為標(biāo)簽提供運(yùn)行時(shí)的信息，或設(shè)置標(biāo)簽TagGroup 代表標(biāo)簽對(duì)象的集合。TagLabel 代表 RSView 標(biāo)簽的標(biāo)注對(duì)象。Text 代表 RSView 文本對(duì)象。TimeDataDisplay 代表 RSView 時(shí)間和日期顯示對(duì)象。Wedge 代表 RSView 楔型對(duì)象。查看對(duì)象 使用Object Browser （對(duì)象瀏覽器）可以查看VBA ID

19、E中的RSView SE Client對(duì)象要想打開(kāi)Object Browser （對(duì)象瀏覽器），可以執(zhí)行下面任意操作：右鍵點(diǎn)擊代碼窗口的任何地方，然后點(diǎn)擊上下文菜單中的Object Browser在View （查看）菜單中，點(diǎn)擊 Object Browser。按下F2鍵- IxlTo display orly Uiosd objBcte related to the RSV ew SE Clie nt, clicx Di&playC iorcashesIn 訂私 All RS7ew 8E Cl tent con sta nts, propertiesnneihtxfe, and 兇苛丫 .CI

20、IGK vglrhAlFiAltmSu nnn 3*YApolicjii nnAnwen bers oc-gubatis3 盧sptayrifles tyyt ziCflti&nAppi raunnbNmf眨 Ai(0W虛 BAKpacAButiori克 ttargrsp n3eleci an/ object vi&w ibprupcriitfs. methods, andeve nts.虐 riLttcn睜 iiiACJWCitegoivGor 錚 cliAcrivihSfrVeilvCoiKd iActiW? MgorvC o nuTi a nd illMtMlvc ategoiyOomn

21、u nl cauo n Hi Activity HtegoryC u * J m 1R wgot n usimz I i Ai Hwib/C gaiyC u m 3:illAttlvitvcu sb m 4iliActivfUCirtwciorvFe nnflr*徉垃 ccnrausiseedor腔 Dkpia/垃 DupiarLisSeietwr克 Displays:HActMiyC Hie gorrsu D system liArHAiilvA Rtp goryTag Fend iliMMtvCateQorylagViArte iliActi ) fllv8ewrityE nor丨Lbra

22、iyTo display on ly those objects related to the RSView SE Clie nt, click DisplayClie nt. RSView SE Client 相關(guān)的對(duì)象，點(diǎn)擊DisplayClient。要想僅顯示與To view all RSView SE Clie nt con sta n ts, properties, methods, and eve n ts, click .要想查看所有的RSView SE Client常量、屬性、方法和事件，可以點(diǎn)擊vglobals。Select any object to view its pr

23、operties, methods, and eve nts. 和事件。選擇任何對(duì)象，以便瀏覽其屬性、方法要想查看全局對(duì)象變量，點(diǎn)擊第一個(gè)列表中的獲取RSView SE Client對(duì)象的幫助DisplayClient。RSView包含每個(gè)RSView SE Client對(duì)象的幫助，包含括該對(duì)象屬性、方法和事件的詳細(xì)描述。要想打開(kāi)幫助文件，選擇 Object Browser （對(duì)象瀏覽器）中的某個(gè)條目，然后按下鍵盤上的F1鍵，或者點(diǎn)擊工具欄上的“ ？ ”按鈕。從 Object Browser 中打開(kāi)幫助文件1. 打開(kāi) Object Browser （對(duì)象瀏覽器）2. 在 Object Brow

24、ser 窗口頂部的列表中，點(diǎn)擊 DisplayClient3. 在 Classes orMembers （類或成員）下，選擇一個(gè)條目，然后按下鍵盤上的F1 鍵，或者點(diǎn)擊工具欄上的“ ？”按鈕。-n|y|卜衽卩砂Client弋1鬲1知卑11 2皿Closes-nlxiQ AtiYeAEA nder 由 AlarmSurrmar/ 曲 ApplicdflonArc 也 Arrow 園Back5pac?Button遼 I 6 arg rapr迫譚 cllActhdfcCatogarvC or 歸 cliAttN 也 CcntrolL 曲 Display 由Sel應(yīng)Butt on object7he

25、Qutlon objevt repr&seritathe in tri nsic butt oncbject His n ot 3 rrsafable rtijfidButt on objects are accessible via an He merits collecti onDi: ?plfl(y=.The object-spei ific properties and methods for the Butt on object e ruerAed withthe Element cbjectsproperties and meihucs m(j&d ccjeci is wtiat

26、me user wrtiisee whe n direcuy ing th 日 object from VBA usrig the abjscTs nan A. Clickferti&s o r Methods fin kabwe to see the object-specific o perties ormethods.Class Butt onMcrwbA ofR?latod topicslit, qej 噸Flemu nt objectAn vbied that rsiresent? a SElvm 甘 nt$ uull 匕匚 lion從Code Window中打開(kāi)幫助文件RSView

27、對(duì)象名或選要想從Code Window （代碼窗口）中的某行代碼處打開(kāi)幫助文件，選擇 擇RSView對(duì)象的屬性或方法，然后按下F1鍵。使用SE Client對(duì)象模型和顯示代碼24-11從RSView Help Contents 窗口打開(kāi)幫助文件1. 在RSView菜單欄，點(diǎn)擊 Help （幫助），然后點(diǎn)擊 Contents （內(nèi)容）2. 在Contents （內(nèi)容）列表中，雙擊Creati ng Graphic Displays（創(chuàng)建圖形顯示畫面）。3. 在話主題列表中，執(zhí)行下面任意操作：要想查看話題概述列表，雙擊Creati ng VBA Display Code（創(chuàng)建VBA顯示代碼）要想查

28、看對(duì)象的詳細(xì)信息，雙擊 RSView SE客戶端對(duì)象模型）。Us ing the RSView SE Clie nt Object Model(使用RSView Supervisory Edition Studio HelpHideIn dex Search FavoritesPrint OptionsWelcome to RSView Supervisory Editi onCrealng (irAptiic DispLisjJ 0 UMtrtgaid /Animating日記 |Aboutcode? About the Visu al Bas : ic f -J Working th th

29、e VBA e -団V 別 irg object? in Me q 巴 Cicatc and Icsl on ever 刑Filer Pending in VRA ut 3 Pioctduie queui ng and 電Eno rka ndi ng ewaw piesQJ Usi ng UieRSViewSEClie nl*AL MJUUI- Tiappable endre 金Applicatior Obect Graph c Obiecte * TAg Object 牟 電 Cprjlfl nAHsview aupepisory Editioncorset or several pieces of softwareVOL can u se to bu I d autornation appHcetions. Depending on the pArticjlarsoftvafe pAcloges you ourchased and in silled you will have one or more or these pieces orsorware:RSView studio i