Question

我有一段代码在选中/取消选中复选框时触发。该复选框将用于缩小数据绑定的列表框。数据中的一个项目是指向png图像的链接，该图像在应用程序首次初始化时正确显示。在下面的代码中，我得到一个“初始化'System.Windows.Media.Imaging.BitmapImage'每次都抛出异常”异常。

    Private Sub chkShowCurrent_Click(sender As Object, e As RoutedEventArgs) Handles chkShowCurrent.Click
    Dim o As ObjectDataProvider
    Dim xDoc = XDocument.Load(sFileName)

    If chkShowCurrent.IsChecked = False Then
        'MsgBox("false")
    End If

    If chkShowCurrent.IsChecked = True Then
        'MsgBox("true")
        Dim OnlyCurrent = From job In xDoc.Root.Descendants("Job")
                          Where job.Element("Status").Value = "a-current"
                          Order By job.Element("Status").Value, job.Element("Rush").Value, Convert.ToDateTime(job.Element("DateOut").Value)
                          Select job

        lstJobs.ItemsSource = OnlyCurrent

    End If
    lstJobs.Items.Refresh()
    o = FindResource("jobs")
    o.Refresh()
End Sub

我原本以为lstjobs.items.refresh是问题所在，但是在到达End Sub之后才会弹出异常。我已经尝试在复选框代码中向代码添加断点并逐步执行代码，但答案仍然无法解决。谁能告诉我我的错误在哪里？

****编辑以获取更多信息****

Public Property Artwork() As String
Get
    Return _Artwork
End Get
Set(ByVal value As String)
    If value = String.Empty Then value = "images\Untitled.png"

    If My.Computer.FileSystem.FileExists("\\ARTSTATION\Users\Public\XML Job Board\" & value) Then
        value = "\\ARTSTATION\Users\Public\XML Job Board\" & value
    Else
        value = "\\ARTSTATION\Users\Public\XML Job Board\images\Untitled.png"
    End If
    _Artwork = value
End Set

xml元素格式为 image \ GUID.png ，因此需要在运行时添加完整路径。

我最初将此作为问题进行了探讨，并将XML更改为包含完整路径并注释了在属性中添加完整路径的需要，但这产生了相同的结果。

更新数据绑定列表框

0 个答案: