QTP测试.NET控件CheckedListBox

 

对于.NET的CheckedListBox控件，我们可以适当封装，让其可以支持设置CheckListBox中指定Index的某一项的勾选状态的功能，以及支持设置CheckListBox中指定内容的某一项的勾选状态的功能，具体的实现代码如下所示：

 

' 设置CheckListBox中指定Index的某一项的勾选状态

Function CheckItemByIndex(w_CheckListBox , ItemIndex ,CheckState)

  w_CheckListBox.Object.SetItemChecked ItemIndex , CheckState

End Function

RegisterUserFunc "SwfList","CheckItemByIndex","CheckItemByIndex"

 

' 设置CheckListBox中指定内容的某一项的勾选状态

Function CheckItemByText(w_CheckListBox , ItemText ,CheckState)

  For I =0 to w_CheckListBox.GetItemsCount -1

      If  w_CheckListBox.GetItem(I) = ItemText  Then

           w_CheckListBox.Object.SetItemChecked I,CheckState

                 CheckItemByText = True

                 Exit Function

         End If

  Next

   CheckItemByText = False

End Function

RegisterUserFunc "SwfList","CheckItemByText","CheckItemByText"

 

在QTP中引用该VBS文件后，可以这样使用封装的功能：

SwfWindow("Form1").SwfList("checkedListBox1").CheckItemByIndex 0,False

Msgbox SwfWindow("Form1").SwfList("checkedListBox1").CheckItemByText ("鸡蛋",True)