如何将数据保存到文本文件并检索

Question

我正在使用VB.NET。 我能够将图片从文件夹加载到flowlayoutpanel中。 然后将单击的图片加载到单独的图片框中，并在标签中显示图片的文件路径。

现在，我希望能够为flowlayoutpanel中的每个图像添加等级和描述，并将其保存到已从中加载图片的文件夹中的文本文件中。 该应用应该能够在下次启动时或更改所选图像时加载评分和描述。 我该如何完成？

Answer 1

您可能应该看看访问图片的元数据。 这样，所需的信息就会随照片一起传送。 这包含在PropertyItems类中 ，该类是Image类的属性。

这是指向有关向jpg添加评论的已回答问题的链接。 希望这可以帮助。

这是VB.net中未经测试的代码转换。 您可能必须添加一个引用或2并导入几个命名空间，但是从语法上讲，这是正确的，据我所知。

Public Function SetImageComment(input As Image, comment As String) As Image
    Using memStream As New IO.MemoryStream()
        input.Save(memStream, Imaging.ImageFormat.Jpeg)
        memStream.Position = 0
        Dim decoder As New JpegBitmapDecoder(memStream, BitmapCreateOptions.PreservePixelFormat, BitmapCacheOption.OnLoad)
        Dim metadata As BitmapMetadata
        If decoder.Metadata Is Nothing Then
            metadata = New BitmapMetadata("jpg")
        Else
            metadata = decoder.Metadata
        End If
        metadata.Comment = comment
        Dim bitmapFrame = decoder.Frames(0)
        Dim encoder As BitmapEncoder = New JpegBitmapEncoder()
        encoder.Frames.Add(bitmapFrame.Create(bitmapFrame, bitmapFrame.Thumbnail, metadata, bitmapFrame.ColorContexts))
        Dim imageStream As New IO.MemoryStream
        encoder.Save(imageStream)
        imageStream.Position = 0
        input.Dispose()
        input = Nothing
        Return Image.FromStream(imageStream)
    End Using
End Function