VB.NET中怎么读取图像，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。
VB.NET读取图像代码示例：
Public Function GetImageFromFile()
Function GetImageFromFile(ByVal
pstrFileName As String) As Boolean
Dim strExt As String = "" '扩展文件名
Dim blnFlag As Boolean = False
If ((pstrFileName.IndexOf(":")
< 0) AndAlso (Not PictureHolder.
mstrPath Is Nothing)) Then
pstrFileName = (PictureHolder.
mstrPath & pstrFileName)
End If
If Not File.Exists(pstrFileName) Then
Return False
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 看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注亿速云行业资讯频道，感谢您对亿速云的支持。
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
