Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione sviluppata con voi

Salve,
Ve la ricordate?
Public Function KeyInCollection(AColl As Collection, AKey As String) As
Boolean
    Dim vTest As Variant
    On Error Resume Next
    vTest = AColl(AKey)
    KeyInCollection = CBool(Err.Number = 0)
    On Error GoTo 0
End Function
Teoricamente questa funzione dovrebbe restituirmi TRUE se la Key č
nella collection e FALSE se non lo č. Giusto?
Ciao
Andrea


 Mmmm forse mi hai "plonkato" tempo fa cmq...
 ...che pensi che qui siamo diventati tutti il tuo "debug" personale ?
 Premi F8 e buon lavoro!!!
--------------------------------
Inviato via 
http://usenet.libero.it

  Premi F8 e buon lavoro!!!
Gia ho premuto F8, pezzo di ameba fossilizzata, solo che non mi
ricordavo alcuni dettagli implementativi e volevo una veloce
rinfrescata, senza dovermi mettere  a cercare su Google.
Ad ogni modo, da solo, ho trovato il problema, che
risiedeva in questa riga:
vTest = AColl(AKey)
Questa riga non teneva conto della possibilità che vi
fosse una classe come elemento della collezione, quindi
modificandola così:
If IsObject(AColl(AKey)) Then
        Set vTest = AColl(AKey)
    Else
        vTest = AColl(AKey)
    End If
Ho ottenuto la versione corretta.
Per quanto riguarda te: PLONK.
Andrea

[The DeerBear] scrisse:
(snip)
Guarda che questa volta, imnsho, nkeccetera aveva più che ragione a
trattarti male.
Ti sfido ad evincere dal tuo post iniziale quale fosse l'oggetto del
contendere. ma il mio parere su come scrivi i post iniziali te l'ho già
detto.
E adesso, in tutta tranquillità, plonka pure me.
Salutoni
Sergio

 Sergio
Andrea

 Tu puoi, ma lui no.
c'è un personaggio, che spesso bazzica da queste parti, che teorizza
l'utilità/necessità di cambiare spesso nick, perchè un post dovrebbe essere
valutato per quello che è, non per chi lo manda. io ho civilmente discusso
con lui (è una persona con la quale è molto facile discutere civilmente)
perchè lo ritenevo in errore, ma sto incominciando a ricredermi.
perchè io potrei trattarti male, e nkeccetera (nk non se ne abbia a male se
storpio il suo nick, è che per scriverlo giusto dovrei andarlo a leggere
ogni volta, e sono troppo pigro per farlo) invece no? (a parte il fatto che
bisognerebbe sempre evitare di trattarsi male, naturalmente).
il fatto che nk abbia in passato sollevato qualche flame non dovrebbe
esentarci dal valutare i suoi post "nel contesto" in cui sono inseriti,
senza interpretarli invariabilmente alla luce di quelli passati.
lasciamo che sia google a ricordarci di tutte le nostre malefatte, per noi,
ogni tanto, sarebbe meglio cancellare la ram, almeno dalle quisquilie.
Salutoni da un
Sergio filosofo


Sě, funziona, perň per fare la ricerca utilizza il valore della chiave
dell'elemento della collection.
Ciao
-- 
Skysurfer

 Sergio filosofo
Andrea

 Ciao
Ciao
Andrea

 nella collection e FALSE se non lo č. Giusto?
Prova cosě: dovrebbe anche essere piů performante
Public Function KeyInCollection(AColl As Collection, AKey As String) As 
Boolean
     On Error GoTo NotFound
     KeyInCollection = (VarType(AColl(AKey)) >= 0)
     On Error GoTo 0
     Exit Function
NotFound:
     KeyInCollection = False
End Function
Ciao

 quisquilie.
Personalmente svuoto il kill-file a tutte le festività principali ;-)
Certo, tranne qualche traglione eccellente, che ha il posto
riservato, ma nessuno fa parte di questo NG, per fortuna.
Certo, mi piacerebbe poter cancellare le _mie_ cazzate,
ma quello è più difficile...
Bye, G.

     KeyInCollection = (VarType(AColl(AKey)) >= 0)
Se sia piu' performante non lo so, pero' e' sicuramente ingegnoso ;-)
-- 
ciao, hal

 valutato per quello che è, non per chi lo manda.
  Giusto. Purtroppo non tutti hanno la capacità di capirlo.
 
La mia risposta è un esempio di quello che qualcuno avrebbe risposto se il
postatore non fosse stato Deer, tutto qui!
  Non fare agli altri quello che non vuoi sia fatto a te...mmm...non mi
ricordo chi disse questo...mmm...forse io in un'altra
occasione...bho...eheheheh
Ciao


 però il concetto rende l'idea di quello che voglio dire.
  Aaaaah allora porti rancore! Ridicolo !
P.S.
  So che non leggerai questo msg ma spero che qualcuno te lo riferisca.
Ciaooo


 occasione...bho...eheheheh
Modesto he? :|

 Modesto he? :|
  Moooolto di più di quello che sembra... ;)
