如何將數據保存到文本文件並檢索

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