是否可以在 vb.net 应用程序中查看多页 .Tif 文件？答案

【问题标题】：Is it possible to view multi page .Tif files in vb.net application?是否可以在 vb.net 应用程序中查看多页 .Tif 文件？
【发布时间】：2017-03-08 13:47:58
【问题描述】：

我希望能够在我的 vb.net 应用程序中查看 .Tif 文件 - 是否有可用于执行此操作的组件。我一直在搞乱 Tiff Viewer，但由于某种原因，文件超出了任何范围——你几乎看不出它说的是什么。我尝试调整查看器的宽度，但效果不大，它仍然是水平拉伸的。

【问题讨论】：

您是否尝试过将他的尺寸属性设置为调整为全屏、缩放等？
@JuanJoséDiazYoris 是什么组件？我尝试使用 tiff 查看器，但没有太多在线帮助我解决它
我以为您在图片框编码-解码中显示它。请看这个：msdn.microsoft.com/es-es/library/… 和 msdn.microsoft.com/es-es/library/…

标签： vb.net

【解决方案1】：

基于https://stackoverflow.com/a/401579/741136，这会将多帧 tif 加载到单帧集合中：

Function LoadTif(filename As String) As List(Of Image)
  Dim lstTif As New List(Of Image)
  Dim bmp As Bitmap = DirectCast(Image.FromFile(filename), Bitmap)
  For i As Integer = 0 To bmp.GetFrameCount(Imaging.FrameDimension.Page) - 1
    bmp.SelectActiveFrame(Imaging.FrameDimension.Page, i)
    Dim ms As New System.IO.MemoryStream
    bmp.Save(ms, Imaging.ImageFormat.Tiff)
    lstTif.Add(Image.FromStream(ms))
    ms.Dispose()
  Next i
  Return lstTif
End Function

【讨论】：