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)