German 3 Buttons zur Laufzeit ein Bild zuweisen

Sub Globals
    'These global variables will be redeclared each time the activity is created.
  
    Private btn1 As B4XView
    Private btn2 As B4XView
    Private btn3 As B4XView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    ClearButtons
End Sub

Sub btn_Click
    ClearButtons
    Private b As Button
    b=Sender
    Private bW As BitmapDrawable
    bW.Initialize(LoadBitmap(File.DirAssets, "b1.jpg"))
    b.Background = bW
End Sub


Sub ClearButtons
    Private bL As BitmapDrawable
    bL.Initialize(LoadBitmap(File.DirAssets, "b2.jpg"))
    'btn1.GetBitmap =bL Funtioniert nicht
    btn1.Color =Colors.LightGray
    btn2.Color =Colors.LightGray
    btn3.Color =Colors.LightGray
End Sub

Sub Globals
    Private btn1 As B4XView
    Private btn2 As B4XView
    Private btn3 As B4XView
    Private bmp1, bmp2 As Bitmap
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
   
    'Bitmaps nur einmal laden
    bmp1 = LoadBitmapResize(File.DirAssets, "b1.jpg", btn1.Width, btn1.Height, True)
    bmp2 = LoadBitmapResize(File.DirAssets, "b2.jpg", btn1.Width, btn1.Height, True)

    ClearButtons
End Sub

Sub btn_Click
    ClearButtons
    Private btn As B4XView
    btn = Sender
    btn.SetBitmap(bmp1)
End Sub

Sub ClearButtons
    btn1.SetBitmap(bmp2)
    btn2.SetBitmap(bmp2)
    btn3.SetBitmap(bmp2)
End Sub