VB操作wincc脚本心得由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb操作wincc脚本心得”。
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 Set objTag = HMIRuntime.Tags(“a”)
//获取内部变量a的值
objTag.Read
//必须要有这一步，这是读取操作，同理如果改写值必须要有ogjTag.write Set AText=ScreenItems(“静态文本2”)
Select Case objTag.Value Case 1 AText.Text=“a” Case 2 AText.Text=“b” Case Else AText.Text=objTag.Value End Select
三．弹出对话框
设置
buttons 参数可以有以下值：
常数 值 描述
vbOKOnly 0 只显示确定按钮。vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。vbYesNoCancel 3 显示是、否和取消按钮。vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。vbCritical 16 显示临界信息图标。vbQuestion 32 显示警告查询图标。vbExclamation 48 显示警告消息图标。vbInformation 64 显示信息消息图标。vbDefaultButton1 0 第一个按钮为默认按钮。vbDefaultButton2 256 第二个按钮为默认按钮。vbDefaultButton3 512 第三个按钮为默认按钮。vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。
第一组值(0-5)用于描述对话框中显示的按钮类型与数目；第二组值(16, 32, 48, 64)用于描述图标的样式；第三组值(0, 256, 512)用于确定默认按钮；而第四组值(0, 4096)则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。返回值
MsgBox 函数有以下返回值：
常数 值 按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否
下面的例子演示了 MsgBox 函数的用法：
Dim MyVar
MyVar = 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 then
hmiruntime.tags(“tag1”).write 1
end if
——————1、wincc全局脚本动作-------隐藏控件——————#include "apdefap.h" int gscAction( void ) { // WINCC:TAGNAME_SECTION_START // syntax: #define TagN......
.用户注销：#pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogout(); 2.用户登录：#pragma code ("useadmin.dll") #include "PWRT_api.h"......
请耐心看完：问题出现得较复杂。我的目的： 将多个文档内容逐一拷贝粘贴到另一文档后面我的方法： wordapp=new word.application Set doc = wordapp.Documents.Addwhile path......
在这次VB课程设计过程中，我最大的收获就是有二，一是与其临渊羡鱼，不如退而结网，无论什么事情，一定要去做，困难在你的勇气和毅力下是抬不了头的。二是深刻地认识到，做事情一定要有耐......
VB心得这学期选修了VB这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心得体会。在日常生活中我们经常会有......
