QTP测试.NET控件CheckedListBox

本文主要是介绍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)

 

 

这篇关于QTP测试.NET控件CheckedListBox的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---