< 返回技术文档列表

VB.NET中怎么读取图像

发布时间:2021-09-01 02:26:20⊙投诉举报

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读取图像取得扩展名

  1. strExt = Path.GetExtension
    (pstrFileName).ToLower  

  2. If strExt.Equals(".cur") Then  

  3. Try  

  4. Dim cursor As New Windows.Forms.
    Cursor(pstrFileName)  

  5. Dim targetRect As New Rectangle
    (New Point(0, 0), cursor.Size)  

  6. Me.mobjImage = New Bitmap(cursor
    .Size.Width, cursor.Size.Height)  

  7. Dim g As GraphicsGraphics = 
    Graphics.FromImage(Me.mobjImage)  

  8. cursor.Draw(g, targetRect)  

  9. cursor.Dispose()  

  10. Return True  

  11. Catch obj1 As Exception  

  12. Return False  

  13. End Try  

  14. End If  

  15. Try  

  16. Using stream As IO.FileStream = New IO.
    FileStream(pstrFileName, FileMode.
    Open, FileAccess.Read)  

  17. Dim stream2 As New IO.MemoryStream  

  18. Do While True  

  19. Dim count As Integer = stream.Read
    (PictureHolder.mbtyImage, 0, 
    PictureHolder.mbtyImage.Length)  

  20. If (count = 0) Then  

  21. Exit Do  

  22. End If  

  23. stream2.Write(PictureHolder.
    mbtyImage, 0, count)  

  24. Loop  

  25. stream2.Flush()  

  26. stream2.Position = 0 

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

  1. If strExt.Equals(".ico") Then  

  2. Me.mobjImage = New Drawing.
    Icon(stream2).ToBitmap  

  3. Else  

  4. Me.mobjImage = Drawing.Image.
    FromStream(stream2)  

  5. End If  

  6. blnFlag = True 

  7. End Using  

  8. Catch obj2 As Exception  

  9. blnFlag = False 

  10. End Try  

  11. Return blnFlag  

  12. End Function 

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


/template/Home/Zkeys/PC/Static