全局代码
Public Function ThumbnailCallback() As Boolean
Return False
End Function
Public Function GetReducedImage(file As String, Width As Integer, Height As Integer) As Image
Try
Dim ReducedImage As Image
Dim ResourceImage As image = Image.FromFile(file )
Dim callb As Image.GetThumbnailImageAbort = New Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)
ReducedImage = ResourceImage.GetThumbnailImage(Width, Height, callb, IntPtr.Zero)
Return ReducedImage
Catch e As Exception
msgbox(e.Message)
Return Nothing
End Try
End Function
命令窗口
Dim img As image = GetReducedImage("D:\Pictures\123.jpg",50,50)
Output.Show(img is nothing)
加好友 
发短信
Post By：2020/11/23 14:19:00 [显示全部帖子]
