Sample Code

The following sample code shows the usage of some SCBCroImage features, such as LoadFile, DetectSkew, Rotate, and SaveFile. The results are displayed with SCBCroViewer.

Dim img As SCBCroImage
' Button DetectSkew
Private Sub btnDeskew_Click()
  Dim angle As Double
  angle = img.DetectSkew
  img.Rotate angle
End Sub
' Button LoadFile
Private Sub btnLoadImage_Click()
  Set img = New SCBCroImage
  img.LoadFile "d:\images\aeg\00000003.tif"
  Set SCBCroViewer1.Item = img
End Sub
' Button Rotate image
Private Sub btnRotateRight_Click()
  img.Rotate 90
End Sub
' Button SaveFile
Private Sub btnSave_Click()
  img.SaveFile "d:\images\aeg\TestSave.tif", CROcTIF_G4
End Sub