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.ScreenItems(画面窗口2) /获取要操作的控件，这里填入你要操作。

2、的控件名MsgBox(objCircle.Radius) /输出圆的半径MsgBox (pwname.Picturename) /输出当前画面窗口2的名字End Sub注意 当调用某窗体下的某控件的某个属性时,需要声明两个对象，一个接纳这个控件，一个接纳值 例如Dim objectDim valueSet object =HMIRuntime.Screens(Home1).ScreenItems(画面窗口2)Set value=object.picturename2.更改画面窗口的对象Sub OnClick(Byval Item) Dim opObjectSet opObject=HMIRun。

3、time.Screens (Home1).ScreenItems(画面窗口2)opObject.PictureName=Page1.PdlEnd Sub3.设置文本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()。

4、函数与InStrRev()函数：都是在主字符串当中搜寻寻找子字符串，返回找到的子字符串在主字符串中出现的位置；不同在于；InStr()函数，从左开始向右寻找，InStrRev()函数，从右开始向左寻找。截取 right 和left 获取长度 Len二：操作变量1. Dim objTagDim ATextSet objTag = HMIRuntime.Tags(a) /获取变量objTag.Read /执行读取Set AText=ScreenItems(静态文本2) /获取控件AText.Text=objTag.Value /给控件写入值objTag.Value =100 /给目标变量写入值ob。

5、jTag.Write /执行写入2. vb 中 Switch 语句的变体Dim objTagDim ATextSet objTag = HMIRuntime.Tags(a) /获取内部变量a的值objTag.Read /必须要有这一步，这是读取操作，同理如果改写值必须要有ogjTag.writeSet AText=ScreenItems(静态文本2) Select Case objTag.ValueCase 1AText.Text=aCase 2AText.Text=bCase ElseAText.Text=objTag.ValueEnd Select三弹出对话框设置buttons 参数可以有。

6、以下值：常数 值 描述vbOKOnly 0 只显示确定按钮。vbOKCancel 1 显示确定和取消按钮。vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。vbYesNoCancel 3 显示是、否和取消按钮。vbYesNo 4 显示是和否按钮。vbRetryCancel 5 显示重试和取消按钮。vbCritical 16 显示临界信息图标。vbQuestion 32 显示警告查询图标。vbExclamation 48 显示警告消息图标。vbInformation 64 显示信息消息图标。vbDefaultButton1 0 第一个按钮为默认按钮。vbDefaultButto。

7、n2 256 第二个按钮为默认按钮。vbDefaultButton3 512 第三个按钮为默认按钮。vbDefaultButton4 768 第四个按钮为默认按钮。vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这。

8、些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。返回值MsgBox 函数有以下返回值：常数 值 按钮vbOK 1 确定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, MsgBox Example)中 的65改成4就可以了！vbs脚本中：if msgbox(确实要启动设备吗？，4，警告)=6 thenhmiruntime.tags(tag1).write 1end if7 / 7文档可自由编辑。