SubString.Type Property

The property can return any of the following BtSubStringType constants:

btSubStringScreenData: The data source type is embedded data. Value = 0.
btSubStringDate: The data source type type is a Date source. Value = 1.
btSubStringTime: The data source type type is a Time source. Value = 2.
btSubStringVBScript: The data source type type is a VBScript source. Value = 3.
btSubStringDatabase: The data source type type is a Database Field. Value = 4.
btSubStringDiskWizard: The data source type type is a Disk Wizard source. Value = 5.
btSubStringTemplateField: The data source type type is a Template Field source. Value = 6.
btSubStringLabelObject: The data source type type is a Object Value. Value = 7.

'Declare a BarTender application variable

Dim btApp As BarTender.Application

'Declare a BarTender document variable

Dim btFormat As BarTender.Format

'Declare a BarTender data source variable

Dim btSubString As BarTender.SubString

'Create a new instance of BarTender

btApp = New BarTender.Application

'Set the BarTender application visible

btApp.Visible = True

'Open a BarTender document

btFormat = btApp.Formats.Open("c:\Format1.btw", False, "")

'Select the data source

btSubString = btFormat.NamedSubStrings.GetSubString(1)

'Show the data source type

MessageBox.Show(btSubString.Type.ToString)

'End the BarTender process

btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)

// Declare a BarTender application variable

BarTender.Application btApp;

// Declare a BarTender document variable

BarTender.Format btFormat;

// Declare a BarTender data source variable

BarTender.SubString btSubString;

// Create a new instance of BarTender

btApp = new BarTender.Application();

// Set the BarTender application visible

btApp.Visible = true;

// Open a BarTender document

btFormat = btApp.Formats.Open("c:\\Format1.btw", false, "");

// Select the data source

btSubString = btFormat.NamedSubStrings.GetSubString(1);

// Show the data source's type

MessageBox.Show(btSubString.Type.ToString());

// End the BarTender process

btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges);

Version	BarTender 6.00 or higher
Edition	Automation, Enterprise Automation