Lesson 2

BMP IDE

Add Views to Activity - Add Buttons ---
---------------------------------------------------------

AddButton(Name, Left, Top, Width, Height, "")

View ေတကို Activity ထဲမွာ ထည့္သြင္းတဲ႕အခါ View ေတရဲ႕ Layout ကို အေပၚမွာ ျပေပးထားတျ႕အတိုင္း သက္မွတ္ရပါတယ္။ View တိုင္း ဒီပံုစံပါပဲ။
left = Screen ကေန View ရဲ႕ ဘယ္ဘက္ႏွခမ္း အကြာအေ၀းး
Top = Screen ကေန View ရဲ႕ အေပၚႏွခမ္း အကြာအေ၀းး
Width = view ရဲ႕ အက်ယ္ နဲ႕
Height = View ရဲ႕ အျမင့္ပါ။
ဒီေတာ့ Button3 ခုကို ေအာက္က အတိုင္းထည့္လိုက္ပါမယ္။

AddButton("btn1", 10%x, 10%y, 80%x, 10%y, "")
AddButton("btn2", 10%x, 20%y, 80%x, 10%y, "")
AddButton("btn3", 10%x, 30%y, 80%x, 10%y, "")
btn1,btn2,btn3 ေတကေတာ့ Button Name ေတပါ။ Top ေတကို 10%y ဆီ တိုးတိုးပီး ခြါသြားတာကို ၾကည့္ပါ။
အခု တိုင္း Run ၾကည့္ရင္ Button 3 ခုကို Screen ေပၚမွာ ျမင္ႏိုင္ပါၿပီ။
ေနာက္ Button ေတအတြက္ စာေလးေတ သက္မွတ္ေပးပါမယ္။

SetText("btn1" , "Click Me 1")
SetText("btn2" , "Click Me 2")
SetText("btn3" , "Click Me 3")
SetText က ေရွ႕မွာေတာ့ View ရဲ႕ Name နဲ႕ ေနာက္မွာက မိမိေရးခ်င္းတဲ႕ စာ ဆိုတာ ကို ၾကည့္ပါ့။
အခုအတိုင္း Run ရင္ Button3 ခုမွာ စာေလးေတပါ ပါလာပါၿပီ၊
ေနာက္ Click အတြက္ပဲ က်န္ပါၿပီ။
Event Panel ထဲကို Slide လုပ္ပီးသြားလိုက္ပါ။
------------------------------------------
Sub Button_Click(Who)
End Sub
-------------------- အခုလို ေ၇းထားတဲ႕ event တခုကို ေတြ႕ရပါမယ္။ သူကေတာ့ Button ေတကို Click လုပ္ရင္
လာပီး သက္ေရာကိတဲ႕ ေနရာပါ။(Who) ကေတာ့ မိမိ Click လိုက္တဲ႕ Button Name ကို ျပေပးပါလိမ့္မယ္။
အာ့ေတာ့ အာ့ Event ထဲမွာ အခု လိုေရးလိုက္ပါ။

Sub Button_Click(Who)
Select Who
Case "btn1"
MsgBox("Button 1" , "You Clicked")
Case "btn2"
MsgBox("Button 2" , "You Clicked")
Case "btn3"
MsgBox("Button 3" , "You Clicked")
End Select
End Sub
အခုတိုင္းေရးပီး Run လိုက္ရင္ Button ေတကို Click တဲ႕ အခါ ေရၚထားတဲ႕ အတိုင္း Msgbox သံုးခု button အလိုက္ျပေပးမွာပါ။
button ေတကို Click ရင္ ဒီေနရာကို သက္ရာပါတယ္။ Click လိုက္တဲ႕ Button ရဲ႕ Name ဟာ (ၽWho) ဆီကို လာျပပါတယ္။
ဒါေၾကာင့္ Select Who နဲ႕ စစ္လိုက္ပီး btn1 ဆို ဘာျပ btn2 ဆို ဘာျပ ။
ဒီလို တခုခ်င္းခိုင္းလိုက္တာပါပဲ။
Select နဲ႕ စပီးရင္ ေနာက္မွာ End Select နဲ႕ ျပန္ပိတ္ရပါတယ္။
try ၾကည့္လိုက္ပါ။

Example Project - http://pc.cd/REBrtalK

-----------------------------------------------------------------------------------
Basic4Android Myanmar Programmers
www.facebook.com/groups/316136215260862/