Ich muss ein Formular erstellen mit einem Textfeld in das eine Zahl eingetragen wird und ein zweites Textfeld in dem ein berechnetes Ergebniss ausgegeben wird.
Wie ich das Formular erstelle ist ganz einfach
Mein Problem ist:
Wie kann ich das Textfeld im Code auslesen und mit dieser Zahl sofort weiterrechnen und das ERgebniss ausgeben?
Bsp.:
eingegebene Zahl (in das Textfeld): 35
Rechnung: 35/5 Diese berechnung wird im Code des Makros vorgenommen
Ausgabe des Ergebnisses (im zweiten Textfeld): 7
Könntet ihr mir bitte dazu Tipps geben wie der Basic-Code dazu aussieht.
Danke
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗
Textfeld auslesen
Re: Textfeld auslesen
Hi,
Für den Writer könnte das so aussehen:
Gino
In welcher Anwendung: Writer, Calc, Draw, Impress oder Base?korbi90 hat geschrieben:Ich muss ein Formular erstellen
Für dieses Vorhaben empfehle ich Dir die Verwendung von "Numerischen Feldern", die Du auch bei den Formular-Steuerelementen findest.korbi90 hat geschrieben:mit einem Textfeld in das eine Zahl eingetragen wird und ein zweites Textfeld in dem ein berechnetes Ergebniss ausgegeben wird.
Für den Writer könnte das so aussehen:
Code: Alles auswählen
Option Explicit
Sub NF_Berechnung
Dim oDoc, oform, oController, oView, oNumField1, oNumField2 as Object
Dim nValue as Integer
oDoc = thisComponent
oController = oDoc.getCurrentController()
oform = odoc.drawpage.forms.getbyindex(0)
oNumField1 = oForm.getByName("NumericField1")
oView = oController.getControl(oNumField1)
nValue = oView.Model.value
oNumField2 = oForm.getByName("NumericField2")
oView = oController.getControl(oNumField2)
oView.Model.value = nValue/5
End Sub
Re: Textfeld auslesen
Hey Dankeschön
Muss man im Code eigentlich viel ändern wenn man den Code in Calc verwenden will?
Muss man im Code eigentlich viel ändern wenn man den Code in Calc verwenden will?
Re: Textfeld auslesen
Nein, nur etwas im oberen Bereich:korbi90 hat geschrieben:Muss man im Code eigentlich viel ändern wenn man den Code in Calc verwenden will?
Code: Alles auswählen
Sub NF_Berechnung
Dim oDoc, oform, oController, oView, oNumField1, oNumField2 as Object
Dim nValue as Integer
oDoc = thisComponent
oController = oDoc.getCurrentController()
mySheet = oDoc.Sheets().getByName("Tabelle1")
oform = mySheet.drawpage.forms.getbyindex(0)
oNumField1 = oForm.getByName("NumericField1")
oView = oController.getControl(oNumField1)
nValue = oView.Model.value
oNumField2 = oForm.getByName("NumericField2")
oView = oController.getControl(oNumField2)
oView.Model.value = nValue/5
End Sub