Code: Select all
For intPageNumber As Integer = 0 To m_oDentalXRayInMemoryTiffImage.Pages.Count - 1
Try
avImage.Images.Add(m_oDentalXRayInMemoryTiffImage.Pages(intPageNumber).GetImage)
tvImages.Images.Add(m_oDentalXRayInMemoryTiffImage.Pages(intPageNumber).GetImage)
Catch ex As Exception
MessageBox.Show("GetImage() --> " & ex.ToString)
End Try
Dim strThumbnailCaption As String = GetThumbnailCaption(intPageNumber)
tvImages.Images(intPageNumber).Tag = strThumbnailCaption
avImage.Images(intPageNumber).Tag = strThumbnailCaption
Next