Buttons.vbs sample: making a Buttons objects responds to click

Sample: Buttons.vbs

Sample shows how to create a button object in a flash movie (SWF) using SWF Scout library

Generated Flash movie:

VB source code:

' Buttons.vbs

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"