怎样拉伸flash画面大小来适应窗口大小（已解决）

fuldho

看了sanhen大侠帖子：调用Flash的两个函数

http://www.autoitx.com/forum.php ... p;extra=&page=1

不知怎样拉伸flash画面大小来适应窗口大小

先谢谢了！

#include <GuiConstantsEx.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
    Local $Flash,$FlashXml,$Bbs,$msg
    GUICreate("Flash 播放器", 570, 320)
        $Flash = _CreateSWF( @ScriptDir &'\chojimali.swf',10,10,550,300)
GUISetState()

 While 1
           $msg = GUIGetMsg()
                Switch $msg 
           Case $GUI_EVENT_CLOSE
                Exit
        EndSwitch
   WEnd
EndFunc   ;==>_Main

Func _CreateSWF($SWFPath, $SWFL, $SWFT, $SWFW, $SWFH, $SWFBGColor = "#505050")
Local $SWFObj,$SWFActiveX

    $SWFObj = ObjCreate("ShockwaveFlash.ShockwaveFlash")
    $SWFActiveX = GUICtrlCreateObj( $SWFObj, $SWFL, $SWFT, $SWFW, $SWFH)

With $SWFObj
        .Movie = $SWFPath
        .ScaleMode = 3 ;0 showall, 1 noborder, 2 exactFit, 3 noscale
        .bgcolor = $SWFBGColor
        .Loop = True
        .allowScriptAccess = "Always"
        
 EndWith
    Return $SWFObj
EndFunc

afan

GUICreate('Flash 播放器', 570, 320)
Local $Obj = ObjCreate('ShockwaveFlash.ShockwaveFlash.9')
If @error Then Exit
If Not GUICtrlCreateObj($Obj, 10, 10, 550, 300) Then Exit

GUISetState()
$Obj.Movie = @ScriptDir & '\chojimali.swf'
$Obj.Play()

While GUIGetMsg() <> -3
WEnd

GUIDelete()
Exit

fuldho

非常感谢 afan 版主！