哪位大侠帮我看看这段脚本 蜗牛感激不尽

已锁定

雨后的蜗牛

  • 帖子

    32
  • 精华

    0
  • 被关注

    0

论坛等级:游民

注册时间:2014-07-10

普通 普通 如何晋级?

哪位大侠帮我看看这段脚本 蜗牛感激不尽

361

1

2016-04-24 11:36:57

#include "apdefap.h"

void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)

{

#pragma option(mbcs)

DWORD Language;

BOOL a;

int j,

i=6;//参数个数 改为6个*********

char* token,s[10];

char* PicName1,* PicName2,* ObjName1;

char input[100],ObjName[100],

PicName[]="机运模版滚床PRB_A1_1D1S1S";//  -修改  需要弹出的画面名称


sprintf(input,"%s",lpszPictureName);

PicName1 =strtok(input,":");

PicName2=strtok(NULL," ");


while(PicName2!=NULL)

{

PicName1=PicName2;

PicName2 =strtok(NULL," ");

}


PicName1 =strtok(PicName1 ,".");

ObjName1=strtok(NULL," ");

ObjName1=strtok(ObjName1,":");

//SetText(PicName1 ,"txt1",PicName1 );

//SetText(PicName1 ,"txt2",ObjName1);

//CV01_AS1_B10005CL01/B10005CR01/B10005CL01/B10005CTT01

token =GetPropChar(PicName1,ObjName1,"CaptionText");//strtok(NULL," ");

//ObjName=GetPropChar(PicName1,ObjName1,"CaptionText");



SetText(PicName1,"txt0",lpszPictureName);



Language=GetLanguage();

//SetVisible("menu","画面窗口2",FALSE);//画面窗口关闭命令。

SetPropChar("menu","机运三级画面窗口","TagPrefix",GetPropChar(PicName1,ObjName1,"TagPrefix")); //画面窗口标题名称  

SetPictureName("menu","机运三级画面窗口",PicName);//画面窗口的名称,填充画面名称。

SetVisible("menu","机运三级画面窗口",TRUE);//画面窗口显示命令。

for(j=1;j<=i;j++)

{

token =strtok(token,"/");

if (token!=NULL)

{

sprintf(s,"trans%d",j);

SetText(PicName,s,token);

}

SetText(PicName,"NameObject",GetText(PicName,"trans2"));

sprintf(s,"Type%s",token);//按钮组名为“Type+参数6”,例如参数6内容为数字2,则按钮组名为”Type2“*******

SetVisible(PicName,s,TRUE);//是按钮组显示**********

token =strtok(NULL," ");

}

SetPropWord("Menu","中英切换","Operation",0);

}


哪位大侠帮我看看这段脚本 蜗牛感激不尽 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32575条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。