施耐德页面显示图片3-相对路径的图片

前面做了在citect项目程序中使用web browser控件显示图片的练习，当时图片路径是绝对路径。有时候需要显示citect项目程序路径下某个图片，项目路径不固定，这个时候就需要结合cicode函数来获取项目路径了。

在项目中新建cicode函数

FUNCTION ShowFile()
Path=ParameterGet("CtEdit","Run","");
IF path="" THEN
Message("title","请退出，然后重新运行",0);
ELSE
Path=Path+"\说明\说明.png";
//Message("title",Path,0);
PagePopUp("说明");
END
END

这个函数是为了得到当前项目路径下图片文件的完整路径，项目路径不同，完整图片路径就不相同。

退出按钮的鼠标点击事件脚本如下：

ProjectRestartGet();
Shutdown();

有web browser控件（假设该控件在页面为AN4）页面进入页面事件脚本如下：

_ObjectCallMethod(ObjectByName("AN4"),"Navigate",Path);

弹出窗口的按钮脚本如下：

pagepopup("shuoming");

 

保存、编译，运行项目时就可以看到效果了。