- The function GetPageNumPixels accepts a Page test object and calls the function GetDocumentElement.
- The function GetDocumentElement accepts the same Page object and retrieves, via the Object property, the documentElement for either a Page that is standards-compatible or not.
- The function GetDocumentElement then calculates the rectangle occupied by the page (including hidden parts) based on its client Height and Width and returns it. If some problem arises, the function returns -1.
Function GetPageNumPixels(ByRef oPage) Dim result Dim root Set root = GetDocumentElement(oPage) If Not root Is Nothing Then result = root.clientHeight*root.clientWidth Else result = -1 End If GetPageNumPixels = result End Function
Function GetDocumentElement(ByRef oPage) Dim root On Error Resume Next With oPage.Object Select Case LCase(.document.compatMode) Case "backcompat" Set root = .document.body Case Else Set root = .document.documentElement End Select End With If Err.Number <> 0 Then Reporter.ReportEvent micFail, "GetDocumentElement", "Could not get document element for page." Set root = Nothing Err.Clear End If On Error Goto 0 Set GetDocumentElement = root End Function
About Meir Bar-Tal
Meir Bar-Tal is an Automation Architect with extensive technical, educational and leadership experience in Software Design, Development and Testing. For many years Meir has helped companies establish solid foundations for their testing activities with a wide variety of software applications and systems and across different technologies and platforms. Meir is a well-known expert in Data-Driven, Keyword Driven and Hybrid methodologies and has published a number of influential articles on the applications of Design Patterns to Test Automation. For the last five years, he has been pushing forward an ambitious program towards the development of an Object Oriented automation framework named Sunscrit, a huge project which is still underway. Meir is the owner of www.AdvancedQTP.com of which he was a co-founder in 2007 and served as its Editor in Chief, Author and Forums Administrator ever since. Meir lives in Israel and cooperates closely with HP R&D and other colleagues to improve the user experience and productivity with HP Software tools.