Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 8 su 8

Emulazione di ListBox con SubForm

  1. #1
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    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.
    Ultima modifica di @Alex; 25-03-2021 14:01 
    ℹ️ Leggi di pi su @Alex ...

  2. #2
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    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
    

  3. #3
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da muttley005 Visualizza il messaggio
    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
    ℹ️ Leggi di pi su @Alex ...

  4. #4
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    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)

  5. #5
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    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.
    ℹ️ Leggi di pi su @Alex ...

  6. #6
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    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 )

  7. #7
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    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
    ℹ️ Leggi di pi su @Alex ...

  8. #8
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    ok capito grazie

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 2
    Ultimo Post: 30-01-2014, 12:04
  2. rad studio xe5 e android [emulazione]
    Da Delphiprogrammer nel forum Delphi
    Risposte: 3
    Ultimo Post: 11-10-2013, 10:53
  3. [Access 2010 ] ricerca dati emulazione motore ricerca
    Da max-paso nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 14-03-2012, 14:51
  4. ListBox in SubForm, possibile?
    Da cicciospi nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 03-09-2010, 17:54
  5. Excel - emulazione di un piccolo database
    Da Angela nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 18-03-2009, 15:34