Emulazione di ListBox con SubForm

Le ListBox sono estremamente comode, ma graficamente piatte, non supportano Icone nè Colorazioni di testo o Grassetto.

Ho realizzato un demo basic, per capire come con poco si possa ottenere un'effetto funzionale e graficamente più interessante delle ListBox.

Le immagini, ricreate graficamente con i Font grafici, sono interattive, viene rilevato il MOUSE ed in base alla posizione riconosciuto quale Immagine è sottesa, di conseguenza quale azione attuare.

CARENZE:
Selezione Multipla Estesa, più complessa da riprodurre, serve usare un'array o una Collection di Appoggio per la F.C.
Selezione Multipla Continua facile da riprodurre sfruttando la selezione dei Records continui... per la F.C.

Modificato in data 23/03/2021:
ListBoxEX.zip

Aggiunto Selezione Multipla Estesa 23/03/2021
Migliorata la Selezione Multipla Estesa 25/03/2021
ListBoxEX.zip

Resi funzionali sia l'uso del Tasto Shift che Ctrl per diversificare le 2 modalità di Selezione, simile alla ListBox.
Restituisce l'elenco delle PK selezionate premendo il Button con la spunta in basso a Dx.

Uso spesso anche io subform per simulare l'utilizzo di listbox proprio perchè permette maggior personalizzazione grafica e ti ringrazio perchè qualche anno fa proprio da te ho imparato l'uso dei caratteri grafici per evitare appesantimenti causati da immagini.
Se posso permettermi personalmente non mi piace molto l'effetto ottenuto premendo SU e GIU perchè attiva i controlli rimasti attivi (ma anche i disabilitati che hanno FC) quindi aggiungerei al load qualcosa di simile ad esempio

'FORMATTAZIONE CONDIZIONALE
    With Me.tFC
        .FormatConditions.Delete
        Set myFC = .FormatConditions.Add(acExpression, , "[ID]=[tCurrent]")
        .FormatConditions(0).ForeColor = RGB(255,0,0)
        .FormatConditions(0).Enabled = False
    End With
    With Me.ID
        .FormatConditions.Delete
        Set myFC = .FormatConditions.Add(acExpression, , "[ID]=[tCurrent]")
        .FormatConditions(0).ForeColor =  RGB(255,0,0)
        .FormatConditions(0).Enabled = False
    End With
    With Me.Descrizione
        .FormatConditions.Delete
        Set myFC = .FormatConditions.Add(acExpression, , "[ID]=[tCurrent]")
        .FormatConditions(0).ForeColor =  RGB(255,0,0)
        .FormatConditions(0).Enabled = False
    End With
    Set myFC = Nothing

in questo esempio le formattazioni le ho fatte identiche ma solo per brevità ma da codice si riesce anche a dare l'enabled a false, l'effetto mi piace di più, infatti premendo SU e GIU si passa al record precedente o successivo come da listbox.


EDIT:
che volendolo ridurre potrebbe essere (previa assegnazione della proprietà TAG nei vari controlli)

'FORMATTAZIONE CONDIZIONALE
    For Each C In Me.Controls
        If InStr(1, C.Tag, "#FC#") > 0 Then
            C.FormatConditions.Delete
            Set myFC = C.FormatConditions.Add(acExpression, , "[ID]=[tCurrent]")
            C.FormatConditions(0).ForeColor =  RGB(255,0,0)
        End If
    Next
    Set myFC = Nothing

Originariamente inviato da muttley005

Uso spesso anche io subform per simulare l'utilizzo di listbox proprio perchè permette maggior personalizzazione grafica e ti ringrazio perchè qualche anno fa proprio da te ho imparato l'uso dei caratteri grafici per evitare appesantimenti causati da immagini.
Se posso permettermi personalmente non mi piace molto l'effetto ottenuto premendo SU e GIU perchè attiva i controlli rimasti attivi (ma anche i disabilitati che hanno FC) quindi aggiungerei al load qualcosa di simile ad esempio

Puoi spiegarmi meglio... non ho capito il difetto cui accenni. (nel frattempo ho aggiornato il demo)
Grazie

se hai selezionato col mouse ad esempio il record 3 e premi il tasto freccia SU o GIU' ti si attiva uno dei controlli del record. Ad esempio quando si attiva il controllo tFC (che fa da sfondo) copre ovviamente anche l'ID e la Descrizione.
con la mia modifica invece passi al record sopra o sotto (in base al tasto)

Mah se io tolgo dalla proprietà "Seleziona con Tabulazione"=Si e metto NO mi pare sia sufficiente per risolvere la tua corretta considerazione.
In pratica metto a SI solo il CommandButton in Primo Piano.. scarica ora il DEMO e verifica se puoi se ho ben interpretato la tua considerazione.

si in effetti è così.
la mia è un'abitudine perchè le formatconditions non le faccio mai da autocomposizione ma da codice (mi sento meglio a vederle scritte )

Se ne hai 1 da inserire può passare... ma se i Controlli fossero molti, ti accorgeresti della differenza...
Ho fatto un Form con qualche centinaio di Controlli con F.C... ed impiegava svariati secondi su LOAD ad applicare la F.C., mentre se inserita nativa, quello che tu chiami AutoComp... tempo=0

ok capito grazie