27/11/13 14:07
rocchissimo
Buongiorno a tutti, eccomi con un nuovo quesito XD
Io ho un form, all interno sono presenti 5 panel (normalmente nascosti) 1 button e 1 textbox.
Dentro ad ogni panel e' presente un label e un button.
Il panel sono "impilati" (vedere immagine allegata 1)
Quando un utente preme il pulsante presente nel form viene richiamata una sub che verifica il valore della variabile nsveglia: In base a questo definisce quale panel visualizzare e dove memorizzare il dati della textbox
Sub per mostrare i panel:
Cliccando sul pulsante presente in ogni panel visualizzato quest'ultimo dovrebbe essere "eliminato", cioè se sono visualizzati 3 panel e viene cliccato "elimina" sul primo (a partire dall'alto) il testo del label del primo panel dovrebbe essere rimpiazzato con quello del secondo, il testo del label del 2 panel viene rimpiazzato con il testo del label del terzo panel e il terzo pannello viene nascosto. (Vedere immagine allegata 2)
Dopo tutta questa spiegazione il mio problema e': come posso scrive una sub che mi faccia le operazioni descritte prima?
P.s: l' effetto che vorrei ottenere e' dello stesso tipo che si ottiene quando si elimina una sveglia dall'applicazione "orologio" dell'iphone, ma senza spostare (quindi senza modificare le cordinate) del panel. Chiaramente senza l'animazione dello scorrimento.
Io ho un form, all interno sono presenti 5 panel (normalmente nascosti) 1 button e 1 textbox.
Dentro ad ogni panel e' presente un label e un button.
Il panel sono "impilati" (vedere immagine allegata 1)
Quando un utente preme il pulsante presente nel form viene richiamata una sub che verifica il valore della variabile nsveglia: In base a questo definisce quale panel visualizzare e dove memorizzare il dati della textbox
Sub per mostrare i panel:
Private Sub Mostra_pannello() Dim nsveglia as Integer Select Case nsveglia Case 0 Panel1.Visible = True Label1.Text = TextBox1.Text nsveglia = nsveglia + 1 Case 1 Panel2.Visible = True Label2.Text = TextBox1.Text nsveglia = nsveglia + 1 Case 2 Panel3.Visible = True Label3.Text = TextBox1.Text nsveglia = nsveglia + 1 Case 3 Panel4.Visible = True Label4.Text = TextBox1.Text nsveglia = nsveglia + 1 Case 4 Panel5.Visible = True Label5.Text = TextBox1.Text nsveglia = nsveglia + 1 Case 5 Panel6.Visible = True Label6.Text = TextBox1.Text nsveglia = nsveglia + 1 Case 6 Panel7.Visible = True Label7.Text = TextBox1.Text nsveglia = nsveglia + 1 Case 7 Panel8.Visible = True Label8.Text = TextBox1.Text p8 = True nsveglia = nsveglia + 1 End Select
Cliccando sul pulsante presente in ogni panel visualizzato quest'ultimo dovrebbe essere "eliminato", cioè se sono visualizzati 3 panel e viene cliccato "elimina" sul primo (a partire dall'alto) il testo del label del primo panel dovrebbe essere rimpiazzato con quello del secondo, il testo del label del 2 panel viene rimpiazzato con il testo del label del terzo panel e il terzo pannello viene nascosto. (Vedere immagine allegata 2)
Dopo tutta questa spiegazione il mio problema e': come posso scrive una sub che mi faccia le operazioni descritte prima?
P.s: l' effetto che vorrei ottenere e' dello stesso tipo che si ottiene quando si elimina una sveglia dall'applicazione "orologio" dell'iphone, ma senza spostare (quindi senza modificare le cordinate) del panel. Chiaramente senza l'animazione dello scorrimento.
Ultima modifica effettuata da rocchissimo 27/11/13 14:26
aaa