16,552
社区成员
发帖
与我相关
我的任务
分享
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim IMgS() As Image ‘= {Image.FromFile("D:\test\1-4-2054\000.JPG"), Image.FromFile("D:\test\1-4-2054\001.JPG")}
Dim SAVEPATH As String
For i As Integer = 0 To 4
IMgS(i) =Image.FromFile("D:\test\1-4-2054\000.JPG") ’此处报错!!!未将对象引用设置到对象的实例,但是这个不知道该怎么“new”了
Next
SAVEPATH = "D:\test\1-4-2054\test.tiff"
SaveImages(images, SAVEPATH)
End Sub
Private Sub SaveImages(ByVal imgs() As Image, ByVal filepath As String)
'get the codec
Dim info As ImageCodecInfo = Nothing
For Each ici As ImageCodecInfo In ImageCodecInfo.GetImageEncoders()
If ici.MimeType = "image/tiff" Then
info = ici
End If
Next
'set the encoding
Dim enc As Imaging.Encoder = Imaging.Encoder.SaveFlag
Dim ep As New EncoderParameters(1)
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.MultiFrame))
Dim pages As Bitmap = Nothing
Dim frame As Integer = 0
For Each img As Image In imgs
If frame = 0 Then
pages = DirectCast(img, Bitmap)
'save first
pages.Save(filepath, info, ep)
Else
'save next
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.FrameDimensionPage))
Dim bm As Bitmap = DirectCast(img, Bitmap)
pages.SaveAdd(bm, ep)
End If
If frame = imgs.Length - 1 Then
'close.
ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.Flush))
pages.SaveAdd(ep)
End If
frame += 1
Next
End Sub