VB操作wincc脚本心得

Vbs 操作wincc画面脚本总结

一： 不使用变量单纯的操作界面

1.操作某个画面中控件的属性 如 Home1.Pdl（总窗体） 下的 画面窗口2（画面窗口）

Sub OnClick(ByVal Item)

Dim objCircle

Dim screenname

Dim pwname

Set objCircle= ScreenItems(\"圆1\" )

objCircle.Radius = 60

Set screenname=HMIRuntime.Screens(\"Home1\") //获取要操作的窗体

Set pwname=screenname.ScreenItems(\"画面窗口2\") //获取要操作的控件，这里填入你要操作的控件名

MsgBox(objCircle.Radius) //输出圆的半径

MsgBox (pwname.Picturename) //输出当前画面窗口2的名字

End Sub

注意 当调用某窗体下的某控件的某个属性时,需要声明两个对象，一个接纳这个控件，一个接纳值 例如

Dim object

Dim value

Set object =HMIRuntime.Screens(\"Home1\").ScreenItems(\"画面窗口2\")

Set value=object.picturename

2.更改画面窗口的对象

Sub OnClick(Byval Item)

Dim opObject

Set opObject=HMIRuntime.Screens (\"Home1\").ScreenItems(\"画面窗口2\")

opObject.PictureName=\"Page1.Pdl\"

End Sub

3.设置文本

Set titleTxt=HMIRuntime.Screens (\"Home1\").ScreenItems(\"静态文本2\")

titleTxt.Text =titleTxt.Text+\"EF\" //获取文本的值并追加字符

4.vb 字符串函数

VB的字符串截取函数有Left（字符串，n），返回字符串前N个字符；Mid（字符串，p，n），从第p个字符开始，向后截取N个字符；right（字符串，n），返回字符串的最后n个字符。

获取下标

VB中的InStr()函数与InStrRev()函数：

都是在主字符串当中搜寻寻找子字符串，返回找到的子字符串在主字符串中出现的位置；

不同在于；

InStr()函数，从左开始向右寻找，InStrRev()函数，从右开始向左寻找。

截取 right 和left 获取长度 Len

二：操作变量

1. Dim objTag

Dim AText

Set objTag = HMIRuntime.Tags(\"a\") //获取变量

objTag.Read //执行读取

Set AText=ScreenItems(\"静态文本2\") //获取控件

AText.Text=objTag.Value //给控件写入值

objTag.Value =100 //给目标变量写入值

objTag.Write //执行写入

2. vb 中 Switch 语句的变体

Dim objTag

Dim AText

Set objTag = HMIRuntime.Tags(\"a\") //获取内部变量a的值

objTag.Read //必须要有这一步，这是读取操作，同理如果改写值必须要有ogjTag.write

Set AText=ScreenItems(\"静态文本2\")

Select Case objTag.Value

Case 1

AText.Text=\"a\"

Case 2

AText.Text=\"b\"

Case Else

AText.Text=objTag.Value

End Select