WINCC 弹出控制框

2019-04-15 16:06发布

WINCC上要求 点击每个阀门 每个点击 弹出一个控制方框 (对泵和阀门进行开关,状态指示) 建好结构变量后 在鼠标左键里,选择VBS动作: Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim PIC Set PIC = ScreenItems("画面窗口1")'选择画面窗口 PIC.Visible = False PIC.Left = x +10 PIC.Top = Y '使窗口移动到鼠标位置 PIC.TagPrefix = "TAG_6."' 定义变量前缀 PIC.Visible = True   如此的虔诚,让人感动,应该得到回报!我也提供一些关于结构变量,并在指定位置弹出窗口的C脚本给你参考一下,希望对你有些帮助,其实最主要的还是要你自己再去研究一下哦。 #include "apdefap.h" void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y) { SetPropChar(lpszPictureName,"popbox2","CaptionText","标题栏的内容");//注:popbox2是父窗口的Picturewindow SetTagPrefix(lpszPictureName,"popbox2","结构变量的前缀.");//对结构变量赋前缀 OpenPicturewindowoffset(lpszPictureName,lpszObjectName,"popbox2","要弹出显示的通用画面.pdl",0,0);//二次开发的项目函数,定义弹出窗口的位置,并判断弹出的位置 } ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 二次开发的项目函数如下: #include "apdefap.h" void OpenPicturewindowoffset(char* lpszPictureName, char* lpszObjectName, char* PicturewindowName,char* PinPName, int Pinpwidth,int Pinpheight) { int left,top,objwidth,picwidth,picheight; struct CC_POINT { int iLeft; int iTop; }; struct CC_POINT posObject; picwidth=900; picheight=700; left=GetLeft(lpszPictureName,lpszObjectName); top=GetTop(lpszPictureName,lpszObjectName); objwidth=GetWidth(lpszPictureName,lpszObjectName); if(left+objwidth+Pinpwidthpicheight){ posObject.iTop = picheight-Pinpheight-30; } else posObject.iTop = top ; SetLeft(lpszPictureName,PicturewindowName,posObject.iLeft); SetTop(lpszPictureName,PicturewindowName,posObject.iTop); SetPictureName(lpszPictureName,PicturewindowName,PinPName); SetVisible(lpszPictureName,PicturewindowName,TRUE); //Return-Type :BOOL } //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////