[решено] Проигравание gif в форме

[Vagac]

Подскажите как заставить gif проигрыватся в форме на буржуйском сайте нашел вот такой код

------------------------------------------------------------------------------------------------------------------------------



Код:

Код: Выделить всё

Opt("MustDeclareVars", 1)
#include 
_Main()
Func _Main()
Local $pheight = 50, $pwidth = 50, $oIE, $GUIActiveX, $gif
;$gif = FileOpenDialog("Select Animated Gif", @ScriptDir, "gif files (*.gif)", 3)
$gif="C:\Documents and Settings\Sysadmin\Рабочий стол\36_9_300.GIF"
If @error Then Exit
_GetGifPixWidth_Height($gif, $pwidth, $pheight)
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("Embedded Web control Test", 640, 580)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $pwidth, $pheight)
$oIE.navigate ("about:blank")
While _IEPropertyGet($oIE, "busy")
Sleep(100)
WEnd
$oIE.document.body.background = $gif
$oIE.document.body.scroll = "no"
GUISetState()
While GUIGetMsg()  -3
WEnd
EndFunc ;==>_Main
Func _GetGifPixWidth_Height($s_gif, ByRef $pwidth, ByRef $pheight)
If FileGetSize($s_gif) > 9 Then
Local $sizes = FileRead($s_gif, 10)
ConsoleWrite("Gif version: " & StringMid($sizes, 1, 6) & @LF)
$pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1))
$pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1))
ConsoleWrite($pwidth & " x " & $pheight & @LF)
EndIf
EndFunc

----------------------------------------------------------------------------------------------------------------------------

gif проигрывается а как мне сделать в своей форме не понимаю знаний не хватает

[Creat0R]

Цитата Vagac:



нашел вот такой код

[решено] Проигравание gif в форме

Ужас Вы не ту утилиту использовали для разукраски AutoIt-кода , нужно

Au3ToPost

.




Цитата Vagac:



как мне сделать в своей форме

[решено] Проигравание gif в форме

В чём конкретно сложность?

[Vagac]

Сложность в непонимании даных функций на форме созданной в "кода" планирую разместить несколько гиф как заставить их работать

А за Au3ToPost спасибо сам бы не нашел обязательно исправлюсь.

[Creat0R]

Цитата Vagac:



Сложность в непонимании даных функций на форме созданной в "кода"

[решено] Проигравание gif в форме

Вот функция _GUICtrlCreateGif и пример её использования:





Код:

Код: Выделить всё

#include 
GUICreate("Embedded Web control Test", 640, 580)
_GUICtrlCreateGif(@SystemDir & "\oobe\html\mouse\images\clicking.gif", 5, 5)
_GUICtrlCreateGif(@WindowsDir & "\pchealth\helpctr\System\images\progbar.gif", 450, 5)
_GUICtrlCreateGif(@SystemDir & "\oobe\images\dialup.gif", 5, 300)
GUISetState()
While GUIGetMsg()  -3
WEnd
Func _GUICtrlCreateGif($sGifFile, $iLeft, $iTop, $iWidth=-1, $iHeight=-1)
    Local $iSizes, $oIE, $nGUIActiveX
    If ($iWidth = -1 Or $iHeight = -1) And FileGetSize($sGifFile) > 9 Then
        $iSizes = FileRead($sGifFile, 10)
        If $iWidth = -1 Then $iWidth = Asc(StringMid($iSizes, 8, 1)) * 256 + Asc(StringMid($iSizes, 7, 1))
        If $iHeight = -1 Then $iHeight = Asc(StringMid($iSizes, 10, 1)) * 256 + Asc(StringMid($iSizes, 9, 1))
    EndIf
    $oIE = ObjCreate("Shell.Explorer.2")
    $nGUIActiveX = GUICtrlCreateObj($oIE, $iLeft, $iTop, $iWidth, $iHeight)
    $oIE.Navigate("about:blank")
    While $oIE.Busy
        Sleep(1)
    WEnd
    $oIE.Document.Body.Background = $sGifFile
    $oIE.Document.Body.Scroll = "No"
    Return $nGUIActiveX
EndFunc

[Vagac]

Creat0R Больщое спасибо за быстрые ответы и помощь буду разбиратся

[Vagac]

Есть еще неплохая

UDF

, правда более сложная.

[Yashied]

Всем САПИБО разобрался