1

行ごとに画像とテキストを含める必要がある ListView があります。テキストのバインディングは正常に機能しますが、画像は表示されません。

私の XAML マークアップ:

<ListView Name="lvUpgrade">
    <ListView.View>
        <GridView>
            <GridViewColumn Width="20px">
                <GridViewColumn.CellTemplate>
                    <DataTemplate>
                        <Image Source="{Binding Path=Icon}" />
                    </DataTemplate>
                </GridViewColumn.CellTemplate>
            </GridViewColumn>
            <GridViewColumn Width="75px" DisplayMemberBinding="{Binding Path=Time, StringFormat={}{0:HH:mm:ss}}" />
            <GridViewColumn Width="300px" Header="Nachricht" DisplayMemberBinding="{Binding Path=Message}" />
        </GridView>
    </ListView.View>
</ListView>

私のコードビハインド:

Public Class Upgrade

    Public Sub AddMessage(ByVal message As Message)
        Me.lvUpgrade.Items.Add(message)
    End Sub

    Public Class Message

        Public Enum MessageType

            Normal
            Information
            Warning
            [Error]
        End Enum

        Public Sub New(ByVal type As MessageType, ByVal message As String)
            _Type = type
            _Message = message
        End Sub

        Private _Type As MessageType = MessageType.Normal
        Public ReadOnly Property Type As MessageType
            Get
                Return _Type
            End Get
        End Property

        Private _Message As String = String.Empty
        Public ReadOnly Property Message As String
            Get
                Return _Message
            End Get
        End Property

        Private _Time As DateTime = Now
        Public ReadOnly Property Time As DateTime
            Get
                Return _Time
            End Get
        End Property

        Public ReadOnly Property Icon As System.Drawing.Image
            Get
                Select Case Me.Type
                    Case MessageType.Information
                        Return My.Resources.Information16
                    Case MessageType.Warning
                        Return My.Resources.Alert16
                    Case MessageType.Error
                        Return My.Resources.Error16
                    Case Else
                End Select

                Return Nothing
            End Get
        End Property
    End Class
End Class

画像をバインドするには、ローカル リソースから画像を返すプロパティを使用します。テキストに対して行うのと同じ方法で、画像をコントロールにバインドします。これは間違っているのでしょうか、それともなぜうまくいかないのでしょうか?

返信ありがとうございます。

4

1 に答える 1

3

を に変換するImage必要がありBitmapImageます:

このために、別のモジュールで次の拡張機能を定義できます。これにより、コード内にあるすべての画像で関数を使用する機会が提供されます。

Module Extensions

  <Extension()>
  Public Function ToBitmapImage(ByVal lBitmap As Bitmap) As BitmapImage
    Dim lMemoryStream As New MemoryStream()
    Dim lBitmapImage As New BitmapImage()

    lBitmap.Save(lMemoryStream, ImageFormat.Png)
    lBitmapImage.BeginInit()
    lBitmapImage.StreamSource = New MemoryStream(lMemoryStream.ToArray())
    lBitmapImage.EndInit()
    Return lBitmapImage
  End Function

End Module

その後、次のようにプロパティを編集する必要があります。

Public ReadOnly Property Icon As BitmapImage
  Get
    Select Case Me.Type
      Case MessageType.Information
        Return My.Resources.Information16.ToBitmapImage
      Case MessageType.Warning
        Return My.Resources.Alert16.ToBitmapImage
      Case MessageType.Error
        Return My.Resources.Error16.ToBitmapImage
      Case Else
    End Select

    Return Nothing
  End Get
End Property
于 2013-04-15T09:41:08.107 に答える