|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Проигравание gif в форме |
|
|
[решено] Проигравание gif в форме
|
|
Новый участник Сообщения: 38 |
Подскажите как заставить gif проигрыватся в форме на буржуйском сайте нашел вот такой код
------------------------------------------------------------------------------------------------------------------------------ Код:
 Opt("MustDeclareVars", 1)
#include <IE.au3>
_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 проигрывается а как мне сделать в своей форме не понимаю знаний не хватает |
|
|
Отправлено: 19:31, 17-03-2010 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать |
|
------- Отправлено: 23:08, 17-03-2010 | #2 |
|
Новый участник Сообщения: 38
|
Профиль | Отправить PM | Цитировать Сложность в непонимании даных функций на форме созданной в "кода" планирую разместить несколько гиф как заставить их работать
А за Au3ToPost спасибо сам бы не нашел обязательно исправлюсь. |
|
Отправлено: 00:04, 18-03-2010 | #3 |
|
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Vagac:
Код:
#include <IE.au3> 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 |
|
|
------- Отправлено: 00:44, 18-03-2010 | #4 |
|
Новый участник Сообщения: 38
|
Профиль | Отправить PM | Цитировать Creat0R Больщое спасибо за быстрые ответы и помощь буду разбиратся
|
|
|
Отправлено: 00:53, 18-03-2010 | #5 |
Старожил Сообщения: 206
|
Профиль | Отправить PM | Цитировать Есть еще неплохая UDF, правда более сложная.
|
|
Отправлено: 02:11, 18-03-2010 | #6 |
|
Новый участник Сообщения: 38
|
Профиль | Отправить PM | Цитировать Всем САПИБО разобрался
|
|
Отправлено: 17:59, 18-03-2010 | #7 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| Delphi - Как создать кнопку на форме | VovanZ | Программирование и базы данных | 4 | 23-05-2009 17:42 | |
| C/C++ - мигание компоненты на форме | alextrs | Программирование и базы данных | 8 | 12-05-2008 22:54 | |
| Мультиселект на форме | Scorpion666 | Вебмастеру | 4 | 03-05-2008 00:28 | |
| Delphi - *Delphi* | Гиперссылка на форме | alex41k22 | Программирование и базы данных | 1 | 09-07-2005 20:18 | |
| Ввод даты в HTML форме | Casufi | Вебмастеру | 2 | 21-07-2004 10:43 | |
|
|
Время: 21:54. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
Вы не ту утилиту использовали для разукраски AutoIt-кода 
, нужно 