从文本文件中读取图像路径并将其添加到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()