谁能帮我看看wincc这段鼠标动作脚本要实现功能-技术论坛-工业支持中心-西门子中国

谁能帮我看看wincc这段鼠标动作脚本要实现功能

雨后的蜗牛

帖子

32
精华

0
被关注

0

论坛等级：游民

注册时间：2014-07-10

普通如何晋级?

谁能帮我看看wincc这段鼠标动作脚本要实现功能

695

2

2014-08-27 23:15:21

#include "apdefap.h"
void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)
{
#pragma option(mbcs)
// WINCC:TAGNAME_SECTION_START
// syntax: #define TagNameInAction "DMTagName"
// next TagID : 1
// WINCC:TAGNAME_SECTION_END

// WINCC:PICNAME_SECTION_START
// syntax: #define PicNameInAction "PictureName"
// next PicID : 1
// WINCC:PICNAME_SECTION_END
SetVisible(lpszPictureName,"QD",TRUE);//画面窗口关闭命令。
SetVisible(lpszPictureName,"HG",FALSE);//画面窗口关闭命令。
SetVisible(lpszPictureName,"KT",FALSE);//画面窗口关闭命令。
}
还有下面这段VB脚本
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
ScreenItems("按钮7").BackColor = RGB(0,230,226)
ScreenItems("按钮8").BackColor = RGB(210,210,210)
ScreenItems("按钮6").BackColor = RGB(210,210,210)
End Sub