从ListView项目填充PictureBox

-1

大家好，我需要一点帮助。我想填充我的PictureBoxpicpreview从ListView，但它说NotSupportedException was unhandled The given path's format is not supported。该文本框似乎工作正常，但我被困在检索我的图像文件。顺便说一下，图像是.gif从ListView项目填充PictureBox

Dim sql As String 
    Dim ds As New DataSet 
    Dim da As New OleDb.OleDbDataAdapter 
    Dim cmd As New OleDb.OleDbCommand 
    Dim dr As OleDb.OleDbDataReader 

Dim inc As Integer 
Dim listselect As String 
Private Sub get_data() 
    Try 
     lvroutine.Items.Clear() 
     connection() 
     sql = "SELECT * From tblprogram ORDER BY MUSCLEGROUP ASC" 
     cmd = New OleDbCommand(sql, con) 
     dr = cmd.ExecuteReader 

     While dr.Read 
      Dim lv As ListViewItem = lvroutine.Items.Add(dr("MUSCLEGROUP")) 

      With lv.SubItems 

       .Add(dr("EXERCISENAME")) 
       .Add(dr("EQUIPMENT")) 
       .Add(dr("PREVIEW")) 

      End With 
     End While 
     con.Close() 


    Catch ex As Exception 
     Exit Try 
    End Try 
End Sub 
Private Sub view_record() 

    connection() 

    listselect = lvroutine.SelectedItems.Item(0).Text 

    sql = "SELECT * From tblprogram WHERE MUSCLEGROUP ='" & listselect & "'" 
    cmd = New OleDbCommand(sql, con) 
    dr = cmd.ExecuteReader 

    If dr.Read Then 
     txtmuscle.Text = dr("MUSCLEGROUP") 
     editprogram.txtexname.Text = dr("EXERCISENAME") 
     editprogram.txteq.Text = dr("EQUIPMENT") 
     picpreview = dr("PREVIEW") 


    End If 
End Sub 

Private Sub clientprogram_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Call get_data() 
    Call connection() 

    sql = "Select * From tblprogram ORDER BY MUSCLEGROUP ASC" 
    da = New OleDb.OleDbDataAdapter(sql, con) 

    da.Fill(ds, "tblprogram") 

    con.Close() 
End Sub 

Private Sub lvroutine_Click(sender As Object, e As EventArgs) Handles lvroutine.Click 
    txtmuscle.Text = lvroutine.SelectedItems(0).SubItems(0).Text 
    txtexercise.Text = lvroutine.SelectedItems(0).SubItems(1).Text 
    txtequipment.Text = lvroutine.SelectedItems(0).SubItems(2).Text 
    'picpreview.Image = Image.FromFile(lvroutine.SelectedItems(0).SubItems(3).ToString)<--- This is where the error is. 

End Sub 




End Class

来源

2014-02-27 user3360145

首先，确保您的路径是正确的路径。有时候Visual Studio会抛出这个问题。在执行代码行（出现错误的行）之前，只需设置一个断点或打开一个MsgBox并查看它。

其次，你可以尝试加载在一个位图：

picpreview.Image = Bitmap.FromFile(lvroutine.SelectedItems(0).SubItems(3).ToString)

而且，我不是100％肯定，但不是一个.ToString梅索德？我从C＃世界来了，但我认为你有.ToString后加括号：

picpreview.Image = Bitmap.FromFile(lvroutine.SelectedItems(0).SubItems(3).ToString**()**)

给它一个尝试，让我听到什么工作，或者，如果是这样，也没有工作。

来源

2014-02-27 12:12:53 Jannik

从ListView项目填充PictureBox

回答

相关问题