OpenOffice.info

Hi,

vielen Dank Michael, es hat doch geklappt.
Lesen sollte man können ;)

Ich habe statt "oElement.Enabled=False" immer oElement.Enabled(False)" geschrieben. Hab´s grad gesehen, es geht jetzt ...

Vielen Dank, jetzt komme ich weiter...

Gruß Yeti

[quote="ykcim"]Sorry, ich hatte es nicht weiter geprüft, da ich dachte es ist nur ein Fehler.

Die Methdoe setenabled ist falsch.
Rchtig ist:

oElement.Enabled=False


mfg
Michael[/quote]

Hallo Michael,

vielen Dank für Deine Hilfe. Jetzt bekomme ich zwar keine Fehlermeldung mehr aber die Checkbox ist nach ausführen des Makros immer noch nicht gesperrt. Es passiert offensichtlich nichts.

Müsste jetzt eine Änderung des Zustandes der Checkbox nicht mehr möglich sein? Ich kann weiterhin den Haken reinsetzen und rausnehmen.

Ändere ich die Eigenschaft aber von Hand im Formularentwurf direkt, dann geht es...

Gruß Yeti

Sorry, ich hatte es nicht weiter geprüft, da ich dachte es ist nur ein Fehler.

Die Methdoe setenabled ist falsch.
Rchtig ist:

oElement.Enabled=False


mfg
Michael

oElement.setEnable(False)

Sub SperrenFeldTest001
Dim oForm as Object
Dim oElement as Object

oForm = ThisComponent.drawpage.forms(0)
oElement = oForm.GetByName("box_acrylglasscheibe")
oElement.setEnable(False)

End Sub

[quote="ykcim"]getControl ist überflüssig,
es sollte oElement.setEnable(False) lauten.

mfg
Michael[/quote]

Hi Michael,

danke für den Tipp, hat leider nicht geklappt. Ich bekomme immer noch die gleiche Fehelrmeldung, nur das jetzt diese Zeile als Fehlerquelle genannt wird:

[code]oElement.setEnable(False)[/code]

Was könnte noch das Problem sein? Der Name der Checkbox muss da doch rein oder?

[Edit]
Hier nochmal mein kompletter Code:
[code]Sub SperrenFeldTest001
Dim oForm as Object
Dim oElement as Object

oForm = ThisComponent.drawpage.forms(0)
oElement = oForm.GetByName("box_acrylglasscheibe")
oElement.setEnable(False)

End Sub
[/code]
[/Edit]

Gruß Yeti

getControl ist überflüssig,
es sollte oElement.setEnable(False) lauten.

mfg
Michael

Sub SperrenFeldTest001
Dim oForm as Object
Dim oElement as Object

oForm = ThisComponent.drawpage.forms(0)
oElement = oForm.GetByName("box_acrylglasscheibe")
oElement.getControl.setEnable(False)

End Sub

oElement.getControl.setEnable(False)

Hi,

ich habe mich die letzten Tage durch mein neues Buch durchgearbeitet. Anhand verschiedener Informationen und Codebeispielen aus dem Buch habe ich versucht die "Zugänglichkeit" einer Checkbox auf "False" zu setzen.

Hier mein bisheriger Code:

[code]
Sub SperrenFeldTest001
Dim oForm as Object
Dim oElement as Object

oForm = ThisComponent.drawpage.forms(0)
oElement = oForm.GetByName("box_acrylglasscheibe")
oElement.getControl.setEnable(False)

End Sub
[/code]

Ich bekomme einen Basic Laufzeitfehler, Eigenschaft oder Methode nciht gefunden.

Diese Codezeile wird als Fehelrhaft markiert:
[code]
oElement.getControl.setEnable(False)
[/code]

Kann mir jemand den Fehler erklären? Ich hab da bestimmt was durcheinandergebracht...

Vielen Dank im voraus
Yeti