Magari Gam .. se necessario alle nuove implemetazioni vanno aggiunte le opportune funzionalità alla classe archivio ..
CITAZIONE (G73 @ 2/4/2021, 09:36)
Ciao Luigi e grazie veramente per il regalo "pasquale".
Ora ci sarà da passare il weekend consumando tasti F8/F9 e le dita... tra metti/togli breakpoint ed "esegui"... per studiare un po' il codice, per poi integrare qualche nuova funzione.
Da parte mia l'obiettivo è quello di aggiungere un "browser Analitico Posizioni compatto", analogo a quanto già fatto nel DoubleBrowser incluso come plug-in di SpazioMetria, per renderlo più fruibile e funzionale.
Saluti
Ciao , ho messo un nuovo video per spiegarlo ..
CITAZIONE (Palas @ 2/4/2021, 10:00)
.AddImageFromStream LoadResData("AMBICAPIGIOCO", "CUSTOM") '15
.PutImageToVBMenu 9, 0, 2
.PutImageToVBMenu 10, 1, 2
.PutImageToVBMenu 11, 2, 2
.PutImageToVBMenu 15, 3, 2
Private Sub mnuTabelloni_AMBICAPIGIOCO_Click()
Dim frm As New frmAmbiCapigioco
frm.Show
End Sub
Case "AMBICAPIGIOCO"
mnuTabelloni_AmbiCapigioco_Click
questo pezzetto di codice appartiene ad una funzione che viene richiamata quando l'archivio viene modificato (aggiornamento / cambio/ cammbio sequenza ruote)
e serve per aggiornare di conseguenza i form che potrebbero risentire del cambiamento e l odevono riflettere.
Quindi c'è un ciclo che scorre tra iform caricati (cioè quelli aperti dall'utente) e se i form che cerca li trova allora lancia una procedura il cui nome è sempre lo stesso
appartenente al tale form che ha trovato
frm.GestioneAggiornaVisualizzazione
frm di volta in volta vale il form che sta cercando sempre che lo abbia trvato
siccome abbiamo fatto in modo che tutti i form interessati da un eventuale cambio archivio abbiano la procedura GestioneAggiornaVisualizzazione
la possiamo richiamare.
poi è chiaro che ogni form dentro quella procedura farà le cse che servon oa quel form.
CITAZIONE (Palas @ 2/4/2021, 09:33)
Luigi ho una domanda in merito alle tendine poste a menu figlio
o Mod_Helper(Code)
If TypeOf frm Is frmAmbiCapigioco Then
Call frm.GestioneAggiornaVisualizzazione
End If
MDIFORM1 ?
