QTP - Descriptive Programming

QTP - Descriptive Programming 

'####################################################

'# Descriptive Programming Objects > DPWebEdit

'####################################################

Public Sub DPWebEdit (strWebEdit,strInValue)

 If strInValue <> "" Then

  Set obj_WebEdit = Description.Create 

  obj_WebEdit ("Class Name").value = "WebEdit"

  obj_WebEdit ("name").value= strWebEdit                    

  Browser(strBrowser).page(strPage).Sync

  Browser(strBrowser).Page(strPage).WebEdit(obj_WebEdit).Set strInValue

 End If

End Sub

'########################################################

'# Descriptive Programming Objects > DPWebEditSetSecure

'########################################################

Public Sub DPWebEditSetSecure (strWebEdit,strInValue)

  If strInValue <> "" Then

   Set obj_WebEdit = Description.Create 

   obj_WebEdit ("Class Name").value = "WebEdit"

   obj_WebEdit ("name").value= strWebEdit                        

   Browser(strBrowser).page(strPage).Sync                Browser(strBrowser).Page(strPage).WebEdit(obj_WebEdit).SetSecure strInValue

  End If

End Sub

'########################################################

'# Descriptive Programming Objects > DPWebList

'########################################################

Public Sub DPWebList (strWebList,strInValue)

 If strInValue <> "" Then

   Set obj_WebList = Description.Create 

   obj_WebList ("Class Name").value = "WebList"

   obj_WebList ("name").value= strWebList

   Reporter.Filter = 3 'Turn Reporting of

   Call TestListValues (obj_WebList,strInValue) 

   'Check for valid item in list

   Reporter.Filter = 0 'Turn Reporting on   

   Browser(strBrowser).page(strPage).Sync

   Browser(strBrowser).Page(strPage).WebList(obj_WebList).Select strInValue

End If

End Sub

'########################################################

'# Descriptive Programming Objects > DPRadioGroup

'########################################################

Public Sub DPRadioGroup (strWebRadioGroup,strInValue)

Set obj_WebRadioGroup = Description.Create 

obj_WebRadioGroup ("Class Name").value = "WebRadioGroup"

obj_WebRadioGroup ("name").value= strWebRadioGroup     

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).WebRadioGroup(obj_WebRadioGroup).Select strInValue

End Sub

'####################################################

'# Descriptive Programming Objects > DPWebImage

'########################################################

Public Sub DPWebImage (strImage)

Set obj_Image = Description.Create 

obj_Image ("Class Name").value = "Image"

obj_Image ("name").value= strImage   

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).Image(obj_Image).Click '6,7

End Sub

'####################################################

'# Descriptive Programming Objects > DPWebCheckBox

'########################################################

Public Sub DPWebCheckBox (strWebCheckBox,strInValue)

Set obj_WebRadioGroup = Description.Create 

obj_WebCheckBox ("Class Name").value = "WebCheckBox"

obj_WebCheckBox ("name").value= strWebRadioGroup           

Browser(strBrowser).page(strPage).Sync Browser(strBrowser).Page(strPage).WebCheckBox(obj_WebCheckBox).Select strInValue

End Sub

'####################################################

'# Descriptive Programming Objects > DPWebLink

'########################################################

Public Sub DPWebLink (strWebLink)              

Set obj_WebLink = Description.Create

obj_WebLink ("Class Name").value = "Link"

obj_WebLink ("name").value= strWebLink        

Count = 1

Do until  Browser(strBrowser).Page(strPage).Link(obj_WebLink).Exist

if Browser(strBrowser).Page(strPage).Link(obj_WebLink).Exist Then

Exit Do

End If                               

Count = Count + 1                               

If Count = 20 Then

      Exit Do

end if                   

Loop               

Browser(strBrowser).Page(strPage).Link(obj_WebLink).Click               

End Sub

'####################################################

'# Descriptive Programming Objects > DPWebButton

'########################################################

Public Sub DPWebButton (strWebButton)

Set obj_WebButton = Description.Create 

obj_WebButton ("Class Name").value = "WebButton"

obj_WebButton ("name").value= strWebButton           

Browser(strBrowser).page(strPage).Sync

Browser(strBrowser).Page(strPage).WebButton(obj_WebButton).Click

               

End Sub

'####################################################

Posted in: QTP - Descriptive Programming