Class CustomArray
' --- Private properties
Private m_Array()
Private m_Count
Private m_IsObject ' basic type of 1st item - object or non object
' --- Public Properties
Public Property Let Count(value)
m_Count = value
End Property
Public Property Get Count()
Count = m_Count
End Property
' Read only
Public Property Get IsObject()
IsObject = m_IsObject
End Property
' --- Private Methods
Private Function UseSet(ArrayItemToCheck)
Dim strTemp
Dim blnUnexpectType
blnUnexpectType = False
UseSet = False
Select Case VarType(ArrayItemToCheck)
Case 0
strTemp = "vbEmpty"
blnUnexpectType = True
Case 1
strTemp = "vbNull"
blnUnexpectType = True
Case 2
strTemp = "vbInteger"
Case 3
strTemp = "vbLong"
Case 4
strTemp = "vbSingle"
Case 5
strTemp = "vbDouble"
Case 6
strTemp = "vbCurrency"
Case 7
strTemp = "vbDate"
Case 8
strTemp = "vbString"
Case 9
strTemp = "vbObject"
UseSet = True
Case 10
strTemp = "vbError"
blnUnexpectType = True
Case 11
strTemp = "vbBoolean"
Case 12
strTemp = "vbVariant"
Case 13
strTemp = "vbDataObject"
UseSet = True
Case 14
strTemp = "vbDecimal"
Case 17
strTemp = "vbByte"
Case 8192
strTemp = "vbArray"
UseSet = True
Case Else
strTemp = "undetected: " & VarType(ArrayItemToCheck)
blnUnexpectType = True
End Select
If blnUnexpectType Then
Log.Error("Unexpected array item type: " & strTemp)
End If
End Function
Private Sub Class_Initialize()
m_Count = 0
m_IsObject = False
ReDim m_Array(-1)
'Log.Message("UBound=" & UBound(m_Array))
End Sub
' --- Public Methods
Public Function GetArray()
GetArray = m_Array
End Function
' Returns a specific array item
Public Default Function Items(index)
If index < m_Count And index > -1 Then
If m_IsObject Then
Set Items = m_Array(index)
Else
Items = m_Array(index)
End If
Else
Log.Error("index out of range")
End If
End Function
' Used to change value of an existing item
Public Function SetItem(index, value)
if m_IsObject Then
Set m_Array(index) = value
Set SetItem = m_Array(index)
Else
m_Array(index) = value
SetItem = m_Array(index)
End If
End Function
Public Function AddItem(value)
If m_Count = 0 Then
If UseSet(value) Then
m_IsObject = True
Else
m_IsObject = false
End If
Else
If UseSet(value) <> m_IsObject Then
Log.Error("Attempted to mix objects and non objects into the array. Item NOT added!")
Exit Function
End If
End If
ReDim Preserve m_Array(m_Count)
'Log.Message("UBound=" & UBound(m_Array))
if m_IsObject Then
Set m_Array(m_Count) = value
Set AddItem = m_Array(m_Count)
Else
m_Array(m_Count) = value
AddItem = m_Array(m_Count)
End If
m_Count = m_Count + 1
End Function
Public Sub DeleteItem(index)
Dim index2
If index < m_Count and index > -1 Then
If m_IsObject Then
Set m_Array(index) = Nothing
Else
m_Array(index) = vbNull
End If
if m_Count > 1 And index < (m_Count - 1) Then
' Collapse array at the element that is being removed
index2 = index + 1
While index2 < m_Count
If m_IsObject Then
Set m_Array(index2 -1) = m_Array(index2)
Else
m_Array(index2 -1) = m_Array(index2)
End IF
index2 = index2 + 1
Wend
'ElseIf index = 0 And m_Count = 1 Then ' We must be removing the 1st and only element
' Do nothing as the adjustment of m_Count and the ReDim will suffice
'Else ' We must be removing the last element
' Do nothing as the adjustment of m_Count and the ReDim will suffice
End If
m_Count = m_Count - 1
Redim Preserve m_Array(m_Count - 1)
'Log.Message("UBound=" & UBound(m_Array))
Else
Log.Error("index out of range")
End If
End Sub
End Class
Function NewArray()
Set NewArray = New CustomArray
End Function
The ODT plug-in is obsolete. We would recommend finding other ways to perform the tasks that you do with it. For instance, ODT is often used for creating custom classes (objects). You can define and create classes (objects) in JScript code by using JScript’s built-in functionality (see the JScript reference on the MSDN web site).
To keep your tests functioning during the transaction, you can request the ODT plug-in from our Support Team.
Where I'm currently working, we managed to replicate OO design without using ODT in C#.
Here's a sample "Browser" class that allowes to instantiate either a standard browser or a virtual device for mobile web.
We simply expose the methods and properties as needed
function Fureteur()
{
// Initialisation des FIELDS
this.Component = Object(); // L'object TestComplete.Browser
this.BrowserType = varInteger; // Le type de Browser (int, -1=IE, -2=FF, -3=Chrome)
this.currentPage = Object(); // Object de type Page, Page courante du Browser
this.URL = varString; // URL de la page de type String
this.isVirtual = Boolean();
this.Description = varString;
this.Open = function(BrowserType,isVirtual) // Instancie un fureteur selon le type
{
if (isVirtual) { // Si on utilise un Browser Virtuel
this.isVirtual = true;
var supported = VirtualBrowsers.Count;
if (BrowserType<supported) // Est-ce que celui demandé est supporté (Voir dans les Projets-Properties-Open App-Web Test-Virtual
{
var mybrowser = VirtualBrowsers.Item(BrowserType);
Log.Message(mybrowser.UserAgent);
}
this.Description = mybrowser.UserAgent;
} else {
this.isVirtual = false;
switch (BrowserType) {
case "-1" : Log["Message"]("Fureteur demandé : " + "Microsoft Internet Explorer");
var mybrowser = Browsers["Item"](btIExplorer);
break;
case "-2" : Log["Message"]("Fureteur demandé : " + "Mozilla Firefox");
var mybrowser = Browsers["Item"](btFirefox);
break;
case "-3" : Log["Message"]("Fureteur demandé : " + "Google Chrome");
var mybrowser = Browsers["Item"](btChrome);
break;
default : Log["Message"]("Fureteur demandé : " + "Microsoft Internet Explorer");
var mybrowser = Browsers["Item"](btIExplorer);
}
Log.Message("Fureteur : "+ mybrowser.Description);
Log.Message("Family " + mybrowser.Family);
this.Description = mybrowser.Description;
}
mybrowser.Run(Project["Variables"]["StartupURL"]); // La variable StartupURL se retrouve dans tous les projets.
this.Component = Sys.Browser("*",0); // Pour obtenir le processus du Browser
this.BrowserType = BrowserType;
Log["PopLogFolder"]();
return this.Component; // On retourne l'objet Browser
}
this.Navigate = function(url) // Navigue vers l'URL jusqu'à chargement complet
{
Log["AppendFolder"]("Navigation vers l'URL : "+url);
var myClock = HISUtils["StopWatch"];
myClock["Start"]();
var myPage = this.Component["ToUrl"](url);
while (myPage["contentDocument"] == null)
Delay(200);
while (myPage["contentDocument"]["readyState"] != "complete")
myPage["Wait"]();
Project["Variables"]["CurrentPage"]=myPage;
myClock["Stop"]();
//var myName = MakeLogName(Project["Variables"]["MyProject"]);
//PushToLog(myName,"Page ; " + url + " ; "+myClock["ToString"]());
Log["Message"](url + " ; "+myClock["ToString"]());
this.currentPage = myPage;
this.URL = myPage["URL"];
Log["PopLogFolder"]();
return this.currentPage; // On retourne l'objet Page de la navigation
}
this.Close = function() // Ferme le fureteur
{
this.Component["Close"]();
return null;
}
}
To instantiate the Browser
myBrowser = new Fureteur
myBrowser["Open"](-1,false) for a standard browser
myBrowser["Open"](3,true) for one of the listed Virtual Devices in Project Properties
