VB.NET可以幫助我們輕松的實(shí)現(xiàn)許多功能。下面我們可以通過一段代碼范例來對VB.NET讀取圖像這一操作方法進(jìn)行詳細(xì)的解讀，從而對VB.NET的靈活簡便性有一個(gè)深入的了解，幫助我們提高編程效率。#t#

VB.NET讀取圖像代碼示例：

1. Public Function GetImageFromFile()
   Function GetImageFromFile(ByVal 
   pstrFileName As String) As Boolean  
2. Dim strExt As String = "" '擴(kuò)展文件名  
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讀取圖像取得擴(kuò)展名

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讀取圖像的相關(guān)介紹就為大家介紹到這里。