Page in UserForm



  • Page in UserForm
    di Jelly (utente non iscritto) data: 15/10/2012 10:21:12

    Così giusto per rimanere in tema UserForm

    In una USerForm ho 2 page.

    Come faccio a dirgli attiva quella page o l'altra...

    Ho provato con Page1.Activate, Page1.Click ma nulla :(



  • di Vecchio Frac data: 15/10/2012 10:30:53

    Jelly, ma non eri iscritto? ^_^
    Ti riferisci al controllo a schede?
    Nell'esempio che posto, un command button cambia ad ogni pressione la pagina attiva.
    Il controllo a schede si chiama TabStrip1, ci sono due schede numerate da zero in avanti.
    Se la scheda attiva è la n° zero, passa alla 1, altrimenti passa alla zero.
     
    Private Sub CommandButton1_Click()
        If TabStrip1.Value = 0 Then
            TabStrip1.Value = 1
        Else
            TabStrip1.Value = 0
        End If
    End Sub






  • di HarryBosch data: 15/10/2012 10:56:46

    Io invece uso qualcosa di questo tipo (versione 2007, per cui non so se adattabile con precedenti).
    Dove MultiPage1 è il nome del contenitore, 0 la prima Page, 1 la seconda e così via...
     
    Private Sub CommandButton1_Click()
           MultiPage1.Value = 1
    end sub



  • di HarryBosch data: 15/10/2012 11:05:35

    quindi, ricalcando l'esempio di VecchioFrac, che era più completo, sarebbe come sotto
     
    Private Sub CommandButton1_Click()
        With MultiPage1
            If .Value = 0 Then
                .Value = 1
            Else
                .Value = 0
            End If
        End With
    End Sub



  • di Vecchio Frac data: 15/10/2012 11:49:55

    Non era più completo, era identico, a parte il nome del contenitore ^_^ e la mirabilante funzione di alternanza delle schede in esso contenute :P
    Comunque il tuo codice scritto così dovrebbe funzionare benissimo, a patto che il nome del controllo a schede sia "Multipage1".





  • di Vecchio Frac data: 15/10/2012 11:51:28

    E se vogliamo strafare si potrebbe anche scrivere come sotto :)
     
    Private Sub CommandButton1_Click()
        With MultiPage1
            .Value = IIf(.Value = 0, 1, 0)
        End With
    End Sub






  • di HarryBosch data: 15/10/2012 13:35:55

    [OT]
    @VecchioFrac
    Certo che stamattina non ero con i cip spenti... ero proprio senza!
    Quel "TabStrip1" lo avevo letto come "TabIndex"! che infatti mi risultava cosa nuova; per quello ho aggiunto il "Multipage".
    Ma non era altro che la traduzione dall'Inglese del tuo...



  • di HarryBosch data: 15/10/2012 13:36:30

    chip



  • di Jellyfish data: 18/10/2012 18:11:45

    Ho provato ma ancora c'è qualcosa che non mi torna. Appena capisco cosa vi aggiorno così mettiamo "risolto" anche a questa!

    Ciao
    Giorgia