von eBayer » Mi, 22.07.2009 23:43
Hallo, ich habe das bei mir auf folgende Weise realisiert und es funktioniert sowohl unter 3.01 wie auch unter 3.1, allerdings in ooBase.
In Calc habe ich es nicht getestet, aber vielleicht hilft es ja auch in Deinem Fall.
Gruß eBayer
So rufe ich das unten stehende Makro zum anzeigen und zum verstecken meiner PushButtons auf:
- anzeigen : EnableButton(ThisComponent, true, "MyButton")
- verstecken: EnableButton(ThisComponent, false, "MyButton")
Sub EnableButton(oDoc As Object, bFlag As Boolean, sButton As String)
Dim oControl As Object, oController As Object, oForm As Object
oController = oDoc.getCurrentController()
oForm=oDoc.drawpage.forms.getbyindex(0)
oControl = oForm.getByName(sButton) ' Name der Schaltfläche
oController.getControl(oControl).visible = bFlag ' true oder false
End Sub
Hallo, ich habe das bei mir auf folgende Weise realisiert und es funktioniert sowohl unter 3.01 wie auch unter 3.1, allerdings in ooBase.
In Calc habe ich es nicht getestet, aber vielleicht hilft es ja auch in Deinem Fall.
Gruß eBayer
So rufe ich das unten stehende Makro zum anzeigen und zum verstecken meiner PushButtons auf:
- anzeigen : EnableButton(ThisComponent, true, "MyButton")
- verstecken: EnableButton(ThisComponent, false, "MyButton")
Sub EnableButton(oDoc As Object, bFlag As Boolean, sButton As String)
Dim oControl As Object, oController As Object, oForm As Object
oController = oDoc.getCurrentController()
oForm=oDoc.drawpage.forms.getbyindex(0)
oControl = oForm.getByName(sButton) ' Name der Schaltfläche
oController.getControl(oControl).visible = bFlag ' true oder false
End Sub