problem in using magic collection
Posted: 2016-04-02T21:57:53-07:00
I use this code to gather my png photos in one animated gif. but nothing happens except form is closing>> what is wrong?
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
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