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