problem in using magic collection
Posted: 2016-04-02T11:06:57-07:00
I have a sequance of photos (0.png, 1.png , 2.png....)
I try to convert them to an animated gif using vb.net. I found this code but nothing happens and the form close.. This is code
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim photos As String() = Directory.GetFiles(Application.StartupPath, "*.png")
Using collection As New MagickImageCollection()
Dim iarray As Integer = 0
For Each name As String In photos
collection.Add(name)
collection(iarray).AnimationDelay = 0
iarray += 1
Next
Dim settings As New QuantizeSettings()
settings.Colors = 256
collection.Quantize(settings)
collection.Optimize()
collection.Write("imagemagick.gif")
End Using
End Sub
I try to convert them to an animated gif using vb.net. I found this code but nothing happens and the form close.. This is code
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim photos As String() = Directory.GetFiles(Application.StartupPath, "*.png")
Using collection As New MagickImageCollection()
Dim iarray As Integer = 0
For Each name As String In photos
collection.Add(name)
collection(iarray).AnimationDelay = 0
iarray += 1
Next
Dim settings As New QuantizeSettings()
settings.Colors = 256
collection.Quantize(settings)
collection.Optimize()
collection.Write("imagemagick.gif")
End Using
End Sub