|
Utilizzo dei controlli MultiPage e TabStrip. (Controlli ActiveX per UserForm) - pagina vista: volte Requisiti: conoscenza dei cicli For Next e degli "insiemi" di oggetti. Tra i vari "oggetti" (controlli ActiveX) che troviamo nella "Casella degli strumenti" inseribili in una UserForm, oggi ci occupiamo del controllo "Multipage" (pagine) e del controllo "Tabstrip" (schede). Entrambi i controlli ci consentono di poter gestire con una unica UserForm, il contenuto di più fogli di lavoro, destinando ogni singola "pagina" o "scheda" del controllo ad ogni singolo foglio delle nostre cartelle xls. Un vantaggio in termini di "peso" del file che conterrà una sola userform, ed un modo gradevole e più veloce nel passare da una pagina (o scheda) all'altra e quindi visualizzare o inserire dati nei relativi fogli o aree associati.
I due controlli sono dimensionabili a piacere, e converrà adattare la loro dimensione alla dimensione della userform; la navigazione avverrà poi semplicemente selezionando una delle pagine (o schede) che avremo selezionato. I controlli di default si presentano con due sole pagine (o schede) ma potremo aggiungere quante pagine (o schede) vorremo: possiamo agire in fase di progettazione, selezionando col destro del mouse l'ultima "page" o "Tab", e dal menù contestuale che appare, scegliere "aggiungi pagina" (o aggiungi scheda), così:
Come si nota è altresì possibile eliminare, rinominare, spostare la pagina (o scheda) selezionata. Se invece vorremo aggiungere pagine o schede in fase di esecuzione, sfrutteremo l'evento UserForm_Activate dove inseriremo le istruzioni necessarie. Prima però di proseguire è necessario fare alcune considerazioni: Questi due controlli quasi simili, differiscono per il modo in cui possono gestire il layout delle pagine o schede:
Entrambi i controlli sono dei "contenitori" di "insiemi" : il Multipage è il contenitore dell'insieme Pages contenente uno o più oggetti Page ; il Tabstrip è il contenitore dell'insieme Tabs contenente uno o più oggetti Tab. Come per tutti gli "insiemi", sarà possibile identificare le pagine o schede attraverso il loro numero indice, indice che inizia dal numero 0 (zero, non da 1), e quindi avremo:
Diventa quindi necessario approfittare dell'evento Change per istruire istruzioni condizionali che, verificando il numero indice della pagina o scheda selezionata (quindi attiva) eseguano istruzioni appropriate. Potremo usare il construtto If...Then...End If oppure il Select Case, a nostro piacere per impostare l'esecuzione di appropriate istruzioni. Qui farò un esempio specifico su un preciso lavoro, e vedremo come impostare le istruzioni necessarie per interreagire tra pagine o schede, gli "oggetti" ivi inseriti, e i dati che avremo su fogli di lavoro o che vorremo aggiungere a tabelle esistenti. Riprendiamo quindi esemplificando come aggiungere pagine (pages) o schede (Tabs) all'avvio della userform; sfruttiamo il metodo Add degli "insiemi" "pages" o "tabs"; da notare che in questo esempio non è necessario indicare il numero indice delle page o delle tab da aggiungere; tale indice viene assegnato automaticamente e progressivamente in base ai numeri indice già presenti, come pure il nome che verrà visualizzato nella Caption della pagina (o tab) aggiunta. Visto che i due controlli si presentano di default con due pagine (Page1 numero indice 0 e Page2 numero indice 1) o schede (Tab1 index 0 e Tab2 index1), la routine sotto aggiungerà altre 3 pagine e 3 schede: usiamo un ciclo For Next
Le pagine aggiunte sarranno: Page3 numero indice 2, Page4 numero indice 3, Page5 numero indice 4; lo stesso dicasi per le schede aggiunte (tab), e quindi vedremo questo (lo stesso sarà per le Tab):
Useremo ancora l'evento Activate della userform e forniremo la stringa voluta usando il nome della pagina (non il suo numero indice) di cui vogliamo modificare la proprietà Caption; le istruzioni le inseriremo dopo che il ciclo ha aggiunto le pagine necessarie, oppure avremmo potuto usare una matrice dei nomi da assegnare alle pagine, facendo scorrere l'indice di matrice sfruttando il ciclo:
Attenzione: le istruzioni sopra modificano la Caption delle Page1 e Page2, NON il loro nome (Name), che resterà tale. Per assegnare nuovi nomi alle Caption avremmo potuto usare il loro numero indice relativo all'insieme Pages anzichè il nome (Name) della pagina, esempio:
oppure sfruttare il metodo Item applicato all'oggetto Pages (il metodo Item restituisce un membro di un insieme, in base alla posizione o al nome).
Controllo TabStrip. (Schede) Quando inseriamo un controllo in una scheda, ad esempio una textbox nella scheda Tab1, la stessa textbox sarà la stessa, sia come nome sia come posizione, per tutte le altre schede presenti, e dovremo però diversificare la correlazione del dato da visualizzare al variare della scheda (Tab) selezionata; lo stesso dicasi per eventuali commandbutton, listbox, ecc. ecc. Per questo motivo si dice che il "layout" sarà lo stesso e non si può diversificare e, visto che con il controllo TabStrip non possiamo cambiare il layout delle schede, si suppone che i dati e/o le operazioni da fare con i controlli che inseriremo saranno composti possibilmente dallo stesso numero di campi, per ognuno dei quali inseriremo ad esempio tante textbox quanti saranno i campi. Non sarebbe male inoltre, per evitare confusioni, che le posizioni delle celle correlate alle textbox iniziassero su tutti i fogli (richiamati dalle rispettive schede), nella stessa riga e stessa colonna di ogni foglio, questo perchè sarà conveniente, ove possibile, usare dei cicli per il reperimento dati foglio/textbox, ed è opportuno che il numero indice del ciclo identifichi le stesse righe/colonne uguali per ogni foglio di lavoro; ma questo non è determinante, come pure il fatto che le tabelle da cui estrarremo i dati siano composte da un numero maggiore di campi di quanti ne vedremo sulla scheda attraverso le textbox, dipenderà infatti dall'uso che faremo delle schede, cioè se per consultazione dati oppure anche inserimento dati. Se useremo le schede per inserimento dovremo predisporre tante textbox quanti saranno i campi da aggiornare, mentre se sarà solo per consultazione, potremmo decidere di visualizzare solo alcuni dei campi presenti nella tabella sul foglio. i più smaliziati avranno comunque capito che per l'inserimento, potremmo usare lo stesso numero di textbox che servono per la consultazione, e l'impiego di inputbox per il reperimento dei dati necessari ma eccedenti il numero di textbox predisposte. Un altra possibilità di sfruttare un controllo TabStrip è quello di visualizzare su più schede i dati correlati ad un unica tabella posta su un solo foglio, ma con molti campi. Per visualizzare ad esempio le informazioni di un'applicazione per la gestione dei dipendenti: sarà possibile includere in una scheda le informazioni personali, quali il nome e l'indirizzo, in un'altra scheda l'elenco dei precedenti datori di lavoro e in una terza scheda l'elenco delle referenze, normalmente tutti campi che appartengono ad una unica tabella su di un solo foglio. Qualunque sia comunque ciò che vorremo visualizzare, dovremo sfruttare l'evento Change del Tabstrip per inserire le istruzioni condizionali che serviranno a collegare i dati da visualizzare, e le istruzioni sono semplici. Passiamo agli esempi: Esempio con TabStrip. intanto imposteremo le tabelle sui fogli contenenti i dati in modo che le intestazioni di colonna inizino tutti da una stessa riga ed una stessa colonna, poi rinomineremo i nomi dei fogli con la descrizione di ciò che conterrà il foglio: io esemplifico con 3 fogli, un foglio "Clienti", un foglio "Fornitori", un foglio "Articoli"; per semplificare l'esempio ho impostato 4 campi per ogni tabella, vediamo le 3 tabelle:
Per quanto riguarda il TabStrip, aggiungiamo 1 scheda in fase di progettazione (3 schede in totale x 3 fogli), inseriamo 4 TextBox che ci serviranno sia per la visualizzazione dei dati presenti nella tabelle associate (4 campi ogni tabella), sia per l'inserimento di nuovi dati, e 4 Label che ci forniranno le descrizioni del contenuto delle TextBox e che corrispondono alle intestazioni di colonna; poi inseriamo uno ScrollBar verticale che ci servirà per scorrere i dati nelle tabelle in modo da visualizzarli nelle TextBox; poi inseriamo un CommandButton che avrà lo scopo di aggiungere nuovi dati. Aggiungeremo un secondo CommandButton che avrà il compito di consentire la modifica di dati già inseriti e in quel momento presenti nelle TextBox. Avremmo potuto inserire altri controlli come una ComboBox o ListBox per la visualizzazione di uno o più campi delle rispettive tabelle, come pure provvedere l'applicazione di una ricerca dati, ma lo scopo dell'articolo è solo quello di fornire le indicazioni di base senza complicare troppo istruzioni e spiegazioni. Comunque sotto vediamo le immagini della UserForm con il TabStrip1 inserito e relativi controlli aggiunti:
A questo punto vediamo le istruzioni facendo una premessa:
e le nostre istruzioni inizieranno con: (queste inserite nella sezione Generale - Dichiarazioni)
queste le istruzioni poste nell'evento Activate della UserForm :
Vediamo ora le istruzioni inserite nell'evento TabStrip1_Change(), cioè l'evento che si genera quando selezioniamo una scheda diversa da quella attiva; poichè abbiamo bisogno di adattare le Caption delle Label alle nuove intestazioni di campo del foglio corrispondente alla scheda selezionata, come pure dovremo far corrispondere i dati della tabella del relativo foglio, ripetiamo il reperimento del Value e del nome del Foglio della scheda ora attiva, ripetendo un ciclo per la lettura dei dati e assegnazione a Label e TextBox
Ora passiamo alle istruzioni assegnate al CommandButton1, quello che serve per inserire nuovi dati. In questa fase abbiamo bisogno di:
Per ottenere la pulizia delle TextBox e contemporaneamente la possibilità di registrare su foglio nuovi dati con un unico CommandButton ("Inserisci Dati"), sfruttiamo la proprietà Caption del CommandButton, modificandola e creando un istruzione condizionale: al primo click sul CmdBtn facciamo pulire le textbox e contemporaneamente impostamo la Caption del cmdbtn con la voce "Registra"; al secondo click SE la Caption sarà uguale a "Registra" facciamo registrare i dati delle textbox nella riga trovata libera, e rinominiamo la Caption in "Inserisci Dati"; è modificando la Caption che otteniamo il diverso comportamento da un solo CmdBtn. Una cosa molto importante da tenere presente, e che ogni dato scritto in una TextBox è SEMPRE visto dal codice come una stringa di testo. Non avremo problemi a trasferire i dati dalle textbox alle celle del foglio se i dati sono "testo", ma cosa succede se dovremo trasferire dati di tipo data, orario, o valori numerici? per evitare effetti indesiderati dovremo usare le funzioni di conversione del tipo di dati (vedi articolo "Variabili e tipi di dati"). Nella scheda "Articoli" ad esempio, dobbiamo inserire il prezzo dell'articolo, e trattandosi di un valore in euro, avremo bisogno di definirlo ad esempio come Tipo di Dato Double. Purtroppo non è possibile in un ciclo semplice che legga il contenuto di Textbox per il trasferimento a celle dei dati letti, definire anche Tipi di Dati diversi, e dovremo impostare istruzioni separate per il trasferimento dati da ogni textbox alla relativa cella di pertinenza, indicando la funzione opportuna per ogni dato trasferito. Nell'esempio che ho impostato, per la scheda Articoli, è solo l'ultima TextBox a dover essere precisata nel Tipo di Dato; useremo un ciclo quindi sulle prime tre textbox, mentre diversificheremo l'istruzione per la quarta textBox. Esiste un altro problemino: se dichiariamo ad esempio un Tipo di Dato numerico, e ci siamo dimenticati di inserire (in questo caso il prezzo) il dato, generiamo l'errore di run-time 13 in quanto "Tipo non corrispondente"; infatti una stringa vuota (textbox senza dati) non è esattamente quello che il codice si aspetta di impostare (un numero di tipo Double). Lo stesso errore si genera se anzichè lasciare la textbox4 vuota, ci scriviamo testo, o altro dato che non sia un numero. Possiamo usare quindi una verifica con If..Then..End If e sfruttando la Funzione VarType (vedi guida in linea) che restituisce un numero che identifica il tipo di variabile usata: se la textbox4 è diversa da 5 (valore restituito da una variabile Double), usciamo dalla routine avvisando di riscrivere il dato (If VarType(Textbox4) <> 5 then...). Ma consiglio di usare un tipo di verifica più elastica sfruttando la Funzione IsNumeric che si limita a valutare se un dato è numerico o no (If IsNumeric(TextBox4) = False Then...). Ma questa modifica alla quarta TextBox ci interessa solo se saremo sulla scheda "Articoli" (le altre schede trasferiscono tutte dati di tipo testo), ed abbiamo bisogno di diversificare le istruzioni di trasferimento in funzione del foglio al quale ci riferiamo. Useremo un Select Case che leggendo il Value della scheda attiva, diversifichi le istruzioni, queste:
E' chiaro che se ci fossero più diversificazioni nei "tipi di dati" dovremo usare più istruzioni separate, indicando per ogni textbox il relativo indirizzo di riga e di colonna della cella del foglio dove inviare i dati stessi. Per quanto riguarda il pulsante "Modifica Dati" il discorso è semplice: lo useremo dopo che avremo agito sul pulsante dello ScrollBar, scorrendo i dati di una qualsiasi delle tabelle presenti, quindi avremo che il valore che ci interessa per determinare su quale riga si trovano i dati che vedremo nelle TextBox, è il valore rappresentato dalla variabile pubblica Riga, valore che ci servirà per "riscrivere" i dati sulle 4 celle di quella riga. Anche in questo caso dovremo valutare su quale foglio ci troviamo per fare in modo da trasferire il "tipo di dato" opportuno, quindi le istruzioni inserite nell'evento Click del CommandButton2 sono:
Per ultime vediamo le istruzioni associate all'evento Change dello ScrollBar, evento che si genera quando faremo scorrere il pulsante. Non è necessario ridefinire i valori di "Foglio" e di "Quale" in quanto li avremo già in memoria, ci limitiamo a reimpostare la variabile Riga attraverso l'assegnazione del Value che in quel momento avrà lo ScrollBar, ed usare il valore di Riga per sostituire il contenuto delle TextBox con i dati che saranno sulla tabella corrispondente al foglio, sulle celle della riga "Riga":
Se useremo il controllo Multipage basterà sostituire tutte le istruzioni e gli eventi dove compare "TabStrip1" con "Multipage1". C'è da dire che, potendo cambiare il layout in ogni Page, risulterà più opportuno usare istruzioni personalizzate (e meno cicli) per gli "oggetti" inseriti che sicuramente si diversificheranno per tipo e/o quantità, sfruttando più condizioni da verificare al variare della Page su cui ci troveremo. Le istruzioni sopra esemplificate vogliono essere solo un indicativo che potrà aiutare quanti si vorranno cimentare con questi "Controlli ActiveX".
File consultabile e scaricabile : TabstripePage.zip 19 Kb
prelevato sul sito www.ennius.altervista.org |
