SetParameters

Attribue une collection de paramètres d'exécution à l'enregistrement d'exécution actuel (association entre le test d'audit et le tableau IDEA).

Compatibilité

Proposé dès IDEA version 12.0

Syntaxe

SetParameters(parameters As Array)

Paramètres

Remarques

Si l'enregistrement d'exécution n'est pas accessible, une exception est déclenchée.

Afin d'obtenir la collection de paramètres à passer comme argument de la méthode, les options ci-dessous sont proposées :

• Utiliser la propriété .Parameters du composant Accessor du test d'audit. L'enregistrement d'exécution n'est pas requis. La valeur de la propriété .Value de chaque élément est vide et doit être définie;
• Utilise la propriété .Parameters du composant Executor du test d'audit. Dans ce cas, l'enregistrement d'exécution est requis. La valeur de la propriété .Value de chaque élément contient la valeur actuelle du paramètre d'exécution;

Exemple

Sub Main()
	Dim SA
	Dim atExecutor
	Dim atAccessor
	Dim parameters
	Dim paramCheckBox1
	Dim paramSingleList1
	Set SA = CreateObject("SmartAnalyzer.AutomationClient")
	atId = "f4d65220-77f1-5969-8943-59c7bd448460"
	tblName = "Sample-Weblog"
	' --- Obtain logical parameters from AT Accessor and set values ---
	Set atAccessor = SA.GetAT(atId)
	Set parameters = atAccessor.Parameters
	Set paramCheckBox1 = parameters.Get("smartCheckBox1")
	Set paramSingleList1 = parameters.Get("smartSingleList1")
	paramCheckBox1.Value = True
	listValues = Array("Potato","Tomato","Cucumber")
	paramSingleList1.Value = listValues
	' ----------------- Create exec record ---------------------
	Set Tagging = SA.GetTagging(tblName)
	Tagging.SetTag "Comment", "SITE"
	Tagging.Save True
	' ----------------- Assign parameters to exec record ---------------------
	Set atExecutor = atAccessor.GetAtExecutor(tblName)
	atExecutor.SetParameters(parameters)
	' --- Obtain physical parameters from AT Executor and display values ---
	Set parameters = atExecutor.Parameters
	Set paramCheckBox1 = parameters.Get("smartCheckBox1")
	Set paramSingleList1 = parameters.Get("smartSingleList1")
	MsgBox"New value of chexbox1: " & paramCheckBox1.Value
	FOR EACH v IN paramSingleList1.Value
		MsgBox"Next new value of singleList1: '" + v + "'"
	NEXT
End Sub

Copier l'exemple  

Lorsqu'il est exécuté, ce script produit la séquence de sortie suivante :

Nouvelle valeur de chexbox1 : True

Nouvelle valeur suivante de singleList1 : 'Pomme de terre'

Nouvelle valeur suivante de singleList1 : 'Tomate'

Nouvelle valeur suivante de singleList1 : 'Cucumber'