ich habe mir in einer Libreoffice Calc Tabelle ein Dialog erstellt, in dem Textfelder ausgefüllt werden sollen und in einer Tabelle ausgelesen werden sollen. Wenn ich den Dialog wieder öffne soll die Eingabe die vorher gemacht wurde wieder in den Textfeldern stehen.
Folgenden Code würde ich dafür benutzen:
Code: Alles auswählen
Sub Start_Dlg
Dialoglibraries.Loadlibrary("Tools")'Achtung Bibliothek anpassen
MyDlg= CreateUnoDialog(Dialoglibraries.TEST.Adresse) 'Achtung Bibliothek und Dialogname anpassen
Auslesen
MyDlg.execute()
End Sub
Sub Auslesen
oDoc = thisComponent
mySheet = oDoc.Sheets("Tankbau")
mycell = mysheet.getCellRangeByName("AM1")
myString1 = mycell.string
MyDlg.getControl("TextField1").Text = myString1
End Sub
Sub Schreiben
odoc=thisComponent
MyCtrl=MyDlg.getControl("TextField1")
MyText = MyCtrl.Model.Text
mySheet = oDoc.Sheets("Tankbau")
mycell = mysheet.getCellRangeByName("AM1")
mycell.string=MyText
End Sub
Könnt Ihr mir weiterhelfen?
Vielen lieben Dank.
LG Joé