Hey apple,
OK, das versteh ich. Dann bastele dir eine Schleife oder erzeuge einen Array mit allen Feldnamen:
Code: Alles auswählen
sub FelderLerren
dim aListeTextfelder()
dim aListeBoxen()
aListeTextfelder = array("textfeld1", "textfeld2", "textfeld3") 'Liste der Textfelder
aListeBoxen = array("Checkbox1", "Checkbox2") ' Liste der Checkboxen
oForm = thisComponent.drawpage.forms(0) ' das Formular
for i = 0 to uBound(aListeTextfelder())
oForm.getByName(aListeTextfelder(i)).text = ""
next
for i = 0 to uBound(aListeBoxen())
oForm.getByName(aListeBoxen(i)).state= 0
next
end sub
Das wäre die Varainte mit Arrays.
Die Arrays kannst du dir sparen, wenn du alle Felder mit gleichen Namen versiehst und sie nur durchnummerierst - und die Namen dann direkt erzeugst, also im dem Fall etwa so:
Code: Alles auswählen
sub FelderLeeren2
oForm = thisComponent.drawpage.forms(0) ' das Formular
for i = 1 to 3
oForm.getByName("textfeld" & i).text = ""
next
for i = 1 to 2
oForm.getByName("Checkbox" & i).state= 0
next
end sub
Wie du dein Formular eakt erreichst, hängt natürlich vom verwendeten Modul und dem entsprechenden Formular ab - aber das weisst du sicher
Viele Grüße
Thomas