WINCC 弹出控制框

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+Pinpwidth<picwidth){

posObject.iLeft = left +objwidth+10;

}

else posObject.iLeft = left -Pinpwidth-10;

if(top+Pinpheight+80>picheight){

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

}

//