Taschenrechner

[Stephan]

Letztlich müsste der Threadsrtarter sagen was er insgesamt will, dann könnte man gezielter Ratschläge geben.

Aus einer PN/dem von Karolus verlinkten Thread:

da ich aber ein windows tablet habe würde ich das gerne portable machen indem in LO Calc in einer ecke das integriete Numpad ist damit man es per touch eingeben kann

siehe: https://www.libreoffice-forum.de/viewto ... 12&t=36467

dann würde ich das per Dialog lösen, wie bereits angedeutet.

z.B.:

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

Gruß
Stephan