从文本文件中读取图像路径并将其添加到vb.net中的缩略图控件

从文本文件中读取图像路径并将其添加到vb.net中的缩略图控件,vb.net,image,Vb.net,Image,我有一个和一个缩略图控件,我试图保存和检索图像及其路径 我需要在复选框中显示他们的图像路径,我可以这样做,但我无法获得图像 我想知道如何从保存的文本文件中读取图像并将其显示在缩略图控件中 代码如下: Private Sub LoadProject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadProject.Click Using o

我有一个和一个缩略图控件,我试图保存和检索图像及其路径

我需要在复选框中显示他们的图像路径,我可以这样做,但我无法获得图像

我想知道如何从保存的文本文件中读取图像并将其显示在缩略图控件中

代码如下:

Private Sub LoadProject_Click(ByVal sender As System.Object, 
                     ByVal e As System.EventArgs) Handles LoadProject.Click

    Using ofdlg As New Windows.Forms.OpenFileDialog

        ofdlg.DefaultExt = "amk"
        ofdlg.Filter = "AquaMark Project|*.amk"
        ofdlg.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        If ofdlg.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim r As New IO.StreamReader("C:\Test\test.txt")
            While (r.Peek() > -1)
                CheckedListBox1.Items.Add((r.ReadLine), CheckState.Checked)
                Dim Pname As String
                For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
                    Pname = CheckedListBox1.SelectedIndex.ToString


                Next
            End While
            r.Close()


            Dim SaveData As New gCanvasData
            Using objStreamReader As New StreamReader(ofdlg.FileName)
                Dim x As New XmlSerializer(GetType(gCanvasData))
                SaveData = CType(x.Deserialize(objStreamReader), gCanvasData)
                objStreamReader.Close()
            End Using

            With SaveData
                frmDisplay.GCanvas1.ZoomFactor = 1
                frmDisplay.GCanvas1.ImageXYReset()
                frmDisplay.GCanvas1.Image = .Image
                frmDisplay.GCanvas1.gAnnotates = .gAnnotates
                frmDisplay.GCanvas1.RebuildAll()
                frmDisplay.GCanvas1.AssembleBitmap()
            End With
        End If
    End Using
End Sub

我已经修改了代码并将代码放在这里,以便它可以帮助其他人:

   Dim sr1 As New IO.StreamReader("C:\Test\test.txt")
            While (sr1.Peek() > -1)
                CheckedListBox1.Items.Add((sr1.ReadLine), CheckState.Checked)
                CheckedListBox1.SelectedIndex = 0
            End While
            sr1.Close()

            Dim sr2 As New IO.StreamReader("C:\Test\test.txt")
            While (sr2.Peek() > -1)
                Thumbcontrol1.AddThumbnail(sr2.ReadLine)
            End While
            sr2.Close()