VB.NET读取图像办法详解

VB.NET可以帮助我们轻松的实现许多功能。下面我们可以通过一段代码范例来对VB.NET读取图像这一操作方法进行详细的解读，从而对VB.NET的灵活简便性有一个深入的了解，帮助我们提高编程效率。#t#

创新互联专注于平鲁网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供平鲁营销型网站建设，平鲁网站制作、平鲁网页设计、平鲁网站官网定制、微信小程序开发服务，打造平鲁网络公司原创品牌,更为您提供平鲁网站排名全网营销落地服务。

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

VB.NET读取图像的相关介绍就为大家介绍到这里。

网页名称：VB.NET读取图像办法详解
网页路径：http://www.gawzjz.com/qtweb/news29/197779.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容