ေလ.လာရန္ project

SetActivityTitle("Hello World")
SetActivityColor(0,cGray)

AddMenuItem("အေျကာင္းအရာ")
AddMenuItem("ေရးသားသူ")
AddMenuItem("ဆက္သြယ္ရန္")

AddPanel("pnl1", 0,0,100%x,100%y,"")
BitmapInit(DirAssets,"img1.jpg")
setBackGroundImage("pnl1")


AddButton("btn1",60%x,77%y,30%x,7%y,"pnl1")
SetText("btn1","Next")
setTextSize("btn1",15)
SetColor("btn1",100,Cyellow)

AddPanel("pnl2", 0,0,100%x,100%y,"")
BitmapInit(DirAssets,"img2.jpg")
setBackGroundImage("pnl2")

AddButton("btn2",60%x,77%y,30%x,7%y,"pnl2")
SetText("btn2","Next")
setTextSize("btn2",15)
SetColor("btn2",100,Cyellow)

AddPanel("pnl3", 0,0,100%x,100%y,"")
BitmapInit(DirAssets,"img3.jpg")
setBackGroundImage("pnl3")

AddButton("btn3",60%x,77%y,30%x,7%y,"pnl3")
SetText("btn3","Next")
setTextSize("btn3",15)
SetColor("btn3",100,Cyellow)

AddPanel("pnl4", 0,0,100%x,100%y,"")
BitmapInit(DirAssets,"img4.jpg")
setBackGroundImage("pnl4")

AddButton("btn4",60%x,77%y,30%x,7%y,"pnl4")
SetText("btn4","Next")
setTextSize("btn4",15)
SetColor("btn4",100,Cyellow)

AddPanel("pnl5", 0,0,100%x,100%y,"")
BitmapInit(DirAssets,"img5.jpg")
setBackGroundImage("pnl5")

AddButton("btn5",60%x,77%y,30%x,7%y,"pnl5")
SetText("btn5","Next")
setTextSize("btn5",15)
SetColor("btn5",100,Cyellow)

SetVisible("pnl5",false)

current="pnl1"

MsgBox("မဂၤလာပါ","သံပန္းဒီဇိုင္းပံုေလးမ်ား")
SetMsgBoxColor(100,Cyellow)
Main

Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub

Sub Panel_Click(Who)
End Sub

Sub Button_Click(Who)
End Sub
Sub Button_LongClick(Who)
End Sub

Sub Menu_Click(Which)
End Sub


Sub Activity_Resume
End Sub

Sub Label_Click(Who)
End Sub

Sub Panel_Click(Who)
End Sub

Sub Button_Click(Who)
Select who
Case "btn1"
SetVisible("pnl1",false)
SetVisible("pnl2",true)
SetVisible("pnl3",false)
SetVisible("pnl4",false)
SetVisible("pnl5",false)
current="pnl2"
Case "btn2"
SetVisible("pnl1",false)
SetVisible("pnl2",false)
SetVisible("pnl3",true)
SetVisible("pnl4",false)
SetVisible("pnl5",false)
current="pnl3"
Case "btn3"
SetVisible("pnl1",false)
SetVisible("pnl2",false)
SetVisible("pnl3",false)
SetVisible("pnl4",true)
SetVisible("pnl5",false)
current="pnl4"
Case "btn4"
SetVisible("pnl1",false)
SetVisible("pnl2",false)
SetVisible("pnl3",false)
SetVisible("pnl4",false)
SetVisible("pnl5",true)
current="pnl5"
Case "btn5"
SetVisible("pnl1",true)
SetVisible("pnl2",false)
SetVisible("pnl3",false)
SetVisible("pnl4",false)
SetVisible("pnl5",false)
current="pnl1"
End Select
End Sub
Sub Button_LongClick(Who)
End Sub
Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub


Sub Activity_KeyPress(key)
If key=4 Then

b=MessageBox("Do You Want To Exit?","EXIT!","Ok","Cancel","")
If b=-1 Then

ActivityFinish

End If
End If
End Sub

Sub Menu_Click(Which)
Select Which
Case"အေျကာင္းအရာ"
MsgBox("ဤေဆာ့ဝဲျဖစ္ေျမာက္ရန္ကူညီေပးေသာဆရာမ်ားအားအစဥ္ေလးစားလ်က္","ေက်းဇူးတင္ပါတယ္")
case"ေရးသားသူ"
MsgBox("@ အိုင္တီ yan naing @","ေရးသားသူ")
case"ဆက္သြယ္ရန္"
MsgBox("ph -09458071726","# ေရႊႀကယ္စင္ #")
End Select
End Sub

Sub Timer1_Tick
End Sub