German Drawable statt Bitmap in MsgBox2

[so27]

Hallo zusammen,

ich möchte gerne Folgendes realisieren:

Msgbox2(pm.GetApplicationLabel("owsianowski.b4a.myscreen"),"Name","Okay","","", pm.GetApplicationIcon("owsianowski.b4a.myscreen"))

Das Bitmap der Msgbox2 soll also das Icon der Application sein.

Beim Compilieren erscheint dann folgender Fehler:

Wie kann ich nun das App-Icon als Msgbox2 Icon einlesen?

 

[klaus]

Das funktioniert:

Dim bdw As BitmapDrawable
bdw = pm.GetApplicationIcon("owsianowski.b4a.myscreen")
Msgbox2(pm.GetApplicationLabel("owsianowski.b4a.myscreen"),"Name","Okay","","", bdw.Bitmap)

 

[so27]

Klaus, vielen Dank. Jetzt funktioniert es so, wie ich es gerne haben möchte.