Spin button



  • Spin button
    di Pirex (utente non iscritto) data: 28/11/2010

    Salve a tutti, non riesco a capire
    come posso aumentare o diminuire , con un spin button una data inserita in una textbox.
    mi date una dritta

    grazie



  • di Big ronnie (utente non iscritto) data: 28/11/2010

    Ciao pirex,

    prova così.

    ciao big
     
    Sub SpinButton1_SpinDown()
    'Diminuisci del valore assegnato alla propietà SmallChange
    Me.TextBox1 = CDate(Me.TextBox1) - Me.SpinButton1.SmallChange
    End Sub
    Sub SpinButton1_SpinUp()
    'Aumenti del valore assegnato alla propietà SmallChange
    Me.TextBox1 = CDate(Me.TextBox1) + Me.SpinButton1.SmallChange
    End Sub
    


  • Re spin button
    di Pirex (utente non iscritto) data: 29/11/2010

    Grazie ho capito il funzionamento, ma incrementa solo di un giorno. per poter incrementare molti giorni, uso un cilo for next ?
    grazie ciao


  • Spinbutton problema risolto
    di Pirex (utente non iscritto) data: 29/11/2010

    Ecco come ho risolto con l aiuto di big ronnie
    lo spin button incrementa la textbox1, o decrementa la data. la textbox8, all apertura della form prende la data odierna sul foglio aperto.
    forse non e' perfetto, ma funziona grazie big
     
     Private Sub SpinButton1_SpinDown()
    'Diminuisci del valore assegnato alla propietà SmallChange
     permanenza.TextBox1 = CDate(permanenza.TextBox8) - permanenza.SpinButton1.SmallChange
     TextBox8.Value = TextBox1.Value
     End Sub
    
    Sub SpinButton1_SpinUp()
    'Aumenti del valore assegnato alla propietà SmallChange
    permanenza.TextBox1 = CDate(permanenza.TextBox8) + permanenza.SpinButton1.SmallChange
    TextBox8.Value = TextBox1.Value
    End Sub