Bei einem Button während der Laufzeit den background (image) ändern. Backgroundimage ändern

Question

Hallo, schreibe meine erste App. Würde gerne bei  betätigen eines Buttons, dessen Hintergrundbild ändern.

        If zyklusnummer = 1 Then
            PictureBox1.Source = New BitmapImage(New Uri("ms-appx:///Assets/17-1.png", UriKind.Absolute))

            B_W1.Background = New BitmapImage(New Uri("application:///Assets/17-3.png", UriKind.Absolute))
            B_W2.Background = New BitmapImage(New Uri("application:///Assets/17-3.png", UriKind.Absolute))
            B_W3.Background= New BitmapImage(New Uri("application:///Assets/17-4.png", UriKind.Absolute))
            B_W4.Background = New BitmapImage(New Uri("application:///Assets/17-5.png", UriKind.Absolute))
        End If

Die Änderung bei PictureBox1 funktioniert.

Muss ich noch etwas importieren?

Habe schon einiges Ausprobiert und hier nichts gefunden!

Ich brauche nur eine Möglichkeit auf ein Image zu  klicken und danach sollte sich das image nach Vorgabe ändern.

Answer 1

Hallo,
du hast im XAML bestimmt ein Image-Control, oder? Auf die Bezeichnung PictureBox solltest du verzichten, da man es sonst sehr leicht mit Windows Forms verwechseln könnte.

Eine Möglichkeit wäre, das Bild als Hintergrund festzulegen:

        Dim imgBrush As New ImageBrush
        imgBrush.ImageSource = New BitmapImage(New Uri("application:///Assets/17-3.png", UriKind.Absolute))
        B_W1.Background = imgBrush

Eine andere besteht darin, direkt den Inhalt des Buttons zuzuweisen:

B_W1.Content = New Image() With {.Source = New BitmapImage(New Uri("application:///Assets/17-3.png", UriKind.Absolute))}

---

Tom Lambert - C# MVP
Wozu Antworten markieren und für Beiträge abstimmen? Klicke hier.
Nützliche Links: .NET Quellcode | C# ↔ VB.NET Konverter | Account bestätigen (Verify Your Account)
Ich: Webseite | Code Beispiele | Facebook | Twitter | Snippets

Answer 2

Vielen Dank, die erste Version hat funktioniert! Hier aber nochmal der komplette Code!

 Dim imgBrush1 As New ImageBrush
            imgBrush1.ImageSource = New BitmapImage(New Uri("ms-appx:///Assets/17-2.png", UriKind.Absolute))
            B_W1.Background = imgBrush1

            Dim imgBrush2 As New ImageBrush
            imgBrush2.ImageSource = New BitmapImage(New Uri("ms-appx:///Assets/17-3.png", UriKind.Absolute))
            B_W2.Background = imgBrush2

            Dim imgBrush3 As New ImageBrush
            imgBrush3.ImageSource = New BitmapImage(New Uri("ms-appx:///Assets/17-4.png", UriKind.Absolute))
            B_W3.Background = imgBrush3

            Dim imgBrush4 As New ImageBrush
            imgBrush4.ImageSource = New BitmapImage(New Uri("ms-appx:///Assets/17-5.png", UriKind.Absolute))
            B_W4.Background = imgBrush4

Die zweite Variante hat leider nicht auf anhieb funktioniert, habe deshalb die erste Variante eingesetzt.