button တစ္ခ်က္ႏႈိပ္ နဲ႔ျကာျကာေလးဖိႏႈိပ္မွကိုအလုပ္လုပ္ေစခ်င္တဲ႔အရာတစ္ခုကိုသြားေအာင္ေရးျကရေအာင္။

button lesson
***************
က်ြန္ေတာ္တို႔ဒီတစ္ခါ button တစ္ခ်က္ႏႈိပ္ နဲ႔ျကာျကာေလးဖိႏႈိပ္မွကိုအလုပ္လုပ္ေစခ်င္တဲ႔အရာတစ္ခုကိုသြားေအာင္ေရးျကရေအာင္။

eg. buttonတစ္ခုတည္ေဆာက္လိုက္ရင္eventမွာ.
Sub Button_Click(Who)
end sub

Sub Button_LongClick(Who)
End Sub

ဆိုပီးပါလာမယ္button-clickကေတာ့ႏႈိပ္လိုက္ရႈံနဲ႔တျပိဳင္နက္အလုပ္လုပ္ပါတယ္။
button-long clickကေတာ့ျကာျကာေလးဖိႏႈိပ္ထားမွအလုပ္လုပ္ပါတယ္။

example project
main
******
AddButton("btn1",0,0,100%x,25%y,"pnl2")
SetText("btn1","ခလုပ္စမ္းသပ္ခ်က္")

event
******

Sub Button_Click(Who)
select who
case"btn1"
MsgBox("ခနပဲႏႈိပ္လိုက္ျခင္း")

end select
End Sub

Sub Button_LongClick(Who)
select who
case"btn1"
MsgBox("ျကာျကာဖိထားျခင္း")

end select

End Sub