下拉菜单的制作

各位大侠,我想做一个按钮,点一下出现下拉菜单,然后可以随便点击切换到其他画面,就想WINDOWS工具栏上的一样,希望具体点,希望能发个具体不做给我,谢谢
ahleichen@sina.com

问题补充:
不好意思,我想要的是一个下拉菜单,因为我窗口比较多,我想用下来菜单的方式点击切换每个画面,希望有例子或者具体步骤发给我

最佳答案

1、请参考Wincc控件中下拉式列表框Combo怎么组态——

http://www.ad.siemens.com.cn/service/answer/solution.asp?Q_ID=39247&cid=1032 


2、请参考如何在 OS 上组态一个组合框 (combo box),并且能够自动根据不同语言自动填充相应的文本?

描述:
例子 1:
您可以象本例中描述的那样,使用控件 "Siemens STEP 7 S7 ComboBox" 在OS 运行期间动态得填充。请不要使用控件 "Microsoft Forms 2.0 ComboBox",因为使用这个控件会导致 "pdlrt.exe" 内存需求的不断增长。 

警告:
为了在没有 "SIMATIC Manager" 的 "OS" 上使用 "Siemens STEP 7 S7 ComboBox" 控件,必须在相应的计算机上安装注册该控件。您可以在 ES 的路径 "...\SIEMENS\Common\S7ACTLDX\s7actldx.dll" 上找到相关的 DLL 文件。拷贝该文件到每个 OS 上合适的文件夹下。
如何注册这些控件的指导可以在帮助 "WinCC Information System > Working with WinCC > Creating process pictures > Working with controls > How to change the registration of a control" 下找到。   

例子 2:
该例子展示了如何将在 SIMATIC Manager 中组态的枚举 (enumeration) 依据语言显示在组合框中。 

例1: 动态填充combo box :
例如,在运行时,您可以将 "Text Library" 中的文本传送到 combo box 来作为选择项。
  No. 描述 
1 在 WinCC 的文本库中 ("Text Library") 中组态值 :
按如下图组态文本: 

Fig. 01 

注意:
按照条目 23416727 中介绍的内容来定义您自己的 "Text ID",以便不会被 WinCC 占用。
 
2 在变量管理中组态文本参考:
为每个在 "文本库" 中的文本创建一个文本参考并定义相应的文本 ID 作为变量的起始值 (在标签 "Limits/Reporting" 中)。   
名字:"ComboTextRef2000"  类型: "Text reference" 起始值:"2000" 
... 
名字:"ComboTextRef2006"  类型: "Text reference" 起始值:"2006"
 
3 在 WinCC 画面中组态 combo box 和脚本   
创建一个类型为:"Siemens STEP 7 S7 ComboBox" 的控件,控件名字是:"Combo1"。 
在控件的属性中,设置 "LinesInList" 的值为 "10"。   
在WinCC 画面中,事件 "Picture Object > Miscellaneous > Open Picture" 中创建如下的 VB 脚本,当画面被调用的时候填充combo box 。


Fig. 02
Sub OnOpen()

  Const LINECOUNT = 7
  Dim objComboBox
  Dim strComboList
  Dim count

  Set objComboBox = ScreenItems("Combo1")
  objComboBox.Clear()

  For count = 0 To LINECOUNT-1
    strComboList = HMIRuntime.Tags("ComboTextRef"&count+2000).Read
    objComboBox.AddItem (strComboList)
  Next

End Sub
 
4 评估 combo box 的值:
当一个画面被选择后,相应的文本会从文本参考中读出并写到组合框中作为选则项。为了将组合框中所选择的值写到另外一个变量,你可以使用组合框的事件 "S7FlatComboBox > Object Events > Click" 并使用如下的 VB 脚本:  
Sub Click(Byval Item)
  Dim objVal
  Set objVal = HMIRuntime.Tags("SelectedValue")
  objVal.Write Item.Text
End Sub
 
5 结果: 

Fig. 03 

现在您可以依据当前所选择的语言来得到 combo box 中不同的选项列表。
 


例 2: 将SIMATIC Manager 中组态的枚举 (enumeration) 传送到组合框: 

要求:
该例子建立在条目 27147567 的基础之上:首先,依照这个条目的指导第 4 步。
  No. 描述: 
1 在全局脚本中创建 VBS 工程模块:
在 "Global Script VBS" 编辑器中您创建一个新的项目块,例如 "Enumerations.bmo" 并输入如下的脚本。 
您可以简单地将该脚本下载下来。
 VBS_Fill_combobox.zip ( 689 bytes ) 

 ( 18 KB ) 
Fig. 04
 
2 在 WinCC 画面组态combo boxes 和脚本   
创建两个 "Siemens STEP 7 S7 ComboBox" 类型的对象,名字为:"Combo1" 和 "Combo2"。   
在您放入 Combo boxes 的 WinCC 画面事件 "Picture Object > Miscellaneous > Open Picture" 中,创建如下的 VB脚本:
Sub OnOpen()
  Call Fill_combobox ("Combo1", "CFC(1)/TESTENUM.SOURCE")
  Call Fill_combobox ("Combo2", "CFC(1)/TESTENUM.DEST")
End Sub 

在 combo box 的事件 "S7FlatComboBox > Object Events > Click" 中,您组态如下的 VB 脚本来将 combo box 中的选择项写回到控制器中:
Sub Click(Byval Item)
  Const cfcName = "CFC(1)/TESTENUM.SOURCE"
  Dim tagCFC
  Set tagCFC = HMIRuntime.Tags(cfcName)
  tagCFC.Value = Item.ListIndex + 100
  tagCFC.Write
End Sub
 
3 结果:
现在你可以通过组合框来选择块的参数。 

Fig. 05 


Fig. 06
 


 
 
 条目号:28921535     日期:2008-05-28   
 http://support.automation.siemens.com/CN/llisapi.dll?func=cslib.csinfo&lang=zh&siteid=cseus&objid=28921535


另外,还可以参考——

http://www.ad.siemens.com.cn/service/answer/solution.asp?Q_id=39190&cid=1032

http://www.ad.siemens.com.cn/service/answer/solution.asp?Q_id=45200&cid=1032

提问者对于答案的评价:
很好

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc267021.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐

  • wincc的vb脚本能控制datagrid控件吗

    Dim DataGrid1Set DataGrid1 = ScreenItems("DataGrid1")DataGri…

    2020年11月1日
  • sqlncli不能安装(1)

    选最佳答案时没有2次确认功能,按快了附下载地址http://www.microsoft.com/downloads/zh-cn/details.aspx?FamilyID=5a58…

    SIMATIC WinCC 2019年6月11日
  • 怎么定时启动一个或N个项目函数?

    1、在C脚本里,为什么只有全局动作的属性里可以设置触发器来定时启动全局动作的程序,而项目函数的属性却没有触发器设置呢?2、如果我要系统运行时就自动启动运行一次项目函数A,该怎么做?…

    SIMATIC WinCC 2019年6月11日
  • Winn CC flexible 密码设定

    我在设定WinCC的操作权限时,没有选择?次输错密码(安全设置里面),然后密码失效的功能。但是,我故意输错密码5次, 密码就失效了,不知道是什么原因。 最佳答案 Winn…

    SIMATIC WinCC 2017年12月7日
  • 用excel记录WinCC数据

    以下这段代码是写在WinCC的全局C脚本里,用于生成记录数据的excel文件名,文件名是系统日期时间:pExcel->Workbooks  ->Op…

    SIMATIC WinCC 2017年8月26日
  • 西门子Wincc怎么连接MY SQL数据库?

    西门子Wincc怎么连接MY SQL数据库?WINCC怎么读写数据库里面的数据 最佳答案 1、WINCC用 VBS连接SQL参考:https://wenku.b…

    SIMATIC WinCC 2021年7月5日
  • WINCC与S7-200通信问题!!急!!

    WINCC与S7-200通过243-1通信,采用OPC方式,请问在S7中243的向导是配置成服务器还是,客户机啊??我两种都试过,感觉都行不能,每次PCaccess导入后总出问题!…

    SIMATIC WinCC 2019年6月11日
  • wincc 历史曲线 显示 隐藏

    我想做一个在历史曲线里,里面有16个归档模拟量,但不要同时显示,比如可以做16个按钮,点击其中5个按钮时,就显示所对应的5个模拟量。类似的方法也可以。请问诸位大神有什么好的方法 问…

    2020年11月1日
  • WINCC在线表格的时间间隔

    我在变量记录中对过程值做了数据记录,想在在线表格中显示或查询。我想让数据的时间间隔为1小时或2小时,如何做呢。我改时间精度,最大只能为1分钟。我用的是WINCC7.0 S…

    2017年11月6日
  • Wincc7.5 打开Wincc7.2项目失败

    Wincc7.2的项目,想移植至wincc7.5,不成功。移植的时候报是最新的。打开的时候报找不到服务器。然后就不开了。 问题补充:是老项目的移植,项目为STEP7集成的冗余服务器…

    SIMATIC WinCC 2020年11月1日