[转载]WINCC 中使用控件（以window media player控件为例）
2014-05-11 10:27阅读：
要使用控件首先要添加控件，将控件添加到对象选项板中。
![[转载]WINCC <wbr>中使用控件（以window <wbr>media <wbr>player控件为例）](http://s6.sinaimg.cn/bmiddle/03d63956g79987b3c4035&690 "[转载]WINCC <wbr>中使用控件（以window <wbr>media <wbr>player控件为例）")
在画面上的布局
![[转载]WINCC <wbr>中使用控件（以window <wbr>media <wbr>player控件为例）](http://s14.sinaimg.cn/bmiddle/03d63956gbff4d07e90cd&690 "[转载]WINCC <wbr>中使用控件（以window <wbr>media <wbr>player控件为例）")
1.打开绝对地址的按钮中VBS脚本
Sub OnLButtonUp(Byval Item, Byval
Flags, Byval x, Byval y)
Dim a
Dim aa
Set a=HMIRuntime.Screens('main')
Set aa=a.ScreenItems('控件2')
aa.URL='D:计算机编程JAVA语言安卓视频教程新建文件夹1第一讲：JavaFX初探.wmv'
End Sub
2.播放按钮中的VBS脚本
Sub
OnLButtonUp(Byval Item, Byval Flags,
Byval x, Byval y)
Dim
a
Dim
aa
Dim
b
Set
a=HMIRuntime.Screens('main')
Set
aa=a.ScreenItems('控件2')
aa.controls.play
End
Sub
3.暂停按钮中的VBS脚本
Sub
OnLButtonUp(Byval Item, Byval Flags,
Byval x, Byval y)
Dim
a
Dim
aa
Dim
b
Set
a=HMIRuntime.Screens('main')
Set
aa=a.ScreenItems('控件2')
aa.controls.pause
End
Sub
4.停止按钮中的VBS脚本
Sub
OnLButtonUp(Byval Item, Byval Flags,
Byval x, Byval y)
Dim
a
Dim
aa
Dim
b
Set
a=HMIRuntime.Screens('main')
Set
aa=a.ScreenItems('控件2')
aa.controls.stop
End Sub
5.播放进度条中VBS脚本
Sub
OnObjectChanged(Byval Item)
Dim
a
Dim
aa
Dim
bb
Dim
cc
Set
a=HMIRuntime.Screens('main')
Set
aa=a.ScreenItems('控件2')
Set
bb=a.ScreenItems('滚动条对象1')
Set
cc=a.ScreenItems('静态文本3')
aa.controls.currentPosition=bb.Process
cc.Text='进度:'&aa.controls.currentPosition&'
'&aa.controls.currentPosition&'%'
End
Sub
6.音量控制进度条中VBS
Sub
OnObjectChanged(ByVal Item)
Dim
a
Dim
aa
Dim
bb
Dim
cc
Set
a=HMIRuntime.Screens('main')
Set
aa=a.ScreenItems('控件2')
Set
bb=a.ScreenItems('滚动条对象2')
Set
cc=a.ScreenItems('静态文本3')
aa.settings.volume=bb.Process
cc.Text='音量:'&bb.Process&'%'
End Sub
以上程序完美运行
程序说明：程序中文本等显示是直接调用的对象属性并非通过WINCC变量。其中控件2是WINDOWS MEDIA
PLAYER控件，滚动条对象2是用于调
节音量的，滚动条对象1是用于调节播放进度的，静态文本3为公用显示用的。
欢迎交流心得
柳叶亲月夜 QQ:275578306@QQ.COM
2012年4月10日
