VB操作wincc脚本心得

1、Vbs操作wince画面脚本总结一：不使用变量单纯的操作界面1操作某个画面中控件的属性女口 Homel.Pdl （总窗体） 下的 画面窗口 2 （画面窗口）Sub OnClick（ByVal Item）Dim objCircleDim scree nn ameDim pwn ameSet objCircle= Scree nltems（圆 1）objCircle.Radius = 60Set scree nn ame=HMIR un time.Scree ns（Home1）/ 获取要操作的窗体Set pwname=screenname.Screenltems（” 画面窗口 2）/获取要操作的控

2、件，这里填入你要操作的控件名MsgBox（objCircle.Radius） / 输出圆的半径MsgBox （pwname.Picturename）/输出当前画面窗口 2的名字End Sub注意当调用某窗体下的某控件的某个属性时，需要声明两个对象，一个接纳这个控 件，一个接纳值例如Dim objectDim valueSet object =HMIRuntime.Screens（Home1）.Screenltems（” 画面窗口 2）Set value=object.picture name2. 更改画面窗口的对象Sub On Click（Byval Item）Dim opObjectSet

3、opObject=HMIRuntime.Screens （Home1）.Screenltems（” 画面窗口 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 （字符串，

4、n）,返回字符串 的最后n个字符。获取下标VB中的InStr()函数与InStrRev()函数：都是在主字符串当中搜寻寻找子字符串，返回找到的子字符串在主字符串中出现的位置; 不同在于；InStr()函数，从左开始向右寻找，InStrRev()函数，从右开始向左寻找。截取right和left二:操作变量获取长度Len1. Dim objTagDim ATextSet objTag = HMIRu ntime.Tags(a)/ 获取变量objTag.Read / 执行读取Set AText=Screenltems(静态文本 2)/ 获取控件AText.Text=objTag.Value / 给控

5、件写入值 objTag.Value =100 /给目标变量写入值 objTag.Write/ 执行写入2. vb 中 Switch 语句的变体Dim objTagDim ATextSet objTag = HMIRuntime.Tags(a)/ 获取内部变量 a 的值objTag.ReadogjTag.write/必须要有这一步，这是读取操作，冋理如果改写值必须要有Set AText=ScreenItems(静态文本 2)Select Case objTag.ValueCase 1AText.Text=aCase 2AText.Text=bCase ElseAText.Text=objTag.

6、ValueEnd Select三.弹出对话框设置buttons参数可以有以下值：常数值描述vbOKOnly 0 只显示确定按钮。 vbOKCancel 1 显示确定和取消按钮。vbAbortRetrylgnore 2显示放弃、重试和忽略按钮。vbYesNoCancel 3 显示是、否和取消按钮。|vbYesNo 4显示是和否按钮。vbRetryCancel 5 显示重试和取消按钮。vbCritical 16 显示临界信息图标。_|vbQuestion 32 显示警告查询图标。vbExclamation 48 显示警告消息图标。vblnformation 64 显示信息消息图标。vbDefaul

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

8、组值(0, 4096)则 决定消息框的样式。在将这些数字相加以生成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, MsgBoxExampl