Automation Example - Application Object

 

This is an example for the Application object.

 

'********************************************************************************************

' ApplicationObject.bas

' This script demonstrates the various properties of the Voxler application object.

'

'                                    -by SKP 4/2010

'

'********************************************************************************************

Sub Main

 'Declares VoxlerApp as an object

  Dim VoxlerApp As Object

 

 'Creates an instance of the Voxler application object

 'and assigns it to the variable named "VoxlerApp"

 'Comment the next line if Voxler is already open

  Set VoxlerApp = CreateObject("Voxler.Application")

 

 'Access existing Voxler object

 'Uncomment the next line if Voxler is already open

 ' Set VoxlerApp = GetObject (,"Voxler.Application")

 

 'Access the application and return the name

  Debug.Print VoxlerApp.Application.name

 

 'Return the name of the application

  Debug.Print "Application name is "; VoxlerApp.name

 

 'Return the full path and name of the application

  Debug.Print "Application path and name is "; VoxlerApp.FullName

 

 'Return the path to the Voxler application

  Debug.Print "Application path is "; VoxlerApp.Path

 

 'Return the version of Voxler currently running

  Debug.Print "Voxler version number is "; VoxlerApp.Version

 

 'Make Voxler visible

  VoxlerApp.Visible = True

 

 'Access the command interface

  Set CommandApi = VoxlerApp.CommandApi

 

 'Close Voxler

  VoxlerApp.Quit

 

End Sub

 

 

See Also

Automation Model

Application object