Creating an object via Function Library

[riechan]

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

[vibhakhandelwal]

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 )

[sshukla12]

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

[riechan]

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.

[riechan]

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

[sshukla12]

U r always welcome.

Regards,
Sankalp