Hallo zusammen
Ich steh auf dem Schlauch! Ich habe in einer WPF Anwendung einen Slider, mit welchem ich Bilddateien zoomen kann. Nun möchte ich, dass der Slider beim Laden eines Bildes mit einer Bildbreite < 700 auf die aktuelle Position (zB 350) wechselt. Ansonsten soll der Slyder auf 700 stehen. Ich habs so versucht, aber der Slider reagiert nichtIch danke schon jetzt für eure Rückmeldungen!!
Private Sub lbImage_SelectionChanged(
sender As Object,
e As SelectionChangedEventArgs)
Dim liste As ListBox = sender
If liste IsNot Nothing Then
Dim index As Integer = liste.SelectedIndex
If index >= 0 Then
Dim auswahl As String = liste.SelectedItem.ToString()
If auswahl.Length <> 0 Then
Dim selLoc As New Uri(auswahl)
Dim bildId As New BitmapImage(selLoc)
Dim aktFileInfo As New IO.FileInfo(auswahl)
aktImage.Source = bildId
tblDateiname.Text = aktFileInfo.Name
tblFormat.Text =
bildId.PixelWidth.ToString() &
" x " &
bildId.PixelHeight.ToString()
tblDatei.Text =
aktFileInfo.Length.ToString() & " Byte"
Dim Slider As New Slider
If bildId.PixelWidth.ToString < 700 Then
Slider.Value = bildId.PixelWidth.ToString
Else
Slider.Value = 700
End If
End If
End If
End If
End Sub
Edit by hal2000: Toteditiert --> Beitrag wiederhergestellt
Ich steh auf dem Schlauch! Ich habe in einer WPF Anwendung einen Slider, mit welchem ich Bilddateien zoomen kann. Nun möchte ich, dass der Slider beim Laden eines Bildes mit einer Bildbreite < 700 auf die aktuelle Position (zB 350) wechselt. Ansonsten soll der Slyder auf 700 stehen. Ich habs so versucht, aber der Slider reagiert nichtIch danke schon jetzt für eure Rückmeldungen!!
Private Sub lbImage_SelectionChanged(
sender As Object,
e As SelectionChangedEventArgs)
Dim liste As ListBox = sender
If liste IsNot Nothing Then
Dim index As Integer = liste.SelectedIndex
If index >= 0 Then
Dim auswahl As String = liste.SelectedItem.ToString()
If auswahl.Length <> 0 Then
Dim selLoc As New Uri(auswahl)
Dim bildId As New BitmapImage(selLoc)
Dim aktFileInfo As New IO.FileInfo(auswahl)
aktImage.Source = bildId
tblDateiname.Text = aktFileInfo.Name
tblFormat.Text =
bildId.PixelWidth.ToString() &
" x " &
bildId.PixelHeight.ToString()
tblDatei.Text =
aktFileInfo.Length.ToString() & " Byte"
Dim Slider As New Slider
If bildId.PixelWidth.ToString < 700 Then
Slider.Value = bildId.PixelWidth.ToString
Else
Slider.Value = 700
End If
End If
End If
End If
End Sub
Edit by hal2000: Toteditiert --> Beitrag wiederhergestellt
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „hal2000“ ()