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

Used resources

Service Functions – String (QTP, VBScript)

Implementing optional and default parameters

Create TextBox along with the Prompt Label and place on the GUI Form

 Public Function PlaceTextBox(ByRef objForm, ByVal objParameter)
    Dim sPrompt
    Dim intLeft, intTop
    Dim objTextBox, objLabel

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

  sPrompt = objParameter.Item("p.prompt")
  If sPrompt = "" Then sPrompt = "Input value"

  Set objTextBox = CreateTextBox(objParameter)

  intLeft = objTextBox.Left
  intTop = objTextBox.Top
  Set objLabel = CreateLabel(sPrompt, AssociateParameters("p.left = " & intLeft & " , p.top = " & intTop - 20))
  
  objForm.Controls.Add(objLabel)
  objForm.Controls.Add(objTextBox)

  Set PlaceTextBox = objTextBox
 End Function

Create ComboBox along with the Prompt Label and place on the GUI Form

 Public Function PlaceComboBox(ByRef objForm, ByVal objItems, ByVal objParameter)
    Dim sPrompt
    Dim intLeft, intTop
    Dim objComboBox, objLabel

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

  sPrompt = objParameter.Item("p.prompt")
  If sPrompt = "" Then sPrompt = "Select value"

  Set objComboBox = CreateComboBox(objItems, objParameter)

  intLeft = objComboBox.Left
  intTop = objComboBox.Top
  Set objLabel = CreateLabel(sPrompt, AssociateParameters("p.left = " & intLeft & " , p.top = " & intTop - 20))
  
  objForm.Controls.Add(objLabel)
  objForm.Controls.Add(objComboBox)

  Set PlaceComboBox = objComboBox
 End Function

Create Button, assign the event, and place on the GUI Form

 Public Function PlaceButton(ByRef objForm, ByVal sText, ByVal objParameter)
    Dim objButton

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

  Set objButton = CreateButton(sText, objParameter)

  Select Case UCase(objParameter.Item("p.result"))
   Case "ABORT", "CANCEL", "NO"
    Set objForm.CancelButton = objButton
   Case "OK", "RETRY", "YES"
    Set objForm.AcceptButton = objButton
  End Select

  objForm.Controls.Add(objButton)

  Set PlaceButton = objButton
 End Function

Examples

Set objForm = CreateForm("Test Setup", AssociateParameters("p.startpos = CenterScreen, p.width = 400, p.height = 300, p.locksize = Yes, p.lockview = Yes"))

Set objSelectEnvironment = PlaceComboBox(objForm, AssociateParameters("1 = DEV1, 2 = DEV2, 3 = UAT"), AssociateParameters("p.prompt = Test Environment, p.left = 25, p.top = 50, p.item = DEV2"))
Set objInputUserID = PlaceTextBox(objForm, AssociateParameters("p.prompt = User ID, p.left = 25, p.top = 100"))
Set objInputPassword = PlaceTextBox(objForm, AssociateParameters("p.prompt = Password, p.left = 25, p.top = 150, p.masked = Yes"))

Set objOK = PlaceButton(objForm, "OK", AssociateParameters("p.left = 124, p.top = 200, p.width = 75, p.result = OK"))
Set objCancel = PlaceButton(objForm, "Cancel", AssociateParameters("p.left = 200, p.top = 200, p.width = 75, p.result = Cancel"))

objForm.Activate()
objForm.ShowDialog()