Learn the fundamentals of the popular programming language JavaScript so that you can explore the realm of web development.
Do more with
Remarks
You must keep the stream open for the lifetime of the Image.
Public Property ImageSmall1 As Bitmap
Get
If mImageSmall1 Is Nothing Then
LoadSmall1()
End If
Return mImageSmall1
End Get
Set(value As Bitmap)
mImageSmall1 = value
End Set
End Property
Private Function LoadSmall1() As Boolean
If ImageData Is Nothing Then Return False
ImageSmall1 = GetNewImage(ImageData, 1)
Return True
End Function
Private Function GetNewImage(ByVal originalImage As Bitmap, Optional ByVal SizeSetting As Long = 0) As Bitmap
Dim newImage As Bitmap
If ImageNeedsResizing(originalImage.Width, originalImage.Height, SizeSetting) Then
newImage = ResizeImage(originalImage, SizeSetting)
Else
newImage = New Bitmap(originalImage, originalImage.Width, originalImage.Height)
End If
originalImage.Dispose()
Return newImage
End Function
Premium Content
You need an Expert Office subscription to comment.Start Free Trial