用WINCC70制作下拉菜单例程.docVIP

用WINCC7.0制作下拉菜单例程 　　最近用ｗｉｎｃｃ７．０制作下拉菜单，运行后没有反应，设置字体也没有变化，用VBS写的脚本也没有运行，点击下拉菜单内容也没有反应，请教.　　 　　 　　　　 　　最佳答案　　　　　　　　　　　　　　 　　　　　　下拉菜单制作参考： 　　1、请参考Wincc控件中下拉式列表框Combo怎么组态—— 　　/service/answer/solution.asp?Q_ID=39247cid=1032 　　 　　2、请参考如何在OS上组态一个组合框(combobox)，并且能够自动根据不同语言自动填充相应的文本? 　　描述: 　　例子1: 　　您可以象本例中描述的那样，使用控件”SiemensSTEP7S7ComboBox”在OS运行期间动态得填充。请不要使用控件”MicrosoftForms2.0ComboBox”，因为使用这个控件会导致”pdlrt.exe”内存需求的不断增长。 　　警告: 　　为了在没有”SIMATICManager”的”OS”上使用”SiemensSTEP7S7ComboBox”控件，必须在相应的计算机上安装注册该控件。您可以在ES的路径”...SIEMENSCommonS7ACTLDXs7actldx.dll”上找到相关的DLL文件。拷贝该文件到每个OS上合适的文件夹下。 　　如何注册这些控件的指导可以在帮助”WinCCInformationSystemWorkingwithWinCCCreatingprocesspicturesWorkingwithcontrolsHowtochangetheregistrationofacontrol”下找到。 　　例子2: 　　该例子展示了如何将在SIMATICManager中组态的枚举(enumeration)依据语言显示在组合框中。 　　例1:动态填充combobox: 　　例如，在运行时，您可以将”TextLibrary”中的文本传送到combobox来作为选择项。 　　No.描述 　　1在WinCC的文本库中(“TextLibrary”)中组态值: 　　按如下图组态文本: 　　Fig.01 　　注意: 　　按照条介绍的内容来定义您自己的”TextID”，以便不会被WinCC占用。 　　 　　2在变量管理中组态文本参考: 　　为每个在”文本库”中的文本创建一个文本参考并定义相应的文本ID作为变量的起始值(在标签”Limits/Reporting”中)。 　　名字：”ComboTextRef2000”类型：”Textreference”起始值：”2000” 　　... 　　名字：”ComboTextRef2006”类型：”Textreference”起始值：”2006” 　　 　　3在WinCC画面中组态combobox和脚本 　　创建一个类型为：”SiemensSTEP7S7ComboBox”的控件，控件名字是：”Combo1”。 　　在控件的属性中，设置”LinesInList”的值为”10”。 　　在WinCC画面中，事件”PictureObjectMiscellaneousOpenPicture”中创建如下的VB脚本，当画面被调用的时候填充combobox。 　　 　　Fig.02 　　SubOnOpen() 　　ConstLINECOUNT=7 　　DimobjComboBox 　　DimstrComboList 　　Dimcount 　　SetobjComboBox=ScreenItems(“Combo1”) 　　objComboBox.Clear() 　　Forcount=0ToLINECOUNT-1 　　strComboList=HMIRuntime.Tags(“ComboTextRef”count+2000).Read 　　objComboBox.AddItem(strComboList) 　　Next 　　EndSub 　　 　　4评估combobox的值: 　　当一个画面被选择后，相应的文本会从文本参考中读出并写到组合框中作为选则项。为了将组合框中所选择的值写到另外一个变量，你可以使用组合框的事件”S7FlatComboBoxObjectEventsClick”并使用如下的VB脚本： 　　SubClick(ByvalItem) 　　DimobjVal 　　SetobjVal=HMIRuntime.Tags(“SelectedValue”) 　　objVal.WriteItem.Text 　　EndSub 　　 　　5结果: 　　Fig.03 　　现在您可以依据当前所选择的语言来得到combobox中不同的选项列表。 　　 　　 　　例2:将SIMATICManager中组态的枚举(enu