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 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 } //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////