SetGeoKey Example for Visual Basic
Public RasterIO As LEADRasterIO
Private Sub TestSetGeoKey()
Dim rasVar As New LEADRasterVariant
' This example sets the GTModelTypeGeoKey key to the Project Coordination System value
RasterIO.GeoKeyType = TAG_SHORT
RasterIO.GeoKeyCount = 1
rasVar.Type = VALUE_SHORT
rasVar.ShortValue = 1
RasterIO.GeoKeyData = rasVar
RasterIO.SetGeoKey 1024
' Every GeoTIFF file I save from now on will contain this GeoKey
End Sub