VB操作wincc脚本心得

1、Vbs 操作 wincc 画面脚本总结一： 不使用变量单纯的操作界面1. 操作某个画面中控件的属性如 Home1.Pdl (总窗体) 下的 画面窗口2(画面窗口)Sub OnClick(ByVal Item)Dim objCircleDim screennameDim pwnameSet objCircle= ScreenItems(" 圆 1" )objCircle.Radius = 60Set screenname=HMIRuntime.Screens("Home1") / 获取要操作的窗体Set pwname=screenname.ScreenIt

2、ems(" 画面窗口 2") / 获取要操作的控件，这里填入你要操作的控件名MsgBox(objCircle.Radius) / 输出圆的半径MsgBox (pwname.Picturename) / 输出当前画面窗口2 的名字End Sub注意 当调用某窗体下的某控件的某个属性时, 需要声明两个对象，一个接纳这个控件，一个接纳值例如Dim objectDim valueSet object =HMIRuntime.Screens("Home1").ScreenItems(" 画面窗口 2")Set value=object.pict

3、urename2 .更改画面窗口的对象Sub OnClick(Byval Item)Dim opObjectSet opObject=HMIRuntime.Screens ("Home1").ScreenItems(" 画面窗 口 2")opObject.PictureName="Page1.Pdl”End Sub3 .设置文本Set titleTxt=HMIRuntime.Screens ("Home1").ScreenItems("静态文本2")titleTxt.Text =titleTxt.Text

4、+"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 objTagDim ATe

5、xtSet objTag = HMIRuntime.Tags("a") / 获取变量objTag.Read / 执行读取Set AText=ScreenItems(" 静态文本 2") / 获取控件AText.Text=objTag.Value / 给控件写入值objTag.Value =100 / 给目标变量写入值objTag.Write / 执行写入2. vb 中 Switch 语句的变体Dim objTagDim ATextSet objTag = HMIRuntime.Tags("a") / 获取内部变量a 的值objTag.

6、Read / 必须要有这一步，这是读取操作，同理如果改写值必须要有 ogjTag.writeSet AText=ScreenItems(" 静态文本 2")Select Case objTag.ValueCase 1AText.Text="a"Case 2AText.Text="b"Case ElseAText.Text=objTag.ValueEnd Select三.弹出对话框设置buttons参数可以有以下值：常数值描述？vbOKOnly 0 只显示确定按钮。？vbOKCancel 1 显示确定和取消按钮。？vbAbortRetr

7、ylgnore 2 显示放弃、重试和忽略按钮。？vbYesNoCancel 3 显示是、否和取消按钮。？vbYesNo 4显示是和否按钮。？vbRetryCancel 5 显示重试和取消按钮。？vbCritical 16 显示临界信息图标。？vbQuestion 32 显示警告查询图标。？vbExclamation 48 显示警告消息图标。？vbInformation 64 显示信息消息图标。？vbDefaultButton1 0 第一个按钮为默认按钮。？vbDefaultButton2 256第二个按钮为默认按钮。？vbDefaultButton3 512第三个按钮为默认按钮。？vbDefa

8、ultButton4 768第四个按钮为默认按钮。？vbApplicationModal 0应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。vbSystemModal 4096系统模式：在用户响应消息框前，所有应用程序都被挂起。？第一组值(0 - 5)用于描述对话框中显示的按钮类型与数目；第二组值(16, 32, 48, 64)用于描述图标的样式；第三组值 (0, 256, 512)用于确定默认按钮；而第四组值(0, 4096)则决定消息框的样式。在将这些数字相加以生成buttons参数值时，只能从每组值中取用一个数字。返回值MsgBox函数有以下返回值：常数值按钮？vbOK 1

9、确定？vbCancel 2 取消？vbAbort 3 放弃？vbRetry 4 重试？vbIgnore 5 忽略？vbYes 6 是？vbNo 7 否？下面的例子演示了 MsgBox函数的用法：？Dim MyVarMyVar = MsgBox ("Hello World!", 65, "MsgBox Example")'MyVar contains either 1 or 2, depending on which button is clicked.你要求是有是和否两个按钮那么MyVar = MsgBox ("Hello World!", 65, "Ms