Private Sub ShowInstalledApps
Dim pm As PackageManager 'phone library
For Each pck As String In pm.GetInstalledPackages
Dim name As String = pm.GetApplicationLabel(pck)
Dim a As Object =pm.GetApplicationIcon(pck)
If a Is BitmapDrawable Then
Dim b As BitmapDrawable=a
lstview.AddTwoLinesAndBitmap(pck,name,b.Bitmap)
Else
Try
Dim c As Bitmap = NativeMe.RunMethod("drawableToBitmap",Array As Object( a))
lstview.AddTwoLinesAndBitmap(pck,name,c)
Catch
Log(LastException)
End Try
End If
Next
End Sub
#IF JAVA
import android.content.Context;
import android.graphics.Bitmap;
import android.graphics.Canvas;
import android.graphics.Paint;
import android.graphics.drawable.BitmapDrawable;
import android.graphics.drawable.Drawable;
public static Bitmap drawableToBitmap (Drawable drawable) {
Bitmap bitmap = null;
if (drawable instanceof BitmapDrawable) {
BitmapDrawable bitmapDrawable = (BitmapDrawable) drawable;
if(bitmapDrawable.getBitmap() != null) {
return bitmapDrawable.getBitmap();
}
}
if(drawable.getIntrinsicWidth() <= 0 || drawable.getIntrinsicHeight() <= 0) {
bitmap = Bitmap.createBitmap(1, 1, Bitmap.Config.ARGB_8888); // Single color bitmap will be created of 1x1 pixel
} else {
bitmap = Bitmap.createBitmap(drawable.getIntrinsicWidth(), drawable.getIntrinsicHeight(), Bitmap.Config.ARGB_8888);
}
Canvas canvas = new Canvas(bitmap);
drawable.setBounds(0, 0, canvas.getWidth(), canvas.getHeight());
drawable.draw(canvas);
return bitmap;
}
#End If