Il controllo struttura a schede per touch screen richiede qualche piccola modifica per essere efficacemente utilizzato.
Se la mia applicazione è usata su un touch screen, devo tenere presente che la superficie disponibile sarà molto probabilmente inferiore al consueto. Perciò le mie maschere devono essere più piccole e i dati raggruppati in modo efficiente. Il controllo struttura a schede (il tab control) è molto utile allo scopo. Tuttavia può risultare un po’ scomodo selezionare la pagina da visualizzare: occorre cliccare (o comunque toccare) il nome della scheda. Quando capita di non usare un pennino ottico, ma il semplice dito, può essere scomodo.
Una soluzione è quella di creare degli interruttori che mi consentano di selezionare la pagina.

Una sola istruzione VBA e il gioco è fatto. Ecco come:

1. creo il controllo struttura a schede e modifico lo Stile = Nessuna

così facendo non si vedono più i nomi delle schede su cui fare clic:

2. ora in struttura aggiungo un gruppo di opzioni (che chiamo fraControlloSchede)

3. e al suo interno aggiungo due interruttori, ai quali imposto Usa Tema = No

Quando inserisco un interruttore in un gruppo di opzioni ogni interruttore assume un valore:

 

il secondo avrà valore 2 e così via, se avessi più pagine.

Quando premo un interruttore il suo valore viene memorizzato nel gruppo di opzioni.

Perciò su Dopo Aggiornamento del Gruppo di opzioni, posso utilizzare tale valore per rendere visibile la pagina del controllo struttura a schede.

Tieni presente che le pagine del controllo struttura a schede iniziano con il numero 0, ossia la prima pagina che vedo (per noi Dati) ha valore 0, la seconda (Altro) ha valore 1.

4. L’istruzione VBA dell’evento Dopo aggiornamento del controllo gruppo di opzioni sarà la seguente:

Private Sub fraControlloSchede_AfterUpdate()
tbDati = fraControlloSchede - 1
End Sub

ossia tbDati sarà uguale al valore del gruppo di opzioni – 1.

Se premo Dati, il valore di fraControlloSchede è 1.

Dal momento che il controllo struttura schede ha la prima pagina che vale 1, devo semplicemente sottrarre 1 al valore di fraControlloSchede.