List View

List View eg1
View ထဲက ListView ကို ေျပာပါမယ္။ ListView က
မိမိရဲ႕ String ေတကို List တခုအေနနဲ႕ ဖတ္ႏိုင္ ဖြင့္ႏိုင္တဲ႕ View တခုျဖစ္ပီးေတာ့ သူက app ေတာ္ေတာ္မ်ားမ်ားမွာ အသံုးအမ်ားဆံုး View ပါ။
ListView မွာ item ေတကို ကြကိုယ္ Menual ထည့္လို႕ရသလို႕
Textဖိုင္ေတကေန ဖတ္ပီးေတာ့ပဲျဖစ္ျဖစ္။တျခား LIST ေတကေန ဖတ္ပီးေတာ့ပဲ ျဖစ္ျဖစ္ထည့္သြင္းလို႕ရပါတဟ္။
အခု Example မွာ ListView ကို ထည့္သြင္းပီး ထို ListView ကေန Sdcard ကို ဖတ္ပါမယ္။
ListView ေပၚက Item ေတကို Click တဲ႕အခါ
ထို Item တခုခ်င္းဆီရဲ႕ Name/Value နဲ႕ position ေတကို String အျဖစ္နဲ႕ ဖတ္ႏိုင္ပီးေတာ့ တျခားFunctionေတမွာ ထည့္ခိုင္းႏိုင္ပါတယ္။ ဒီေတာ့ FirstExample အေနနဲ႕
ListView တခုထည့္ပီး ထို ListViewကေန Sdcard ထဲက item ေတကိုဖတ္ပါမယ္။ item ေတကို Click တဲ႕အခါ
Msgbox နဲ႕ Item ရဲ႕ Name ကို ျပပါမယ္။
------------

.
Designer မွာ AddView>> ListView တခုထည့္ပီး Name ကို lv လို႕ေပးၿပီး ၾကည့္ေကာင္းေအာင္ေနရာခ်ပါ။အဆင္မေျပရင္ ထည့္ယံုပဲထည့္ပီး
Designer Script မွာ
lv.left = 5%x
lv.Width = 90%x
lv.Top = 5%y
lv.Heigh = 90%y
အာ့လိုေရးထည့္ပီး save ပါ 1 လို႕အမည္ေပးလိုက္ပါ။
ပီးရင္
Dim lv As ListView နဲ႕ Generate လုပ္ပါမယ္။
Click ဖို႕အတြက္
Item Click(----) နဲ႕ပါ Generate ထပ္လုပ္ပါမယ္။
----------
Activity_Create မွာ စပါမယ္။
အခု listView ထည့္ပီးပါပီ ListView ထဲမွာ ဖတ္ဖို႕
Listတခုဖန္တီးရပါမယ္။
sdcard ကိုဖတ္မွာဆိုေတာ့
Dim ls As List
ls.Initialize
ls = File.ListFiles("sdcard")
ဒလိုေရးပါမယ္။
ဒါဆို sdcard အတြက္ List ရပါပီ။
ဒီတိုင္းထည့္သံုးလို႕မရေသးဘူး limit တခု လုပ္ေပးရပါမယ္။
ဘယ္ကေန ဘယ္အထိ ဖတ္မယ္ဆိုတာ limit တခုလုပ္ေပးၿပီးမွ
သံုးလို႕ရပါတယ္ ဒီေတာ့
For a = 0 to ls.Size - 1
lv.AddSingle(ls.Get(a))
Next
ဒလို ဆက္ေရးလိုက္ပါ။
---
Activity_Create(------)
Activity.LoadLayout("1")
Dim ls As List
ls.Initialize
ls = File.ListFiles("sdcard")
For a = 0 to ls.Size - 1
lv.AddSingle(ls.Get(a))
Next
End Sub
.
အခုလိုရွိေနပါၿပီ။အခုအတိုင္း Run လိုက္ရင္ FileManager တခုလိုမ်ိဳး Sdcard ထဲက item ေတကို list အျဖစ္နဲ႕ျမင္ရမွာပါ။
ကိုက item ေတထဲက ႀကိဳက္တဲ႕ item ေတကို တျခားေနရာမွာ ခိုင္းဖို႕အတြက္ Click လုပ္ပီးသံုးခ်င္ေသးတယ္ဆိုရင္ Item ေတရဲ႕ name ေတလိုပါတယ္။ဒီေတာ့။ ေစာေစာက ItemClick(----)နဲ႔ generate လုပ္ထားေတာ့
Sub lv_ItemClick(-----)
.
End Sub ဆိုတဲ့ Event တခု ရွိေနမွာပါ။
အာ့ထဲမွာ
Msgbox(Value , "")
အာ့လိုေရးလိုက္ပါ။ေပါင္းေတာ့
Sub lv_ItemClick(----)
Msgbox(Value, "")
End Sub
ဒါပါပဲ Run'လိုက္ပါ။item ေတကို Click တဲ႕အခါ Clickလိုက္တဲ႕ item ရဲ႕ Name ကို Message က ျပေပးမွာပါ။
example Zip - http://pc.cd/kQz7
အဆင္မေျပရင္ လာေမးႏိုင္ပါတယ္
https://m.facebook.com/groups/316136215260862