OpenOffice.info

Code: Alles auswählen

Sub RegisterKeyListener
  for i=1 to 17
  mControls=oDialog.tabControllers(0).controls
  oKeyListener = createUnoListener("oKey_", "com.sun.star.awt.XKeyListener")
  mControls(i).addKeyListener(oKeyListener)
  next i  
End Sub

Sub UnregisterKeyListener
  for i=1 to 17
  mControls=oDialog.tabControllers(0).controls
  mControls(i).removeKeyListener(oKeyListener)
  next i
End Sub

Function oKey_KeyPressed(oEvt) As Boolean
  select case oEvt.KeyChar
    case chr(13)
       oKey_KeyPressed = True
    	Dim actControl as Integer
    	actControl = oEvt.Source.getModel().TabIndex
    	if actControl < 17 Then
	     Do while oDialog.AccessibleContext.getAccessibleChild(actControl+1).isEditable = "False"
	     actControl = actControl + 1 
 	     if actControl > 17 then actControl = 0 
	     Loop 
    	End If
    	oDialog.AccessibleContext.getAccessibleChild(actControl+1).setFocus()
    case else
       oKey_KeyPressed = False
  end select
End Function

Function oKey_KeyReleased(oEvt) As Boolean
  oKey_KeyReleased = False
End Function

Sub oKey_disposing(oEvt)
  'Muß nur vorhanden sein, keine weiter Funktion auslösen
End Sub

Code: Alles auswählen

Sub oKey_disposng(oEvt)
   'Muß nur vorhanden sein, keine weiter Funktion auslösen
End Sub

Code: Alles auswählen

Private oListenerObject as Object
Private oKeyListener as Object
Sub RegisterKeyListener
  for i=1 to 17
  oListenerObject = oDialog.AccessibleContext.getAccessibleChild(i)
  oKeyListener = createUnoListener oKey_", "com.sun.star.awt.XKeyListener")
  oListenerObject.addKeyListener(oKeyListener)
  next i  
End Sub

Code: Alles auswählen

Sub UnregisterKeyListener
  for i=1 to 17
  oListenerObject = oDialog.AccessibleContext.getAccessibleChild(i)
  oListenerObject.removeKeyListener(oKeyListener)
  next i
End Sub