VB操作wincc脚本心得.pdfVIP

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