3000 transparent pictures

hvis du downloader ImageMagic, som er en commandline Tool og kan afvikles som en batch eller inlejres i en ShellExecute i et VB program, får du hurtigt gjort 3000 billeder tranparente.

Alle 3000 billeder skal vises på formen, og ikke bare konverteres :). De bruges inde i programmet.

Hvis det udelukkende er gif filer kan du lige vende en byte i filen på det rigtige sted.
Se http://www.onicos.com/staff/iz/formats/gif.html
under "Graphic Control Extension Block" og angive den transparante farve i "Transparent Color Index"

Det skulle være til at finde ud af.

Og hvordan ville koden se ud? ;).

Tja godt spørgsmål :-) men jeg har strikket lidt sammen.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fs1 As FileStream
        fs1 = New FileStream("c:\MyGif2.gif", FileMode.Open)
        fs1.Position = 784 'nul tælles med
        fs1.WriteByte(1)
        fs1.Close()
    End Sub

Ovenstående virker hvis jeg laver en gif fil i MS Paint og sætter byte (Position 785) til 1. Men lur mig om ikke du får problemer med forskellige formater af giffer.
Så det jeg gjorde, var at lave en rutine som byte for byte fandt forskellen i 2 ens giffer, hvor den ene var transparent og i mit tilfælde var det byte 785. Den transparente farve jeg brugte var sort, så du vil sikkert være nød til at lure ændringerne af dine egne giffer.

Her er koden til at samenligne to giffer:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim fs1 As FileStream
        Dim fs2 As FileStream
        Dim MyByte As Integer
        Dim MyByte2 As Integer

        fs1 = New FileStream("c:\MyGif2.gif", FileMode.Open)
        fs2 = New FileStream("c:\MyGif_Transparent2.gif", FileMode.Open)
        Do Until fs1.Position = fs1.Length
            MyByte = fs1.ReadByte()
            MyByte2 = fs2.ReadByte()
            If MyByte <> MyByte2 Then
                TextBox1.Text = TextBox1.Text + " " + CStr(fs1.Position) + " " + CStr(MyByte) + " " + CStr(MyByte2)
            End If
        Loop
        fs1.Close()
        fs2.Close()
    End Sub

Har fundet en anden løsning :) Men giver dig 50% af point for et svar..! Tak for opmærksomheden og tiden du lagde i det.