Stretching bitmaps but not jpegs

AChir

Registered User.
Local time
Today, 04:51
Joined
Oct 4, 2001
Messages
51
I have been given a set of photos to use in a report. The 900 or so files of type *.bmp are all distorted and so I'd like to set the Size Mode under Format to stretch. However, all the jpeg files (about 200 of them)are fine, so I'd like to set the Size Mode to Zoom.

I'd like something like this:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If Right([PhotoPath],3) = "bmp" then
Me!MyImage.SizeMode= Stretch
Else
Me!MyImage.SizeMode= Zoom
End if
End Sub

This is clearly useless but I don't know what to do. Presumably I shouldn't even have my field name in a right function?

Yet again, thanks for any ideas
 
Have done this another way, now:
two images one over the other, one stretched and one on zoom, with the following in the Format event of the Detail

If Right(PhotoAddress, 3) = "bmp" Then
Me!bmpImage.Visible = True
Me!jpgImage.Visible = False
Else
Me!bmpImage.Visible = False
Me!jpgImage.Visible = True
End If

However, I wonder if having two images instead of one will slow things down? I'd still value any ideas on the first question.

Thanks
 

Users who are viewing this thread

Back
Top Bottom