下拉菜单的制作

各位大侠,我想做一个按钮,点一下出现下拉菜单,然后可以随便点击切换到其他画面,就想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 V7.3的VBS脚本问题

    请问如下VBS脚本有什么问题:它在第二行报错是“HMIScreens: get_Item:参数错误”,如下picm是画面窗口控件,pic2是想要通过picm跳转的画面。这…

    SIMATIC WinCC 2021年7月5日
  • VBS代码模板的语句

    VBS代码模板的语句是什么意思!刚开始使用WINCC,也没接触过VBS语言什么的!哪位可以指点一下或者提供相关资料! 最佳答案 你说的是vbs的编辑器吗?你可以在帮助搜索脚本,有介…

    SIMATIC WinCC 2019年6月10日
  • Kepserver 能访问wincc5.0吗?

    网络里有台WIncc5.0的机子,是NT系统,英文的OS,不大好用,vb都装不上。可能系统有问题!所以我想在另外一台机子上装个Kepserver,请问能看到wincc5里的变量吗,…

    SIMATIC WinCC 2019年6月11日
  • wincc中组态下拉菜单

    wincc中组态下拉菜单,比如:在总览区用按钮或是控件,当单击这个按钮或控件时,出现下拉菜单,然后再下拉菜单中点击切换到不同的画面。请问该如何组态控件或者按钮呢?谢谢! 最佳答案 …

    2021年7月5日
  • 触摸屏与plc通讯自动断开

    TP1200触摸屏与CPU1510通过PN/IE连接,通讯一段时间后自动断开,是怎么回事? 钻石用户推荐最佳答案 1.请检查通讯设置和通讯连接。2.检查网线3.IP地址是否有冲突4…

    SIMATIC WinCC 2020年11月1日
  • WINCC登陆按钮与权限

    我在wincc里做了一个关于登陆的按钮,脚本如下: #pragma code("useadmin.dll") #include&n…

    SIMATIC WinCC 2019年6月11日
  • 怎样在symbol控件上显示提示文本

    wincc里的图形和图片,可以设置悬停时显示提示文本,丹HMI symbol控件却没有这个选项,请问有没有办法解决??比如,一个HMI symbol控件,是个电…

    SIMATIC WinCC 2019年6月11日
  • 网络连接问题

    客户机和服务器怎么配置网络设置,要用以太网连接,请说详细点,我是一点也不知道,要和PLC连接是不是还要在PLC的网络上一起组态,还是WINCC单独组态,没找到WINN上有组态的东西…

    SIMATIC WinCC 2019年6月11日
  • 如何更改保存数据路径

    我厂的工控机突然不好使了(WINCC V6.0),点任何按钮设备都没有反应,经过检查是C盘已经满了,(前两天工控机总是提示虚拟内存不足)好像是保存数据路径在C盘,我该如何…

    SIMATIC WinCC 2019年6月11日
  • 在线表格控件如何实时设定数据间隔时间?

    我的变量记录中设定的是每隔0.5秒采集一次数据。但是在通过在线表格控件浏览历史数据时,由于数据量太大,我希望可以让用户自由设定浏览数据的间隔时间,例如每隔3分钟或5分钟显示一条数据…

    SIMATIC WinCC 2021年7月5日