1. 程式人生 > >自定義彈出視窗

自定義彈出視窗

第一步:建立視窗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()

第五步:點選“執行”按鈕,檢視執行效果