von paradigma » Di, 10.05.2011 01:28
Hallo Arek
Folgender Code blendet in einem Base-Formular ein Steuerelement aus oder ein, wenn in der Checkbox im gleichen Formular das Häkchen gesetzt oder nicht gesetzt ist. Das Makro funktioniert bei mir seit langer Zeit einwandfrei. Du musst es mit einem Ereignis der Checkbox verknüpfen - soweit ich mich erinnere, ist es "Status geändert". Falls du das Ausblenden in einer anderen Konstellation benötigst, sollte das Makro als Grundgerüst trotzdem verwendbar sein.
Gruss
paradigma
Code: Alles auswählen
Sub BezeichnungsfeldAusblenden
Dim oDoc as Object, oController as Object, oForm as Object, oControlEinAus as Object, oControlBedingung as Object, oView as Object
oDoc = thisComponent
oController = oDoc.getCurrentController()
oForm = odoc.drawpage.forms.getbyName("MainFormBestellungenAendernOderLoeschen")
oControlBedingung = oForm.getByName("FeldEinAus")
if oControlBedingung.state = 1 then
oControlEinAus = oForm.getByName("BezeichnungPosttarifeBriefeA")
oView = oController.getControl(oControlEinAus)
oView.visible = true
ELSE
oControlEinAus = oForm.getByName("BezeichnungPosttarifeBriefeA")
oView = oController.getControl(oControlEinAus)
oView.visible = false
End Sub
Hallo Arek
Folgender Code blendet in einem Base-Formular ein Steuerelement aus oder ein, wenn in der Checkbox im gleichen Formular das Häkchen gesetzt oder nicht gesetzt ist. Das Makro funktioniert bei mir seit langer Zeit einwandfrei. Du musst es mit einem Ereignis der Checkbox verknüpfen - soweit ich mich erinnere, ist es "Status geändert". Falls du das Ausblenden in einer anderen Konstellation benötigst, sollte das Makro als Grundgerüst trotzdem verwendbar sein.
Gruss
paradigma
[code]Sub BezeichnungsfeldAusblenden
Dim oDoc as Object, oController as Object, oForm as Object, oControlEinAus as Object, oControlBedingung as Object, oView as Object
oDoc = thisComponent
oController = oDoc.getCurrentController()
oForm = odoc.drawpage.forms.getbyName("MainFormBestellungenAendernOderLoeschen")
oControlBedingung = oForm.getByName("FeldEinAus")
if oControlBedingung.state = 1 then
oControlEinAus = oForm.getByName("BezeichnungPosttarifeBriefeA")
oView = oController.getControl(oControlEinAus)
oView.visible = true
ELSE
oControlEinAus = oForm.getByName("BezeichnungPosttarifeBriefeA")
oView = oController.getControl(oControlEinAus)
oView.visible = false
End Sub[/code]