QTP DEV控件相关

'@【DEV相关】 点击DevExpress MenuBar上的Button(根据ButtonNum)

Function ClickMenuButtonByNum(menuBarH, buttonNum)

    menuButtonBounds = menuBarH.Object.VisibleLinks.Item(buttonNum).Bounds

    boundsArray = Split(menuButtonBounds, ",")

    boundsXArray = Split(boundsArray(0), "=")

    iX = boundsXArray(1)

    boundsYArray = Split(boundsArray(1), "=")

    iY = boundsYArray(1)

    menuBarH.Click iX, iY

End Function

'@【DEV相关】点击DevExpress MenuBar上的Button(根据ButtonName)

Function ClickMenuButtonByName(menuBarH, buttonName)

    buttonCount =  menuBarH.Object.VisibleLinks.Count

    For i = 0 to buttonCount - 1

        Set buttonItem = menuBarH.Object.VisibleLinks.Item(i)

        If buttonItem.Caption = buttonName Then

            menuButtonBounds = buttonItem.Bounds

            boundsArray = Split(menuButtonBounds, ",")

            boundsXArray = Split(boundsArray(0), "=")

            iX = boundsXArray(1)

            boundsYArray = Split(boundsArray(1), "=")

            iY = boundsYArray(1)

            menuBarH.Click iX, iY

        End If

    Next

End Function

'@【DEV相关】让指定的RadioButton设定为选择状态

Public Function MakeRadioBtn(makeChecked,RadioBtnObj)

 Dim RadioBtnState

 RadioBtnState=RadioBtnObj.Object.Checked

 If makeChecked Then

  If RadioBtnState=false Then

   RadioBtnObj.Click

  End If

 else

  If RadioBtnState=true Then

   RadioBtnObj.Click

  End If

 End If

 reportPass "  ●步骤：["&RadioBtnObj.Object.Name&"]→"&RadioBtnObj.Object.Checked,"期望结果："&makeChecked

End Function

'@【DEV相关】确认Menu个数/内容

Function CheckMenuBtnItem(menuBarH,expCount,MenuArr)

    buttonCount =  menuBarH.Object.VisibleLinks.Count

 reportPass "  ●确认Menu个数","期待个数："&expCount

 If buttonCount=expCount Then

  reportPass " ◆确认Menu个数：通过","期待值："&expCount&"实际值："&buttonCount

 else

  reportFail " ◆确认Menu个数：未通过","期待值："&expCount&"实际值："&buttonCount   

 End If

 reportPass "  ●确认Menu内容","期待个数："&expCount

'    For i = 0 to buttonCount - 1

    For i = 0 to expCount-1

  Set buttonItem = menuBarH.Object.VisibleLinks.Item(i)

  If  buttonItem.Caption=MenuArr(i) Then

   reportPass " ◆确认Menu["&MenuArr(i)&"]内容：通过","期待值："&MenuArr(i) &"实际值："&buttonItem.Caption

  else

   reportFail " ◆确认Menu["&MenuArr(i)&"]内容：未通过","期待值："&MenuArr(i) &"实际值："&buttonItem.Caption

  End If

    Next

End Function

'@【DEV相关】根据Head名选择DevExpress的Tab

Public Function SelectTabByHead(tabControlH, tabHeadStr)

    tabCount = tabControlH.Object.TabPages.Count

    For i = 0 to tabCount - 1

        Set currentTabPage = tabControlH.Object.TabPages.Item(i)

        tabHead = currentTabPage.Text

        If tabHead = tabHeadStr Then

            tabControlH.Object.SelectedTabPageIndex = currentTabPage.TabIndex

        End If

    Next

End Function

'@【DEV相关】打印Menu上各元素名称

Function PrintMenuBtnItem(menuBarH)

    buttonCount =  menuBarH.Object.VisibleLinks.Count

    For i = 0 to buttonCount - 1

        Set buttonItem = menuBarH.Object.VisibleLinks.Item(i)

'         print i&")：【"&buttonItem.Caption&"】"

   print buttonItem.Caption

    Next

End Function

'@【DEV相关】取得DevMenu上的MenuCount数

Function GetMenuCount(menuBarH)

    GetMenuCount =  menuBarH.Object.VisibleLinks.Count

End Function

'@【DEV相关】取得DevMenu上的指定位置的Menu项名称

Function GetMenuName(menuBarH,ItemNum)

 Set buttonItem = menuBarH.Object.VisibleLinks.Item(ItemNum)

 GetMenuName=buttonItem.Caption

End Function

'@【DEV相关】检测Tab是否存在

Function IsExsitTab(tabControlH, tabHeadStr)

    tabCount = tabControlH.Object.TabPages.Count

    For i = 0 to tabCount - 1

        Set currentTabPage = tabControlH.Object.TabPages.Item(i)

        tabHead = currentTabPage.Text

        If tabHead = tabHeadStr Then

            IsExsitTab = True

            Exit Function

        End If

    Next

    IsExsitTab = False

End Function

'@【DEV相关】根据Btn名称返回Tool上该Btn的状态（是否可押）

Function GetToolButtonStateByName(menuBarH, buttonName)

    buttonCount =  menuBarH.Object.VisibleLinks.Count

    For i = 0 to buttonCount - 1

        Set buttonItem = menuBarH.Object.VisibleLinks.Item(i)

        If buttonItem.Caption = buttonName Then

            GetToolButtonStateByName=buttonItem.Enabled

        End If

    Next

End Function

'@【DEV相关】根据Btn名称返回Tool上该Btn的状态（是否可押）

Function GetToolButtonCheckedByName(menuBarH, buttonName)

    buttonCount =  menuBarH.Object.VisibleLinks.Count

    For i = 0 to buttonCount - 1

        Set buttonItem = menuBarH.Object.VisibleLinks.Item(i)

        If buttonItem.Caption = buttonName Then

            GetToolButtonStateByName=buttonItem.Checked

        End If

    Next

End Function

'@【DEV相关】确认Tab是否存在

Public Function StTabExistReport(tabControlH, tabHeadArr)

    tabCount = tabControlH.Object.TabPages.Count

 ReDim TabArr(tabCount)

    For i = 0 to tabCount - 1

        Set currentTabPage = tabControlH.Object.TabPages.Item(i)

        tabHead = currentTabPage.Text

  TabArr(i)=tabHead

  If tabHeadArr(j)=TabArr(j) Then

   reportPass " ◆存在"&tabHead&" Tab，文言正确",tabHead

  else

   reportFail  " ◆不存在"&tabHead&" Tab，或文言不正确",tabHead

  End If

    Next

End Function