OpenOffice.info

Code: Alles auswählen

Public np_dia As Object
Public np_bib As Object
Dim stop_dia


Sub Main
	BasicLibraries.LoadLibrary("Standard")
	DialogLibraries.LoadLibrary("Standard")
	
	np_bib = DialogLibraries.Standard.Dialog1
	np_dia = CreateUnoDialog(np_bib)
	
	np_dia.addTopWindowListener(CreateUnoListener("wl_", "com.sun.star.awt.XTopWindowListener"))
	
	stop_dia = 0
	np_dia.visible = true
	
	Do
	
	Loop While stop_dia = 0
	
End Sub

Sub Ziffer(event)
	With ThisComponent.CurrentSelection
		.String = .string & event.source.model.label		
	End With
End Sub

Sub enter()
	With ThisComponent.CurrentSelection
		.FormulaLocal = .String
	End With
	
	dim document   as object
	dim dispatcher as object
	rem ----------------------------------------------------------------------
	rem get access to the document
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	
	rem ----------------------------------------------------------------------
	dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

End Sub


Sub wl_disposing(ev)
End Sub
Sub wl_windowOpened(ev) '+
End Sub
Sub wl_windowClosing(ev) '+
	stop_dia = 1 
End Sub
Sub wl_windowClosed(ev) '+
End Sub
Sub wl_windowMinimized(ev) '+
End Sub
Sub wl_windowNormalized(ev) '+
End Sub
Sub wl_windowActivated(ev) '+
End Sub
Sub wl_windowDeactivated(ev) '+
End Sub

Code: Alles auswählen

Sub Ziffer(event)
	With ThisComponent.CurrentSelection
		.FormulaLocal = .string & event.source.model.label		
	End With
End Sub

Code: Alles auswählen

sub enter()
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

end sub

Code: Alles auswählen

def add_digit(event):
    try:
        value = int(event.Source.Model.Label)
        doc = XSCRIPTCONTEXT.getDocument()
        sel = doc.CurrentSelection
        sel.Value *= 10
        sel.Value += value
    except:
        return

Code: Alles auswählen

Sub Zwei
oCell = ThisComponent.CurrentSelection
if ocell.supportsservice("com.sun.star.sheet.SheetCell") then

oCell.Value = oCell.string & 2       
endif