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.
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
Ich bekomme einen Basic Laufzeitfehler, Eigenschaft oder Methode nciht gefunden.
ykcim hat geschrieben:getControl ist überflüssig,
es sollte oElement.setEnable(False) lauten.
mfg
Michael
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:
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
ykcim hat geschrieben: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
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...
