首先建立一個(gè)畫(huà)面，添加兩個(gè)控件，如下：

指示燈關(guān)聯(lián)BOOL變量，按鈕添加如下腳本：

DIM s AS INTEGER;OLE_CreateObject(%WS,"Wscript.Shell");IF D1==0 ?THEN ? ?s=%WS.Popup("確認(rèn)開(kāi)啟？",1,"開(kāi)啟",1 ); ? ?IF s==1 ?THEN ? ? ? ?D1=1; ? ?ENDIF; ? ?ELSE ? ? ? ?s=%WS.Popup("確認(rèn)停止？",1,"停止",1 ); ? ?IF s==1 ?THEN ? ? ? ?D1=0; ? ?ENDIF;ENDIF;

運(yùn)行測(cè)試：

啟動(dòng)時(shí)，顯示如下

點(diǎn)擊OLE按鈕后

點(diǎn)擊確認(rèn)按鈕后，顯示如下

再次點(diǎn)擊OLE按鈕后

點(diǎn)擊確認(rèn)按鈕后，顯示如下

以上就實(shí)現(xiàn)了采用OLE對(duì)象指針實(shí)現(xiàn)窗口的二次確認(rèn)。

歡迎轉(zhuǎn)載，轉(zhuǎn)載請(qǐng)注明來(lái)源！謝謝！路客?藍(lán)晟科技?

intouch微信群+VX：gk405321992