VB.NET中怎么读取图像

VB.NET中怎么读取图像，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。

VB.NET读取图像代码示例：

1. Public Function GetImageFromFile()
   Function GetImageFromFile(ByVal 
   pstrFileName As String) As Boolean  

2. Dim strExt As String = "" '扩展文件名  

3. Dim blnFlag As Boolean = False 

4. If ((pstrFileName.IndexOf(":") 
   < 0) AndAlso (Not PictureHolder.
   mstrPath Is Nothing)) Then  

5. pstrFileName = (PictureHolder.
   mstrPath & pstrFileName)  

6. End If  

7. If Not File.Exists(pstrFileName) Then  

8. Return False  

9. End If 

VB.NET读取图像取得扩展名

strExt = Path.GetExtension
(pstrFileName).ToLower  
If strExt.Equals(".cur") Then  
Try  
Dim cursor As New Windows.Forms.
Cursor(pstrFileName)  
Dim targetRect As New Rectangle
(New Point(0, 0), cursor.Size)  
Me.mobjImage = New Bitmap(cursor
.Size.Width, cursor.Size.Height)  
Dim g As GraphicsGraphics = 
Graphics.FromImage(Me.mobjImage)  
cursor.Draw(g, targetRect)  
cursor.Dispose()  
Return True  
Catch obj1 As Exception  
Return False  
End Try  
End If  
Try  
Using stream As IO.FileStream = New IO.
FileStream(pstrFileName, FileMode.
Open, FileAccess.Read)  
Dim stream2 As New IO.MemoryStream  
Do While True  
Dim count As Integer = stream.Read
(PictureHolder.mbtyImage, 0, 
PictureHolder.mbtyImage.Length)  
If (count = 0) Then  
Exit Do  
End If  
stream2.Write(PictureHolder.
mbtyImage, 0, count)  
Loop  
stream2.Flush()  
stream2.Position = 0 

若为 ico 类型，则使用 Drawing.Icon 打开图像

If strExt.Equals(".ico") Then  
Me.mobjImage = New Drawing.
Icon(stream2).ToBitmap  
Else  
Me.mobjImage = Drawing.Image.
FromStream(stream2)  
End If  
blnFlag = True 
End Using  
Catch obj2 As Exception  
blnFlag = False 
End Try  
Return blnFlag  
End Function 

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注亿速云行业资讯频道，感谢您对亿速云的支持。