EnumFileTags Example for Visual Basic
Public WithEvents RasterIO As LEADRasterIO
Private Sub RasterIO_EnumTags(ByVal uTag As Long, ByVal uType As Long, ByVal uCount As Long)
Dim str As String
str = "Tag = " + uTag + Chr(13) + _
"Type = " + uType + Chr(13) + _
"Count = " + uCount
MsgBox str
RasterIO.StopFireEnumTags = FALSE
End Sub
Private Sub EnumTags()
' Enumerate the tags
RasterIO.EnumFileTags "file.tif", 0, 0
End Sub