VB操作wincc脚本心得

Vbs操作wincc画面脚本总结一：不使用变量单纯的操作界面1.操作某个画面中控件的属性如Home1.Pdl（总窗体）下的画面窗口2（画面窗口）SubOnClick(ByValItem)DimobjCircleDimscreennameDimpwnameSetobjCircle=ScreenItems(圆1)objCircle.Radius=60Setscreenname=HMIRuntime.Screens(Home1)//获取要操作的窗体Setpwname=screenname.ScreenItems(画面窗口2)//获取要操作的控件，这里填入你要操作的控件名MsgBox(objCircle.Radius)//输出圆的半径MsgBox(pwname.Picturename)//输出当前画面窗口2的名字EndSub注意当调用某窗体下的某控件的某个属性时,需要声明两个对象，一个接纳这个控件，一个接纳值例如DimobjectDimvalueSetobject=HMIRuntime.Screens(Home1).ScreenItems(画面窗口2)Setvalue=object.picturename2.更改画面窗口的对象SubOnClick(ByvalItem)DimopObjectSetopObject=HMIRuntime.Screens(Home1).ScreenItems(画面窗口2)opObject.PictureName=Page1.PdlEndSub3.设置文本SettitleTxt=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.DimobjTagDimATextSetobjTag=HMIRuntime.Tags(a)//获取变量objTag.Read//执行读取SetAText=ScreenItems(静态文本2)//获取控件AText.Text=objTag.Value//给控件写入值objTag.Value=100//给目标变量写入值objTag.Write//执行写入2.vb中Switch语句的变体DimobjTagDimATextSetobjTag=HMIRuntime.Tags(a)//获取内部变量a的值objTag.Read//必须要有这一步，这是读取操作，同理如果改写值必须要有ogjTag.writeSetAText=ScreenItems(静态文本2)SelectCaseobjTag.ValueCase1AText.Text=aCase2AText.Text=bCaseElseAText.Text=objTag.ValueEndSelect三．弹出对话框设置buttons参数可以有以下值：常数值描述vbOKOnly0只显示确定按钮。vbOKCancel1显示确定和取消按钮。vbAbortRetryIgnore2显示放弃、重试和忽略按钮。vbYesNoCancel3显示是、否和取消按钮。vbYesNo4显示是和否按钮。vbRetryCancel5显示重试和取消按钮。vbCritical16显示临界信息图标。vbQuestion32显示警告查询图标。vbExclamation48显示警告消息图标。vbInformation64显示信息消息图标。vbDefaultButton10第一个按钮为默认按钮。vbDefaultButton2256第二个按钮为默认按钮。vbDefaultButton3512第三个按钮为默认按钮。vbDefaultButton4768第四个按钮为默认按钮。vbApplicationModal0应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。vbSystemModal4096系统模式：在用户响应消息框前，所有应用程序都被挂起。第一组值(0-5)用于描述对话框中显示的按钮类型与数目；第二组值(16,32,48,64)用于描述图标的样式；第三组值(0,256,512)用于确定默认按钮；而第四组值(0,4096)则决定消息框的样式。在将这些数字相加以生成buttons参数值时，只能从每组值中取用一个数字。返回值MsgBox函数有以下返回值：常数值按钮vbOK1确定vbCancel2取消vbAbort3放弃vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否下面的例子演示了MsgBox函数的用法：DimMyVarMyVar=MsgBox(HelloWorld!,65,MsgBoxExample)'MyVarcontainseither1or2,dependingonwhichbuttonisclicked.你要求是有是和否两个按钮那么MyVar=MsgBox(HelloWorld!,65,MsgBoxExample)中的65改成4就可以了！vbs脚本中：ifmsgbox(确实要启动设备吗？，4，警告)=6thenhmiruntime.tags(tag1).write1endif