InputBox copy text project

InputBox copy text project
=====================
InputBoxမွာေရးသားသမ်ွ စာေတြကုဒ္ေတြမွန္သမ်ွကိုgetInputေလးသံုးျပီး ShowToast , label , msgbox အစရွိသျဖင့္သြားျပေအာင္ေရးျခင္းပါ။ေရးလိုက္တဲ႕စာေတြကိုလဲ copy buttonေလးႏႈိပ္ပီးcopyကူးႏိုင္ပါတယ္။

main
====
Setactivitytitle("BBT LESSONS")
SetactivityColor(0,cyellow)
a=InputBox("Test","BBT","Ok","Cancel","")
Select a

Case -1
ShowToast(getInput,False)

Case -3
ShowToast("Cancel",False)

End Select

AddLabel("lb",0,10%y,100*x,20*y,"pm")
SetText("lb",getInput)
SetGravity("lb",17)
SetTextSize("lb",25)
SetTextColor("lb",cred)

AddButton("c",8%x,55%y,85%x,15%y,"")
SetText("c","TextCopy")
SetColor("c",0,cred)
SetTextColor("c",cwhite)

event
=====
Sub Button_Click(Who)
TextCopy(getInput)
ShowToast("ေကာ္ပီကူးပီးပါပီ",False)
End Sub

InputBox coding :)