Fixed some VB.NET sample code

BitMiracle · Nov 21, 2016 · 978cee3 · 978cee3
1 parent 8a694f7
commit 978cee3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/LibTiff/Help/Samples/Using LibTiff.Net/Add custom TIFF tags to an existing TIFF image.aml b/LibTiff/Help/Samples/Using LibTiff.Net/Add custom TIFF tags to an existing TIFF image.aml
@@ -89,11 +89,11 @@ Namespace BitMiracle.LibTiff.Samples
         Private Shared m_parentExtender As Tiff.TiffExtendProc
 
         Public Shared Sub TagExtender(tif As Tiff)
-            Dim tiffFieldInfo As TiffFieldInfo() = {New TiffFieldInfo(TIFFTAG_GDAL_METADATA, _
+            Dim info As TiffFieldInfo() = {New TiffFieldInfo(TIFFTAG_GDAL_METADATA, _
               TiffFieldInfo.Variable, TiffFieldInfo.Variable, TiffType.ASCII, FieldBit.[Custom], _
               True, False, &quot;GDALMetadata&quot;)}
 
-            tif.MergeFieldInfo(tiffFieldInfo, tiffFieldInfo.Length)
+            tif.MergeFieldInfo(info, info.Length)
 
             If m_parentExtender IsNot Nothing Then
                 m_parentExtender.Invoke(tif)

diff --git a/LibTiff/Help/Samples/Using LibTiff.Net/Read and write custom TIFF tags.aml b/LibTiff/Help/Samples/Using LibTiff.Net/Read and write custom TIFF tags.aml
@@ -183,7 +183,7 @@ Namespace BitMiracle.LibTiff.Samples
         Private Shared m_parentExtender As Tiff.TiffExtendProc
 
         Public Shared Sub TagExtender(ByVal tif As Tiff)
-            Dim tiffFieldInfo As TiffFieldInfo() = {New TiffFieldInfo(TIFFTAG_ASCIITAG, TiffFieldInfo.Variable, _
+            Dim info As TiffFieldInfo() = {New TiffFieldInfo(TIFFTAG_ASCIITAG, TiffFieldInfo.Variable, _
              TiffFieldInfo.Variable, TiffType.ASCII, FieldBit.[Custom], True, False, &quot;MyTag&quot;), _
              New TiffFieldInfo(TIFFTAG_SHORTTAG, 2, 2, TiffType.[SHORT], FieldBit.[Custom], False, _
              True, &quot;ShortTag&quot;), New TiffFieldInfo(TIFFTAG_LONGTAG, 2, 2, TiffType.[LONG], FieldBit.[Custom], False, _
@@ -194,7 +194,7 @@ Namespace BitMiracle.LibTiff.Samples
              New TiffFieldInfo(TIFFTAG_BYTETAG, 2, 2, TiffType.[BYTE], FieldBit.[Custom], False, _
              True, &quot;ByteTag&quot;)}
 
-            tif.MergeFieldInfo(tiffFieldInfo, tiffFieldInfo.Length)
+            tif.MergeFieldInfo(info, info.Length)
 
             If m_parentExtender IsNot Nothing Then
                 m_parentExtender.Invoke(tif)