Micro Focus QTP (UFT) Forums
Creating an object via Function Library - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: Creating an object via Function Library (/Thread-Creating-an-object-via-Function-Library)

Creating an object via Function Library - riechan - 06-19-2012

Hi,

Is it possible to create a description of an object via a function from the function library? I'm trying to get this code to work properly, but I keep getting the error: "Wrong number of arguments or invalid property assignment." The description of the objTextbox is created when I call the function, but it returns back to the action as Empty. Can anyone help?

This is the code from the action, Flight_NewSale:
Code:
Public objTextbox

' Create the instances of the objects in the form
txtName = createTextbox("attached name", "Arrival Time:")

And then here's the code from the Function Library:
Code:
Public Function createTextbox(nameProperty, valProperty)
  On Error Resume Next

  ' Create a textbox object
  Set objTextbox = Description.Create()
  objTextbox("Class Name").Value = "WinEdit"
  objTextbox(nameProperty).Value = valProperty

  ' Return the object
  createTextbox = objTextbox ' object is created but is returned as Empty
  If Err <> 0 Then
     msgbox Err.Description
  End If
End Function


RE: Creating an object via Function Library - vibhakhandelwal - 06-19-2012

Hi,
You can create an objects description by using Description object. example is given below

Code:
Dim oDesc        'Description Object
Dim colObject    'Object Collection

Set oDesc = Description.Create
'Remember to always use 'micclass' and not 'class name'
oDesc( "micclass" ).value = "Browser"

'We used Desktop as the parent here because, the Desktop Object holds all the Windows
Code:
Set colObject = Desktop.ChildObjects( oDesc )


RE: Creating an object via Function Library - sshukla12 - 06-19-2012

Hi,

Please find the below code 4 refrence:

Code:
Set vo_ResDesc=createDescription("Link",DataTable("REScreateexport",dtGlobalSheet))


Function createDescription(vs_micClass,vs_Text)

   '_________________________________________________________________

'   Function: createDescription
'   Project: OCM
'   Library: Thales Functional Library
'   Description: This function will create the Description for the specified object
   '_________________________________________________________________

   'Variable Declaration:
   Dim vo_ResDesc
  

   '___________________________________________________________________

   'Code:
   Set vo_ResDesc=Description.Create()
   vo_ResDesc("micclass").value=vs_micClass
   vo_ResDesc("text").Value=vs_Text
   Set createDescription=vo_ResDesc
  

  
End Function

Let me know in case of any help required.

Regards,
Sankalp

RE: Creating an object via Function Library - riechan - 06-20-2012

Thanks, I tried using your code as reference, like so:

Code from action, Flight_NewSale:
Code:
Public txtName
...
Set txtName = createObject("WinEdit", "Arrival Time:")

Code from function library, createObject:
Code:
Public objInst
...
Public Function createObject(typeObject, valProperty)
    Dim objInst ' as Object
    Set objInst = Description.Create()

    Select Case typeObject
        Case "WinEdit":
            objInst("Class Name").Value = "WinEdit"
            objInst("attached text").Value = valProperty
        Case "WinButton":
            objInst("Class Name").Value = "WinButton"
            objInst("text").Value = valProperty
    End Select

    Set createObject = objInst
End Function

But I get this error: ActiveX component can't create object: 'WinEdit':
Code:
Set txtName = createObject("WinEdit", "Arrival Time:")

When I check the values of the objects in watch, it says there that both txtName and objInst are empty. Since I'm really new to QTP, may I just confirm, are the codes you posted above both located in the function library (or both located in the action script), or are they from different locations (the line:

Code:
Set vo_ResDesc=createDescription("Link",DataTable("REScreateexport",dtGlobalSheet))

is found only in the action script and the function createDescription is located at the function library)?
in the action script, and the rest of the function createDescription in the


Thanks, tip about the micclass has been noted. However, I do know how to create descriptions of objects. What I want to know is, if I can create the descriptions of the objects using a function from the function library.

RE: Creating an object via Function Library - riechan - 06-22-2012

Solved it. Again, thanks sshukla12!

Code:
Public frmFlightReservation
Set frmFlightReservation = createDescription("Window", "Flight Reservation", "", "")

Code:
Public Function createDescription(typeObject, valProperty, auxProperty, auxPropertyVal)
    '================================================
    ' Description: Form object instantiation function
    '================================================
    ' Parameters:
    '    typeObject = MICClass/Class name of the Object
    '    valProperty = Value of the text/attached text
    '    auxProperty = Object's other specified optional property (Optional)
    '    auxPropertyVal = Value of the object's other specified optional property (Optional)
    '================================================
    ' Code START!

        Set objInst = Description.Create()

        objInst("micclass").Value = typeObject
    
        Select Case typeObject
            Case "Window":
                objInst("text").Value = valProperty
            Case "Dialog":
                objInst("text").Value = valProperty
            Case "WinComboBox":
                objInst("attached text").Value = valProperty
            Case "WinButton":
                objInst("text").Value = valProperty
            Case "WinRadioButton":
                objInst("text").Value = valProperty
            Case "WinEdit":
                objInst("attached text").Value = valProperty
            Case "WinList":
                objInst("attached text").Value = valProperty
        End Select
    
        If auxProperty <> "" And auxPropertyVal <> "" Then
            objInst(auxProperty).Value = auxPropertyVal
        End If
    
        Set createDescription = objInst
End Function


RE: Creating an object via Function Library - sshukla12 - 06-22-2012

U r always welcome. Wink

Regards,
Sankalp