Taschenrechner

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Taschenrechner

Beitrag von Stephan »

Hiker hat geschrieben: Mo, 13.09.2021 08:22
Stephan hat geschrieben: So, 12.09.2021 21:09 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
Dateianhänge
EingabetastaturDialog.ods
(13.04 KiB) 89-mal heruntergeladen
Tastaturdialog.gif
Tastaturdialog.gif (26.06 KiB) 2511 mal betrachtet
Antworten