OpenOffice.info

Verfasst: **Sa, 12.06.2010 12:02**

Hallo Uwe,

retuwe61 hat geschrieben: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

Verfasst: **Sa, 12.06.2010 14:23**

Hallo Uwe,

retuwe61 hat geschrieben: 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:

retuwe61 hat geschrieben:neben der eigentlichen Aktionsausführung (für Gruppierungen)

Jürgen

OpenOffice.info

Elegantere Lösung - Buttons deaktivieren?

Re: Elegantere Lösung - Buttons deaktivieren?

Re: Elegantere Lösung - Buttons deaktivieren?