Parent page: Service Functions – DotNetFactory (QTP, VBScript)

Creating .NET objects from VBScript/QTP

You can create a label and assign required properties within one line by calling the function below. The function has one mandatory parameter (which though is initialized by default if empty) and a set of optional parameters provided in the Dictionary object.

Currently supported optional parameters:

Label Width and Height.

Label Coordinates – Left, Top.

Note. You may code as many optional parameters as required. Just follow the established syntax and keep in mind that parameter index for Dictionary must be unique – otherwise it will overwrite the previous parameter.

References

For the complete .NET Label Class reference please visit:

http://msdn.microsoft.com/en-us/library/system.windows.forms.label(VS.80).aspx

Used resources

Service Functions – String (QTP, VBScript)

Implementing optional and default parameters

Create Label

 Public Function CreateLabel(ByVal sText, ByVal objParameter)
    Dim intLength
    Dim intWidth, intHeight
    Dim intLeft, intTop
    Dim objLabel

  'Verify parameters
  If TypeName (objParameter) <>  "Dictionary" Then
   Set objParameter = CreateObject("Scripting.Dictionary")
  End If

  If sText = "" Then sText = "Default"
  intLength = (Len(sText) + 4)*10
  
  intWidth = InitLong(objParameter.Item("p.width"), intLength)
  intHeight = InitLong(objParameter.Item("p.height"), 20)

  intLeft = IntVal(objParameter.Item("p.left"))
  intTop = IntVal(objParameter.Item("p.top"))

  Set objLabel = DotNetFactory.CreateInstance("System.Windows.Forms.Label", "System.Windows.Forms")
  objLabel.Text = sText
  objLabel.Width = intWidth
  objLabel.Height = intHeight
  objLabel.Left = intLeft
  objLabel.Top = intTop

  Set CreateLabel = objLabel
 End Function

Example

Set objPromptLabel = CreateLabel("Please provide your Username and Password", AssociateParameters("p.left = 10, p.top = 15, p.width = 200, p.height = 25"))