下面的GetBitmap函数输入网络图像文件的Uri,返回指定的图像,如:GetBitmap("https://i-blog.csdnimg.cn/blog_migrate/62ee91db938fb3a50675192cea4b17ff.gif ")返回百度的图标。
Shared Function GetBitmap(ByVal Uri As String) As Bitmap
Try
Dim oWebReq As WebRequest = System.Net.WebRequest.Create(Uri)
Dim oWebRep As WebResponse = oWebReq.GetResponse
Dim btMap As Bitmap = Nothing
Try
btMap = New Bitmap(oWebRep.GetResponseStream)
Catch ex As Exception
End Try
Return btMap
Catch ex As Exception
Return Nothing
End Try
End Function