Seite 1 von 1

alle checkboxen auf FALSE

Verfasst: Di, 30.03.2010 23:22
von spacerat
aloha,

ich hab da ein kleines problem. ich hab mehrere checkboxen an verschiedenen positionen in calc und wollte jetzt oberhalb eine schaltflaeche anlegen die mir ALLE checkboxen auf FALSE setzt, unabhaengig davon ob die
schon auf FALSE stehen oder immer noch auf TRUE. allerdings krieg ich das zum verrecken nicht hin, ich hab mich jetzt schon "wuschig" gesucht und leider nur was fuer excel gefunden, was aber so in der form nicht in
open office klappt.

meine frage also, wie setzt ich das um, das sobald ich die schaltflaeche anklicke, alle checkboxen auf FALSE springen?

bin fuer jede hilfe dankbar ;)

gruss

spacerat

Re: alle checkboxen auf FALSE

Verfasst: Mo, 05.04.2010 07:44
von turtle47
Hallo Spacerat,

hier mal ein Codebeispiel für das erste Tabellenblatt:

Code: Alles auswählen

Sub ResetMyCheckBoxes
	oForm = ThisComponent.Sheets().getbyName("Tabelle1").DrawPage.Forms.getByIndex(0)
	Anzahl = oForm.count
	for i = 0 to Anzahl-1
	oControl = oForm.ControlModels(i)
	if oControl.ServiceName = "stardiv.one.form.component.CheckBox"	then
	oControl.State = 0
	end if
	next i
End Sub
Viel Erfolg.

Jürgen