问题描述
Dim fd As OpenFileDialog = New OpenFileDialog()
Dim strFileName As String
fd.Title = "Please select an image"
fd.InitialDirectory = "C:\Users\"
fd.Filter = "PNG Images (*.png*)|*.png*|JPG Images (*.jpg*)|*.jpg*|JPEG Images (*.jpeg*)|*.jpeg*|All files (*.*)|*.*"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK Then
strFileName = fd.FileName
Dim ImageTest As Image
ImageTest = fd.FileName
PictureBox1.Image = ImageTest
End If
除了ImageTest
不起作用。它给了我错误:
无法将字符串转换为图像。
如何让用户选择带有OpenFileDialog
的个人图像?
解决方法
错误已清除。您正在获取图像文件名(字符串),并假装它为已加载其数据字节的图像。这是不正确的,编译器无法继续进行下去。
正确的方法是
If fd.ShowDialog() = DialogResult.OK Then
strFileName = fd.FileName
Dim ImageTest As Image = Image.FromFile(strFileName)
PictureBox1.Image = ImageTest
End If
,
用法如下:
list.detect_nonsilent