Возвращает значение строковое значение указанного EXIF тэга.

Применяется к:

IExifInfo

Синтаксис:

Visual Basic:

Function GetTagStringValue(nTag As Long) As String

nTag - числовой код EXIF тэга.

Пример:

Dim Tools As ZuluTools
Dim Info As IExifInfo

'Создаем объект ZuluTools
Set Tools = New ZuluTools

'Получаем IExifInfo
Set Info = Tools.GetExifInfo( "d:\images\IMG_0156.JPG")

'Выводим изготовителя оборудования, производившего съемку
If  Info.IsTagExists(271)  = True Then

   MsgBox "Make: " +  Info.GetTagStringValue(271)

End If