[Gelöst] Schaltflächen zurücksetzen

[komma4]

in den Ursprungszustand zurück setzen.

Was verstehst Du darunter?

Optik? Umschaltfunktion auf "nicht gedrückt"?
Schaltfläche mal mit Xray untersucht?

[komma4]

Uwe,

zur Nutzung von XRay: viewtopic.php?f=18&t=25913&p=110589


Hilft Dir das?

[komma4]

Hallo Uwe,


wenn Du die Variablen oForm, oButton1 usw. nicht schon (zu Programmbeginn) modulweit definiert und belegt hast ...

vllt. nur eine kleine Änderung:

Code: Alles auswählen

    Sub Buttons_reset
    oForm = ThisComponent.DrawPages.getByIndex(0).getForms().getByName( "Standard" )
    With oForm
      .getByName( "PushButton1" ).State = 0 
      .getByName( "PushButton2" ).State = 0
      .getByName( "PushButton3" ).State = 0
      .getByName( "PushButton4" ).State = 0
    End With
    End Sub

weil, dann brauchst Du auch in der Unterroutine keine Variable setzen, wenn sie dann später nicht noch weiter verwendet wird.


Viel Spass mit OOo noch!

[komma4]

Ja, vereinfacht ...

Code: Alles auswählen

    Sub Buttons_reset
        oForm = ThisComponent.DrawPages.getByIndex(0).getForms().getByName( "Standard" )
        oForm1 = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Standard" )
        oForm2 = ThisComponent.DrawPages.getByIndex(2).getForms().getByName( "Standard" )
        
        resetButtonState( oForm )
        resetButtonState( oForm1 )
        resetButtonState( oForm2 )
       
    End Sub

    ' ausgelagerte Routine: es wird das Formular übergeben
    Sub resetButtonState( tmpForm ) 
        With tmpForm
          .getByName( "PushButton1" ).State = 0
          .getByName( "PushButton2" ).State = 0
          .getByName( "PushButton3" ).State = 0
          .getByName( "PushButton4" ).State = 0
        End With
    End Sub