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