InTouch之OLE对象指针

首先建立一个画面，添加两个控件，如下：

指示灯关联BOOL变量，按钮添加如下脚本：

DIM s AS INTEGER;OLE_CreateObject(%WS,"Wscript.Shell");IF D1==0  THEN    s=%WS.Popup("确认开启？",1,"开启",1 );    IF s==1  THEN        D1=1;    ENDIF;    ELSE        s=%WS.Popup("确认停止？",1,"停止",1 );    IF s==1  THEN        D1=0;    ENDIF;ENDIF;

运行测试：

启动时，显示如下

点击OLE按钮后

点击确认按钮后，显示如下

再次点击OLE按钮后

点击确认按钮后，显示如下

以上就实现了采用OLE对象指针实现窗口的二次确认。

欢迎转载，转载请注明来源！谢谢！路客 蓝晟科技 

intouch微信群+VX：gk405321992