OpenOffice.info

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

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