ScenesActiveGet Method (IMScenes)
ID of the scene
index of the scene
scene object
Gets the active scene.
Syntax
Sub ScenesActiveGet( _
   ByRef _pbsSceneID As String, _
   ByRef _pnIndex As Integer, _
   ByRef _ppScene As IMElements _
) 
void ScenesActiveGet( 
   out string _pbsSceneID,
   out int _pnIndex,
   out IMElements _ppScene
)
procedure ScenesActiveGet( 
   Out  _pbsSceneID: String;
   Out  _pnIndex: Integer;
   Out  _ppScene: IMElements
); 
void ScenesActiveGet( 
   [PARAMFLAG::Out] BSTR* _pbsSceneID,
   [PARAMFLAG::Out] int _pnIndex,
   [PARAMFLAG::Out] IMElements* _ppScene
) 

Parameters

_pbsSceneID
ID of the scene
_pnIndex
index of the scene
_ppScene
scene object
Example

Here is example of how to get active mixer scene:

'initialize mixer
Dim myMixer As MMixeerClass = New MMixerClass()
myMixer.ObjectStart(Nothing)
Dim mySceneID As String
Dim myIndex As Integer
Dim myScene As IMElements
myMixer.ScenesActiveGet(mySceneID, myIndex, myScene)
//initialize mixer
MMixeerClass myMixer = new MMixerClass();
myMixer.ObjectStart(null);
string mySceneID;
int myIndex;
IMElements myScene;
myMixer.ScenesActiveGet(out mySceneID, out myIndex, out myScene);
var
myMixer: MMixer;
myScenes: IMScenes;
myObject: IMObject;
myScene: IMElements;
mySceneID: widestring;
myIndex: integer;
begin
myMixer:= CreateComObject(CLASS_MMixer) as MMixer;
myObject:= myMixer as IMObject;
myObject.ObjectStart();
myScenes := myMixer as IMScenes;
myScenes.ScenesActiveGet(mySceneID, myIndex, myScene);
end;
See Also

Reference

IMScenes Interface
IMScenes Members