Sample: Buttons.vbs
Sample shows how to create a button object in a flash movie (SWF) using SWF Scout library
W = 640
H = 480
Set Movie = CreateObject("SWFScout.FlashMovie")
Movie.InitLibrary "demo","demo"
' Movie creating and setting parameters
Movie.BeginMovie 0,0,W,H,1,12,6
Movie.Compressed = true
Movie.SetBackgroundColor 255,255,255
Font = Movie.AddFont( "Arial",12,true,false,false,false,0)
FontBig = Movie.AddFont("Arial",40,true,false,false,false,0)
'///////////////////
' Buttons
'//////////////////////
Text = Movie.AddText("Click on button to open web-site",0,0,0,255,Font, 0, 80, 170, 160)
Movie.PlaceText Text,Movie.CurrentMaxDepth ' place text
Shape = Movie.AddShape
Movie.SHAPE_Circle 0, 0, 40
Movie.SHAPE_BeginRadialGradient
Movie.SHAPE_AddRadialGradientColor 255,255,255,255
Movie.SHAPE_AddRadialGradientColor 0,0,255,255
Movie.SHAPE_EndRadialGradient 35,35
Shape2= Movie.AddShape
Movie.SHAPE_Circle 0,0,40
Movie.SHAPE_BeginRadialGradient
Movie.SHAPE_AddRadialGradientColor 255,255,255,255
Movie.SHAPE_AddRadialGradientColor 0,0,128,255
Movie.SHAPE_EndRadialGradient 40,40
Button = Movie.AddButton(false,true)
Sound= Movie.AddSoundFromFileName("event.wav")
Movie.BUTTON_SetSound 3,Sound ' 3 is RollOver event (see sbsRollOver constant)
Movie.BUTTON_AddShape Shape, 0 ' sbstUp = 0
Movie.BUTTON_AddShape Shape, 3 ' sbstHitTest = 3
Movie.BUTTON_AddShape2 Shape,2,1.1,1.1,0,0,0,0,0,scttNone,0,0,0,0,false ' sbstOver = 2, scttNone = 2
Movie.BUTTON_AddShape2 Shape2,1,1.1,1.1,0,0,0,0,0,scttNone,0,0,0,0,false
Action= Movie.AddScript
Movie.SCRIPT_GetUrl "http://www.swfscout.com/","_blank"
Movie.BUTTON_SetScriptOnEvent 3,Action
Movie.PlaceButton Button,Movie.CurrentMaxDepth
Movie.PLACE_SetTranslate 100,150
Movie.ShowFrame 1
Movie.EndMovie
Movie.SaveToFile "buttons.swf"