自定義彈出視窗
阿新 • • 發佈:2018-11-23
第一步:建立視窗0,並拖拽3個按鈕
第二步:建立視窗1,設定屬性“背景”,“大小”
第三步:建立變數,ButtonNumber 用於標記屬於哪個按鈕執行的視窗
第四步:對應的指令碼指令碼事件如下
(1)視窗0 ==> 按鈕“視窗1”==>事件==>左鍵按下
width=按鈕0.Width height=按鈕0.Height leftValue=按鈕0.Left+width topValue=按鈕0.Top+height Var.ButtonNumber=1 Call HMICmd.OpenDialogWindow("視窗1",1,true,leftValue,topValue)
(2)視窗0 ==> 按鈕“視窗2”==>事件==>左鍵按下
width=按鈕1.Width
height=按鈕1.Height
leftValue=按鈕1.Left+width
topValue=按鈕1.Top+height
Var.ButtonNumber=2
Call HMICmd.OpenDialogWindow("視窗1",1,true,leftValue,topValue)
(3)視窗0 ==> 按鈕“視窗3”==>事件==>左鍵按下
width=按鈕2.Width height=按鈕2.Height leftValue=按鈕2.Left+width topValue=按鈕2.Top+height Var.ButtonNumber=3 Call HMICmd.OpenDialogWindow("視窗1",1,true,leftValue,topValue)
(4)視窗1 ==> 按鈕“確定”==>事件==>左鍵按下
If Var.ButtonNumber=1 then MsgBox "執行按鈕1需要的動作" HMICmd.CloseDialogWindow() End If If Var.ButtonNumber=2 then MsgBox "執行按鈕2需要的動作" HMICmd.CloseDialogWindow() End If If Var.ButtonNumber=3 then MsgBox "執行按鈕3需要的動作" HMICmd.CloseDialogWindow() End If
(5)視窗1 ==> 按鈕“關閉”==>事件==>左鍵按下
HMICmd.CloseDialogWindow()
第五步:點選“執行”按鈕,檢視執行效果