OpenOffice.info

Verfasst: **So, 22.11.2009 15:48**

retuwe61 hat geschrieben: in den Ursprungszustand zurück setzen.

Was verstehst Du darunter?

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

Verfasst: **Mo, 23.11.2009 09:32**

Uwe,

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

Hilft Dir das?

Verfasst: **Di, 24.11.2009 09:05**

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!

Verfasst: **Mi, 25.11.2009 11:30**

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

OpenOffice.info

[Gelöst] Schaltflächen zurücksetzen

Re: Schaltflächen zurücksetzen

Re: Schaltflächen zurücksetzen

Re: Schaltflächen zurücksetzen

Re: Schaltflächen zurücksetzen