Salam Khedmate Hame.
Khob Donbale In Boodam Ke Chejoori Liste Barname Haye Dar Hale Ejra Ro Begiram !
Lazemesh Dashtam Vase Topici Ke Gharare Ba'd Az In Bedam !
Codesho Peyda Kardam , Albate Ye Dll Ham Hast Ke Kar Bahash Ke Yad Gereftam Mizaram Hatman Dll + Amoozeshesh Ro.
Ye Listview Az Design Add Konid.
Badesh:
Liste Barname Haye Dar Hale Ejra Ro Ba Iconeshun Tooye Listview Mibinid.
Movafagh Bashid
Khob Donbale In Boodam Ke Chejoori Liste Barname Haye Dar Hale Ejra Ro Begiram !
Lazemesh Dashtam Vase Topici Ke Gharare Ba'd Az In Bedam !
Codesho Peyda Kardam , Albate Ye Dll Ham Hast Ke Kar Bahash Ke Yad Gereftam Mizaram Hatman Dll + Amoozeshesh Ro.
Ye Listview Az Design Add Konid.
Badesh:
- Code:
Sub Globals
Dim ListView1 As ListView
'''''''''''
Dim pm As PackageManager
Dim Icons As BitmapDrawable
Dim Appname As String
Dim Obj1, Obj2, Obj3 As Reflector
Dim size, i, flags As Int
Dim msg, name As String
End Sub
- Code:
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Form1")
Obj1.Target = Obj1.GetContext
Obj1.Target = Obj1.RunMethod("getPackageManager") ' PackageManager
Obj1.Target = Obj1.RunMethod2("getInstalledPackages", 0, "java.lang.int") ' List<PackageInfo>
size = Obj1.RunMethod("size")
For i = 0 To size -1
Obj2.Target = Obj1.RunMethod2("get", i, "java.lang.int") ' PackageInfo
name = Obj2.GetField("packageName")
Obj3.Target = Obj2.GetField("applicationInfo") ' ApplicationInfo
Icons = pm.GetApplicationIcon(name)
Appname = pm.GetApplicationLabel (name)
ListView1.AddTwoLinesAndBitmap ( Appname,name,Icons.Bitmap )
Next
End Sub
Liste Barname Haye Dar Hale Ejra Ro Ba Iconeshun Tooye Listview Mibinid.
Movafagh Bashid