Edit Text အသံုးျပဳနည္းပါ

Edit Text အသံုးျပဳနည္းပါ

က်ေတာ္ေအာက္မွာ ႐ွင္းျပထားတဲ့
Button ကို case နဲ႔ ခိုင္းၿပီး
Edit Text မွာ ကို သက္မွတ္ေပးထားတဲ့
စကားလံုး မွန္လား မွားလားကို ခြဲျခားျပမယ္

SetHint ကေတာ့ EditText မွာအသံုးျပဳဖို႔အတြက္ပါ

a=getText("edt1") ဆိုတာ edt1 ကစာသားကို ရယူလိုက္တာပါ
a လို႔ေရးရတာကေတာ့ သခ်ာၤလို x y သေဘာတရားလိုေပါ့ မသိကိန္ထားလိုက္တာ

if a="linnhtet" Then
ဆိုတာ a မွာ ေရးထားတဲ့ စာသားက
linnhtet ျဖစ္မယ္ဆိုရင္ MsMsgBox ကေန ဂုဏ္ယူပါတယ္
မွန္ကန္ပါတယ္ ဆိုတဲ့ စာသားေပၚလာမယ္

ၿပီးေတာ့ Else
သူက ဆန္က်င္ဘက္ သေဘာေဆာင္တယ္
အေပၚမွာ ခိုင္းတာတာမဟုပ္ရင္
ဘာလုပ္မယ္
သူက်ေတာ့ သတိေပးခ်က္နဲ႔ျပမယ္
MsMsgBox နဲ႔ပဲျပမယ္

If နဲ႔စၿပီးရင္ End If နဲ႔ ဆံုးဖို႔မေမ့ပါနဲ႔
If တခုသံုးရင္ End If တခုနဲ႔အဆံုးသက္ေပးမယ္
ဒီေလာက္ဆို စမ္းၾကည့္လို႔ရပါၿပီ.................

###############
Main Code Selection
###############

AddEditText("edt1",20%x,25%y,60%x,8%y,"")
SetColor("edt1",0,cpink)
Sethint("edt1","User Name")
Setgravity("edt1",17)

AddEditText("edt2",20%x,35%y,60%x,8%y,"")
SetColor("edt2",0,cpink)
Sethint("edt2","Enter the Password")
Setgravity("edt2",17)
Setpasswordmode("edt2",true)

AddButton("btn1",30%x,50%y,40%x,10%y,"")
SetText("btn1","Login")
###############
Event Code Selection
###############
Sub Button_Click(Who)
Select Who
case"btn1"
b=getText("edt2")
if b="linnhtet" Then
msMsgBox("Password မွန္ကန္ပါသည္ !","ဂုဏ္ယူပါတယ္ !")
Else
msMsgBox("Password မွားယြင္းေနသည္ !","သတိေပးခ်က္ !")
End if

a=getText("edt1")
If a="linnhtet@gmail.com" Then
msMsgBox("User Name မွန္ကန္ပါသည္ !","ဂုဏ္ယူပါတယ္ !")
Else
msMsgBox("User Name မွားယြင္းေနသည္ !","သတိေပးခ်က္ !")
End if

End Select
End Sub