German Packages in einem Listview anzeigen

[mcmanu]

Hi
Hab versucht meine Installierten apps in ein listview anzeigen zu lassen
bekomme immer den fehler --> IndexOutOfBoundsException
Invalid index 255, size is 255

Mein code -->

Dim pm As PackageManager
Dim packages As List
packages = pm.GetInstalledPackages
For i = 0 To packages.Size -1
Log(packages.Get(i))
Next
Dim bild As BitmapDrawable
bild = pm.GetApplicationIcon(packages.Get(i))
If packages.IsInitialized Then
listapps.AddTwoLinesAndBitmap2(pm.GetApplicationLabel(packages.Get(i)), packages.Get(i), bild.Bitmap, packages.Get(i))

End If

kann mir jemand einen tipp geben?

 

[Kiffi]

Wenn die For-Next-Schleife verlassen wird, ist 'i' gleich
packages.Size (also um einen Zähler zu hoch).

Grüße ... Kiffi

 

[mcmanu]

Thx

Danke für deinen Tipp
Hab das next jetzt einfach am ende gesetzt und die funktion nochmal mit try catch end try versehen und es klappt super

Danke ^^