在图片框1中创建错误图片

Question

我的系统中有这段代码，用于通过格式化的 blob 从数据库中检索图像。但是有些数据库记录没有图片（[BLOB - 0 B]）。请列出代码，以便我在图片不可用时将错误图片放入图片框1。

Dim bytes() as byte
bytes = (objdr("picture"))

Dim memStream as New MemoryStream(bytes)
PictureBox1.image = Drawing.Image.FromStream(memStream)

我使用的是 Microsoft Visual Basic 2008

Answer 1

我将尝试使用以下代码： DirectCast 似乎是从数据库中读取 Blob 字段的正确方法。
然后检查您是否有要展示的内容或尝试从您的资源中获取图片

 ' Get the image from the database.
 bytes = DirectCast(objdr("picture"), Byte()) 
 If (Not bytes Is Nothing) Then
     Dim memStream as New MemoryStream(bytes)  
     PictureBox1.image = Drawing.Image.FromStream(memStream)       
 Else
     PictureBox1.image = My.Resources.<Name_of_res_file>.<Name_of_image_resource>
 End If