OpenOffice.info

Code: Alles auswählen

Sub Scroll_Up

getVerticalScrollbar().doAccessibleAction(1) 'large move up
End Sub

sub FakePageDn
getVerticalScrollbar().doAccessibleAction(1) 'large move down
End Sub

function getVerticalScrollbar() as Any
oAC = ThisComponent.CurrentController.Frame.ComponentWindow.AccessibleContext
oACScrollPane = SearchOneSecForChild(oAC, "", "", com.sun.star.accessibility.AccessibleRole.SCROLL_PANE)
'xray oACScrollPane
for k=0 to oACScrollPane.AccessibleChildCount-1
  oACChild = oACScrollPane.getAccessibleChild(k)
  if oACChild.AccessibleContext.AccessibleRole = com.sun.star.accessibility.AccessibleRole.SCROLL_BAR then
    oSize = oACChild.Size
    if oSize.Height > oSize.Width then
      getVerticalScrollbar = oACChild.AccessibleContext
      exit function
    endif
  endif
next k 

end function

function SearchOneSecForChild(oAC as Object, sName as String, sDescription as String, lRole as Long) as Object
for k=1 to 50
  oRes = SearchForChild(oAC, sName, sDescription, lRole)
  if not IsNull(oRes) then
    SearchOneSecForChild = oRes
    exit function
    endif
  wait(20)
  next k
end function

function SearchForChild(oAC as Object, sName as String, sDescription as String, lRole as Long) as Object
for k=0 to oAC.AccessibleChildCount-1
  oACChild = oAC.getAccessibleChild(k)
  if not HasUnoInterfaces(oACChild, "com.sun.star.accessibility.XAccessibleContext") then
    if HasUnoInterfaces(oACChild, "com.sun.star.accessibility.XAccessible") then
      oACChild = oACChild.AccessibleContext
      else
      exit function '    unexpected situation, maybe caused by some intermediate state
      endif
    endif
  boFound = true
 
  if sName<>""        then boFound = boFound and (oACChild.AccessibleName = sName)
  if sDescription<>"" then boFound = boFound and (oACChild.AccessibleDescription = sDescription)
  if lRole > -1       then boFound = boFound and (oACChild.AccessibleRole = lRole)

  if boFound then
    SearchForChild = oACChild
    exit function
    endif
  next k
end function 

Code: Alles auswählen

Sub Scroll_Up
getVerticalScrollbar().doAccessibleAction(0) 'short move up
End Sub