Sub LoadbitmapSample2(Dir As String,Filename As String,MaxWidth As Int,MaxHeight As Int,AutoRotate As Boolean) As Bitmap
Dim bm As Bitmap
bm=LoadBitmapSample(Dir,Filename,100%x,100%y)
If AutoRotate Then
Dim bm2 As BitmapExtended
Dim exifdata1 As ExifData
Try
exifdata1.Initialize(Dir,Filename)
'http://sylvana.net/jpegcrop/exif_orientation.html
' 1) transform="";;
' 2) transform="-flip horizontal";;
' 3) transform="-rotate 180";;
' 4) transform="-flip vertical";;
' 5) transform="-transpose";;
' 6) transform="-rotate 90";;
' 7) transform="-transverse";;
' 8) transform="-rotate 270";;
Select Case exifdata1.getAttribute(exifdata1.TAG_ORIENTATION)
Case exifdata1.ORIENTATION_ROTATE_180 '3
bm=bm2.rotateBitmap(bm,180)
Case exifdata1.ORIENTATION_ROTATE_90 '6
bm=bm2.rotateBitmap(bm,90)
Case exifdata1.ORIENTATION_ROTATE_270 '8
bm=bm2.rotateBitmap(bm,270)
End Select
Catch
End Try
End If
Return bm
End Sub
Sub img_newcat_Click
img_previewbig.Bitmap = LoadbitmapSample2(File.DirRootExternal, "momentcatpicture.jpg", 1920, 1080, True)
img_previewbig.SetVisibleAnimated(2000, True)
End Sub