Elegantere Lösung - Buttons deaktivieren?

[turtle47]

Hallo Uwe,

Mehrere Buttons (Umschaltfunktion, Name: "PushButton1" usw., Zusatzinformation "1" usw.) sollen sich jeweils neben der eigentlichen Aktionsausführung (für Gruppierungen) auch deaktivieren (Durch ein anderes Makro werden sie später alle wieder aktiviert).

Das solltest Du Dir aber jetzt schon selber aus diesem zusammenreimen können.
Eine bessere Vorlage gibt es doch wohl kaum.

Code: Alles auswählen

Sub WhateverButtonPressed(oEvt)
	sButtonName = oEvt.Source.Model.Name
	oForm = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Standard" )
	oForm.getByName(sButtonName).Enabled = false
	..... 

Oder?

Jürgen

[turtle47]

Hallo Uwe,

oForm.getByName( "PushButton1" ).Enabled = false (nModifikator) '"PushButton1" = Name der Schaltfläche
oForm.getByName( "PushButton2" ).Enabled = false (nModifikator)
oForm.getByName( "PushButton3" ).Enabled = false (nModifikator)

Das verstehe ich jetzt nicht was Du da machst.

Es reicht doch nach meiner Vorstellung doch ein einfaches:

Code: Alles auswählen

    Sub WhateverButtonPressed(oEvt)
       sButtonName = oEvt.Source.Model.Name
       oForm = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Standard" )
       oForm.getByName(sButtonName).Enabled = false
    End Sub

um den auslösenden Button zu deaktivieren. Mehr nicht.

Mit den

Code: Alles auswählen

......

meinte ich:

neben der eigentlichen Aktionsausführung (für Gruppierungen)

Jürgen