QTP DEV控件相关

来源：互联网发布：电子商务美工论文范文编辑：程序博客网时间：2024/06/06 14:10

'@【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

0 0