Animierte Gif

  • ich weiss das es schon genug davon gibt.
    Meine frage ist es wie lasse ich die animierten gifs wieder verschwinden schaut einfach mal in das beispiel ihr rein was ich meine

    Spoiler anzeigen
    [autoit]


    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Forum https://autoit.de/index.php?page…t=animierte+gif
    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <StaticConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <_AniGif.au3>

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 400, 453, 193, 125)
    $pic = GUICtrlCreatePic(@ScriptDir & "\wonderland07.gif",0, 0, 400, 250,BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetState(-1,$GUI_Hide)
    $Pic1 = _animgif("filme28.gif",0,$Form1,0,340)
    GUISetBkColor(0xFFFFFF)
    $Label1 = GUICtrlCreateLabel("Filmstudios", 140, 72, 300, 17)
    GUICtrlSetFont(-1, 50, 800, 2, "WST_Span")
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Pic3 = GUICtrlCreatePic("filme24.gif",10,250, 54, 84, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetState(-1,$GUI_Hide)
    $Pic4 = GUICtrlCreatePic("filme25.gif",325,250, 54, 84, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetState(-1,$GUI_Hide)
    $Pic5 = GUICtrlCreatePic("zaun_21.gif",0,390, 505, 25, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic6 = GUICtrlCreatePic("urlaub_74.gif",0,250, 100, 120, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    ;GUICtrlCreatePic("", 0, 0, 628, 372, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Button1 = GUICtrlCreateButton("ACTION", 150, 300, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("Cat",150, 300, 75, 25, 0)
    GUICtrlSetState(-1,$GUI_Hide)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1]
    Case $Form1
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    MsgBox(64, "Achtung", "Kamara läuft")
    GUICtrlSetState($Button1,$GUI_Hide)
    GUICtrlSetState($pic,$GUI_Show)
    GUICtrlSetState($Pic6,$GUI_Hide)
    GUICtrlSetState($Label1,$GUI_Hide)
    GUICtrlSetState($Pic3,$GUI_Show)
    GUICtrlSetState($Pic4,$GUI_Show)
    GUICtrlSetState($Button2,$GUI_Show)
    $Pic2=_animgif("affe17.gif",0,$Form1, 90,140)

    [/autoit] [autoit][/autoit] [autoit]

    case $Button2
    MsgBox(64, "Achtung", "Cat bitte nochmal")
    GUICtrlSetState($Label1,$GUI_Show)
    GUICtrlSetState($Pic6,$GUI_Show)
    GUICtrlSetState($Button1,$GUI_Show)
    GUICtrlSetState($Button2,$GUI_Hide)
    GUICtrlSetState($Pic,$GUI_Hide)
    GUICtrlSetState($Pic3,$GUI_Hide)
    GUICtrlSetState($Pic4,$GUI_Hide)
    GUICtrlSetState($Pic2,$GUI_Hide)

    EndSwitch
    EndSwitch
    WEnd

    [/autoit]

    Ps bilder für diese beispiel sind im download drin sowie die _AniGif.au3 & die ani_gif.dll.
    bild 3 muss so wie bild 1 dann wieder aussehen bekomme das aber nicht hin mit GUICtrlSetState("",$GUI_Hide) ,GUICtrlSetState("",@sw_Hide) alles schon durch probiert

  • Hallo sirocol,

    seit 10 sec. weiss ich es,

    nämlich so:

    [autoit]


    case $Button3 ;<============= einfügen und $Button3 in der Gui definieren
    MsgBox(64, "Ende", "Aus..., Auuuuus")
    GplusShutdown()

    [/autoit]

    mfg (Auto)Bert

  • da kommt eine fehler meldung und das ganze fenster geht zu was aber nicht sein soll kannst mir mal das scripten ohne das das fenster zugeht und diesen fehler kommt es soll nur das gif mit den bären und den affen noch verschwinden nicht zu gehen so das es wieder auf anfang ist

    Spoiler anzeigen
    [autoit]


    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Forum https://autoit.de/index.php?page…t=animierte+gif
    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <StaticConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <_AniGif.au3>

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 400, 453, 193, 125)
    $pic = GUICtrlCreatePic(@ScriptDir & "\wonderland07.gif",0, 0, 400, 250,BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetState(-1,$GUI_Hide)
    $Pic1 = _animgif("filme28.gif",0,$Form1,0,340)
    GUISetBkColor(0xFFFFFF)
    $Label1 = GUICtrlCreateLabel("Filmstudios", 140, 72, 300, 17)
    GUICtrlSetFont(-1, 50, 800, 2, "WST_Span")
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Pic3 = GUICtrlCreatePic("filme24.gif",10,250, 54, 84, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetState(-1,$GUI_Hide)
    $Pic4 = GUICtrlCreatePic("filme25.gif",325,250, 54, 84, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetState(-1,$GUI_Hide)
    $Pic5 = GUICtrlCreatePic("zaun_21.gif",0,390, 505, 25, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic6 = GUICtrlCreatePic("urlaub_74.gif",0,250, 100, 120, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    ;GUICtrlCreatePic("", 0, 0, 628, 372, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Button1 = GUICtrlCreateButton("ACTION", 150, 300, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("Cat",150, 300, 75, 25, 0)
    GUICtrlSetState(-1,$GUI_Hide)
    $Button3 = GUICtrlCreateButton("Ende",150, 350, 75, 25, 0)
    GUICtrlSetState(-1,$GUI_Hide)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1]
    Case $Form1
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    MsgBox(64, "Achtung", "Kamara läuft")
    GUICtrlSetState($Button1,$GUI_Hide)
    GUICtrlSetState($pic,$GUI_Show)
    GUICtrlSetState($Pic6,$GUI_Hide)
    GUICtrlSetState($Label1,$GUI_Hide)
    GUICtrlSetState($Pic3,$GUI_Show)
    GUICtrlSetState($Button3,$GUI_Show)
    GUICtrlSetState($Pic4,$GUI_Show)
    GUICtrlSetState($Button2,$GUI_Show)
    $Pic2=_animgif("affe17.gif",0,$Form1, 90,140)
    case $Button2
    MsgBox(64, "Achtung", "Cat bitte nochmal")
    GUICtrlSetState($Label1,$GUI_Show)
    GUICtrlSetState($Pic6,$GUI_Show)
    GUICtrlSetState($Button1,$GUI_Show)
    GUICtrlSetState($Button3,$GUI_Show)
    GUICtrlSetState($Button2,$GUI_Hide)
    GUICtrlSetState($Pic,$GUI_Hide)
    GUICtrlSetState($Pic3,$GUI_Hide)
    GUICtrlSetState($Pic4,$GUI_Hide)
    GUICtrlSetState($Pic2,$GUI_Hide)
    case $Button3 ;<============= einfügen und $Button3 in der Gui definieren
    $Pic2=_animgif("affe17.gif",0,$Form1, 90,140)
    GplusShutdown()
    EndSwitch
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit]
  • Hallo sirocol,

    stimmt leider, wenn ich das Fenster nicht gleich schliesse (so wie vorhin nach dem Test) stürzt das Programm nach ca 5 sec. bei mir ab, war ich wohl zu schnell. Sorry, dass ich keine bessere Nachricht habe,

    Edit: eine andere UDF die ganz gut ausschaut mit dazu gehöriger Demo hab ich angehängt


    mfg (Auto)Bert

    Einmal editiert, zuletzt von AutoBert (8. Juni 2009 um 07:13)

  • wie lasse ich jetzt die bilder verschwinden mit GUICtrlCreategifex mit GUICtrlCreategif geht es nur das dann die bilder nicht mehr tranzparent sind die eigendlich durchsichtig sein müssen
    Achso beim Equalizer geht nur pause zurzeit das mir den verschwinden geht da auch nicht

    ich habe euch mal 2 beispiele jetzt angehangen

  • trotdem sind dann die kamaraleute nicht tranzperrent und ausserdem muss es doch auch ohne einen film gehen den man abspielt oder und ich habe kein programm das ich mir gif in avi macht muss ich mal suchen und mal testen aber dann kann mann eigendlich ja nicht die figuren anklicken wie ich es haben will wenn ich das als avi mache geht dies ja nicht