hpmsg boxအသံုးျပဳနည္းေလးပါခ်ဲ႔ထြင္စဥ္းစားေရးေပါ့

hpmsg boxအသံုးျပဳနည္းေလးပါခ်ဲ႔ထြင္စဥ္းစားေရးေပါ့

main
#####
#####
HP = 0

AddButton("b1",10%x,10%y,80%x,10%y,"")
AddButton("b2",10%x,25%y,80%x,10%y,"")

event
#####
#####

Sub Button_Click(Who)
CheckHPM(Who)

Select Who
Case "b1"
HPMsgBox("မဂၤလာပါ","ေနေကာင္းၾကလား ?", "ေကာင္းပါတယ္", "မေကာင္းဘူး", 1 )
Case "b2"
HPMsgBox("Welcome","How are you All ?", "Yeah Fine", "Noop Bad", 2)
End Select
End Sub

Sub HPM_Result(ID,Response)
Select ID
Case 1
If Response = 1 Then
ShowToast("ေကာင္းပါတယ္",true)

End If
Case 2
If Response = 1 Then
ShowToast("Yeah Fine",true)
End If
End Select

End Sub

Sub HPMsgBox(T,TT,Yes,No,ID)
AddButton("HPB",-1*x,-1*y,102*x,102*y,"")
AddListView("HPL",5*x,30*y,90*x,36*y,"")
SetColor("HPL",25,cWhite)
HP = ID
AddLabel("HPlbl",6*x,30*y + 1*x,88*x,8*y,"")
SetColor("HPlbl",100, cWhite)
SetText("HPlbl" , T )
SetGravity("HPlbl",17)
SetTextSize("HPlbl",18)
SetTextColor("HPlbl", cBlack)
AddLabel("HPlbl2",10*x,39*y+1*x,84*x,19*y,"")
SetColor("HPlbl2",100,cWhite)
SetText("HPlbl2",TT)
SetTextColor("HPlbl2",cBlack)
SetTextSize("HPlbl2",15)
AddButton("HPyes",5*x,58*y+1*x,43*x,8*y,"")
SetColor("HPyes",100,cWhite)
SetText("HPyes",Yes)
SetTextSize("HPyes",15)
SetTextColor("HPyes",cGray)
AddButton("HPno",52*x,58*y+1*x,43*x,8*y,"")
SetColor("HPno",100,cWhite)
SetText("HPno",No)
SetTextSize("HPno",15)
SetTextColor("HPno",cGray)
End Sub

Sub CheckHPM(Who)
RemoveView("HPB")
RemoveView("HPL")
RemoveView("HPlbl")
RemoveView("HPlbl2")
RemoveView("HPyes")
RemoveView("HPno")
IF Who = "HPyes" Then
HPM_Result(HP,1)
End IF
IF Who = "HPno" Then
HPM_Result(HP,0)
End IF
End Sub

Sub ListView_ItemClick(who, pos, value)
End Sub