Ho scopeto solo ora, perchè sono stato più attento che nella form01 del mio programma, richiamata per digitare o selezionare la data della giornata da movimentare, trovo di solito una ListBox aperta contenente tutte le date contabili incomplete. Qualora volessi riprendere una di esse, non farei altyro che cliccare sulla riga della ListBox con la data di mio interesse. Il click ha solamente lo scopo di scambiare la data formata da giorno-mese-anno relative alle tre ComboBox presenti nella form con quella scelta nella ListBox.List. Finito il lavoro il focus dovrebbe passare automaticamente al Button
"DtContOk", per permettere di verificare di avere scelto la data giusta e, cliccandovi poi sopra, di aprire la successiva Form per il trattamento dei movimenti relativi alla giornata contabile prescelta. Ebbene il passaggio del focus non funziona. Riporto qui appresso le varie situazioni visibili e il codice scritto per ottenere il nuovo
.setfocus1) allegato form01 iniziale
2) allegato form01 ottenuta dopo il click sulla listBox, ma senza l'istruzione .setfocus
3) allegato form01 ottenuta dopo il click sulla listBox, dopo l'inserimento dell'istruzione .setfocus
4) codice inserito per ottenere nella _Click il nuovo .setfocus
Public Sub ListGGAp_Click()
i_Ind = ListGGAp.Index
If I_Ind >= 0 Then
'...... bla ....... bla ....... bla .......
For i = 0 To i_Max
'...... bla ....... bla ....... bla .......
Next
DtContOk.SetFocus
Endif
End
Come risulta visibile dagli allegati, l'unica differenza fra l'allegato2 ( DtContOk.SetFocus non ancora inserito) e l'allegato3 ( DtContOk.SetFocus inserito) è il colore della riga selezionata nella LiostBox col click operato: nell'allegato2 è colorata in azzurro, mentre nell'allegato3 è colorata in grigio. L'allegato3 avrebbe dovuto invece presentare il colore giallo come colore di fondo di tutta la ListBox, mentre il DtContOk .button avrebbe dovuto presentarsi acceso, con l'usuale contorno puntato di indicazione di pulsante attivo.
Non ho trovato nel Forum niente di analogamente ragionato. Ho tentato con varie prove che sarebbe troppo lungo descrivere di ottenere il risultato voluto, ma senza mai riuscirvi.
