Newsgroup: it.comp.appl.access
Titolo: Aggiornamento Sito Comune

E' stato messo on line l'aggiornamento del Sito Comune relativo al mese di
maggio 2005.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 mese di maggio 2005.
Ciao Roberto,
il download di 6.195 non va
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Info:  
www.donkarl.com/it

 ha scritto nel
messaggio news:KIepe.137570$IN.23...@twister2.libero.it...

Sulle "Novità" la Sezione "06 Giugno 2005" è doppia
Ciao
Charliebo59

 MAssimiliano Amendola            
www.accessgroup.it
-- 


 Charliebo59
OK, grazie!


 Charliebo59


 MAssimiliano Amendola            
www.accessgroup.it
-- 


 mese di maggio 2005.
L'articolo Calendario senza ocx è decisamente superato dalla conoscena
comune e quindi dall'utilizzo
di WithEvents.
Se magari l'autore volesse upgradarlo con questo metodo..
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it


 Se magari l'autore volesse upgradarlo con questo metodo..
Questa non l'ho capita....!
La spiegheresti giusto per capire l'osservazione...?
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 Ciao
Private Sub tgl01_GotFocus()
tgl01.ForeColor = 255
ResettaColore ("01")
End Sub
Private Sub tgl02_GotFocus()
tgl02.ForeColor = 255
ResettaColore ("02")
End Sub
Private Sub tgl03_GotFocus()
tgl03.ForeColor = 255
ResettaColore ("03")
End Sub
Private Sub tgl04_GotFocus()
tgl04.ForeColor = 255
ResettaColore ("04")
End Sub
Private Sub tgl05_GotFocus()
tgl05.ForeColor = 255
ResettaColore ("05")
End Sub
Private Sub tgl06_GotFocus()
tgl06.ForeColor = 255
ResettaColore ("06")
End Sub
Private Sub tgl07_GotFocus()
tgl07.ForeColor = 255
ResettaColore ("07")
End Sub
Private Sub tgl08_GotFocus()
tgl08.ForeColor = 255
ResettaColore ("08")
End Sub
Private Sub tgl09_GotFocus()
tgl09.ForeColor = 255
ResettaColore ("09")
End Sub
Private Sub tgl10_GotFocus()
tgl10.ForeColor = 255
ResettaColore ("10")
End Sub
Private Sub tgl11_GotFocus()
tgl11.ForeColor = 255
ResettaColore ("11")
End Sub
Private Sub tgl12_GotFocus()
tgl12.ForeColor = 255
ResettaColore ("12")
End Sub
Private Sub tgl13_GotFocus()
tgl13.ForeColor = 255
ResettaColore ("13")
End Sub
Private Sub tgl14_GotFocus()
tgl14.ForeColor = 255
ResettaColore ("14")
End Sub
Private Sub tgl15_GotFocus()
tgl15.ForeColor = 255
ResettaColore ("15")
End Sub
Private Sub tgl16_GotFocus()
tgl16.ForeColor = 255
ResettaColore ("16")
End Sub
Private Sub tgl17_GotFocus()
tgl17.ForeColor = 255
ResettaColore ("17")
End Sub
Private Sub tgl18_GotFocus()
tgl18.ForeColor = 255
ResettaColore ("18")
End Sub
Private Sub tgl19_GotFocus()
tgl19.ForeColor = 255
ResettaColore ("19")
End Sub
Private Sub tgl20_GotFocus()
tgl20.ForeColor = 255
ResettaColore ("20")
End Sub
Private Sub tgl21_GotFocus()
tgl21.ForeColor = 255
ResettaColore ("21")
End Sub
Private Sub tgl22_GotFocus()
tgl22.ForeColor = 255
ResettaColore ("22")
End Sub
Private Sub tgl23_GotFocus()
tgl23.ForeColor = 255
ResettaColore ("23")
End Sub
Private Sub tgl24_GotFocus()
tgl24.ForeColor = 255
ResettaColore ("24")
End Sub
Private Sub tgl25_GotFocus()
tgl25.ForeColor = 255
ResettaColore ("25")
End Sub
Private Sub tgl26_GotFocus()
tgl26.ForeColor = 255
ResettaColore ("26")
End Sub
Private Sub tgl27_GotFocus()
tgl27.ForeColor = 255
ResettaColore ("27")
End Sub
Private Sub tgl28_GotFocus()
tgl28.ForeColor = 255
ResettaColore ("28")
End Sub
Private Sub tgl29_GotFocus()
tgl29.ForeColor = 255
ResettaColore ("29")
End Sub
Private Sub tgl30_GotFocus()
tgl30.ForeColor = 255
ResettaColore ("30")
End Sub
Private Sub tgl31_GotFocus()
tgl31.ForeColor = 255
ResettaColore ("31")
End Sub
Private Sub tgl32_GotFocus()
tgl32.ForeColor = 255
ResettaColore ("32")
End Sub
Private Sub tgl33_GotFocus()
tgl33.ForeColor = 255
ResettaColore ("33")
End Sub
Private Sub tgl34_GotFocus()
tgl34.ForeColor = 255
ResettaColore ("34")
End Sub
Private Sub tgl35_GotFocus()
tgl35.ForeColor = 255
ResettaColore ("35")
End Sub
Private Sub tgl36_GotFocus()
tgl36.ForeColor = 255
ResettaColore ("36")
End Sub
Private Sub tgl37_GotFocus()
tgl37.ForeColor = 255
ResettaColore ("37")
End Sub
Private Sub tgl38_GotFocus()
tgl38.ForeColor = 255
ResettaColore ("38")
End Sub
Private Sub tgl39_GotFocus()
tgl39.ForeColor = 255
ResettaColore ("39")
End Sub
Private Sub tgl40_GotFocus()
tgl40.ForeColor = 255
ResettaColore ("40")
End Sub
Private Sub tgl41_GotFocus()
tgl41.ForeColor = 255
ResettaColore ("41")
End Sub
Private Sub tgl42_GotFocus()
tgl42.ForeColor = 255
ResettaColore ("42")
End Sub
Con quante righe di codice può essere sostuito, 4-5???
E certamente tenderebbe a quell'elevazione del livello tanto auspicata


 E certamente tenderebbe a quell'elevazione del livello tanto auspicata
Si ma cosa c'entra il WithEvents in questo caso...?
Secondo me nulla.
Basta prendere l'ActiveControl.name e chiamare invece
della Routine Evento una Funzione private interna
alla Form stessa....!!!!
Mi perdo qualche cosa..?
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
Anche, vista l'esiguita delle info, anche active control va benissimo con il
ciclo for
sui controlli. E' che l'ho trovato molto pesante tutte quelle istruzioni
così ripetitive


 MAssimiliano Amendola            
www.accessgroup.it
-- 


 lasciare. ;-)
sua accessità è proprio bella! 

>
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it


 sua accessità è proprio bella!
Si vede che non la conosci di persona.
*gd&r* (in caso che John legge questo, non si sa mai)
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 così ripetitive
Scusa Massimiliano, non mi piace girare attorno alla cosa...!
In questo caso l'uso del WithEvents non solo non è 
adeguato ma non si deve proprio prendere in consideraizone
in quanto gli oggetti sono istanziati nella Form stessa di utilizzo,
sarebbe come replicare l'evento stesso....!
Con il il ricorso ad ActiveControl(.Name eventuale) 
non c'è da ciclare nulla è semplicemente una Chiamata
singola:
' QUESTA E' QUELLA VECCHIA
Private Sub tgl05_GotFocus()
tgl05.ForeColor = 255
ResettaColore ("05")
End Sub
' QUESTA E' OTTIMIZZATA
' da inserire invece della Routine Evento
' sull'Evento Attivato:
' =SetColor()
Private Function SetColor()
  screen.ActiveControl.ForeColor=255
  ResettaColore(
screen.ActiveControl.Name
)
End Sub
Saluti


 @Alex
-- 


 poi ricevuto l'evento ne gestisci il valore ed il nome
Ma sei sicuro...?
Quel "a prescindere" è molto discutibile....
Se non istanzi una Classe(ed un'oggetto è una Classe)
singolarmente usando WithEvents non è vero quello che dici.
Ti troveresti per come hai detto, ed è il motivo di quanto volevo
chiarire nel mio post, a dover istanziare INUTILMENTE un WithEvents
per ogni ClasseOggetto di Tipo(CommandButton in questo caso),
oppure creare una Classe con relativa Collection che in ogni 
caso istanzia l'oggetto singolo.....!!!!
Beh in questo caso è assolutamente l'ultima cosa da fare.
[CUT]
Saluti.


 Questo lo devi mettere su ognicontrollo o no?????!
Beh non hai capito nè come funzionano le classi nè 
l'uso di WithEvents.


 @Alex
va beh mi studio il materiale di Namor e mi cerco un insegnante meno
presuntuoso


 presuntuoso
Non è questione di presunzione, accetta la critica perchè ti
assicuro non essere inutile e non prenderla come offesa
mi pari troppo permaloso.
Le classi si usano per ottimizzare e flessibilizzare
il Codice, per diminuire l'entropia prodotta da questo
e non dover riscrivere inutilmente procedure su più fronti.
La Form Calendario è una Form StandAlone che non è flessibile
ha solo quei 31Pulsanti da gestire non potranno essere 40
o 25, e creato il primo nel quale hai
scritto a fronte dell'evento di cui parliamo la chiamata
poi ti basta fare un Copy/Past e modificare il Nome(che peraltro)
devi fare sempre.
Che senso avrebbe nell'ottica di OTTIMIZZARE dover dichiarare
una Collection ed istanziare 31 Classi all'interno della Classe
che intendi tu quando ti ho dimostrato che bastano 3 righe di
codice....?
La mi acritica è volta solo a dirti che prima di partire sparato
con Tecniche alternative serve saper valutarne la reale necessità
e ribadisco, quì sarebbe solo un'esercizio di STILE poco utile.
Se la presunzione che intendi è quella di razionalizzare le cose
ed insistere quando è tecnicamente insostenibile un discorso, beh
io sono decisamente presuntuoso, ma tu non essere presuntuoso
nel voler insegnare cose che hai imparato 2gg fà come fossero
l'ABC del VBA....!!!
Saluti.


 ha scritto nel messaggio 
news:3gqiegF...@individual.net...

:-(
sei tremendo!

 sei tremendo!
Come di solito: "non capisco" ;-)
Sono stato io che ha scritto l'insolenza qui, ma lui ha un buon umore.
(è un MVP già da 1993)
-- 
cu


 @Alex


 mi sembra una discreta ottimizzzzione.
Rilassiamo gli animi.
Massimiliano ascoltami, voglio dimostrarti che intendo
farti capire quello che dico e non importelo non ho
la presunzione di conoscere meglio le classi, ma per
esperienza le uso da qualche anno, e passata l'euforia
iniziale ho capito meglio quando è il caso di usarle
e quando no.
Per spiegarti gli erorri del tuo codice:
 
Il codice che hai scritto non è sufficiente, o meglio
così imponi al programmatore di sviluppare tutto il codice
di controllo del Pulsante(Classe Oggetto CommandButton)
all'interno della Classe, e quì verrebbe meno la flessibilità
in quanto è la Form il centro del Codice, la Classe deve
essere essenziale per agevolare il lavoro della Form.
 
Come minimo devi generare un Evento di classe sfruttando
RaiseEvents(esponendo l'oggetto CommandButton come
parametro) per rilanciare nella Form l'event stesso
e gestire li la combinazione di evento.
Quindi nella Classe:
Public Event Casella_Enter(obj as Access.TextBox)
Private Sub Casella_Enter()
    RaiseEvent Class_Enter(Casella)
End Sub
Di conseguenza la classe Pippo istanziata
nella Form andrebbe dichiarata come Private WithEvents.
In questo modo si che nella Form genereresti un unico Evento 
esponendone il Controllo che lo scatena.
Il tutto come vedi ha comportato qualche decina di righe
non considerando che in ogni caso dovresti premunirti di
sfruttare la proprietà TAG dei CommandButton da associare alla
classe in quanto come hai visto nel DEMO
ci sono ben altri controlli dentro e non puoi
indiscriminatamente metterli tutti ciclando semplicemente
con For...Each, percui altra opera ammanuense.
Ora sei libero di  considerare queste mie osservazioni 
stupide critiche come hai ritenuto sino ad ora o come 
utili consigli se avrai la possibilità di valutarli come
tali, altrimenti fai come credi che non sbagli.
Da parte mia ho solo cercato di non dare per scontate cose
che forse nemmeno tu hai proprio chiarissime e che vuoi
far passare come elementari.
Ciao
Non t'incazzare per ste minchiate è estate anche se non
sembra visto il tempo..!


 sembra visto il tempo..!
Stamane commentavo che il tempo di questi giorni sembra un bella donna,
fa come gli pare e passa da caldo a gelo in un attimo e tu non sai che
sbaglio hai fatto.


> Ok ora ragioniamo, ora il tono va molto meglio ed è proficuo
Dovresti saperlo che è il mio modo di fare non prenderla sempre
sul personale sono così scorbutico con tutti mi pare..!
Quanto ha fatto Marco è decisamnte corretto anzi didattico, ma non puoi
spalmarlo a marmellata su tutto...!
A completamento del demo di Marco trovi un demo semplice che ho sviluppato
quì:
Sezione GENERAL Faq 1.34
http://www.mantuanet.it/alessandro.baraldi/FilesEsempio/GENERAL/Gen_ClassEvents.exe
Ed uno non pubblicato perchè forse troppo complesso, quì:
http://www.mantuanet.it/alessandro.baraldi/AXPClassValidate.exe
Dal 2° demo capisci che le classi sono comode ma non razionalizzandone l'Uso
escono esempi non sempre utili, questo se guardi il codice nella Form
principale è banale, ma quanto è semplice capirlo...., non parliamo di
usarlo, io lo uso...! ;-)



E smettetela su! Non è proprio il caso.
Alessandro questo esempio funziona, ma si blocca in chiusura... ti risulta 
essere un problema generale? 

 essere un problema generale?
Perchè il 2° non funziona...?
Per il 1°:
No, nè la versione A2K(aperta con XP) nè AXP mi danno problemi simili, prova
a mettere un
Punto di Debug sull'evento Close e vedere se il problema può derivare
dall'annullamento
dell'istanza di Classe, a quel punto deve essere rimasto attivo stranamente
qualche cosa...!
Altra cosa magari elimina lo Sleep che è ovviamente solo a scopo di
rallentamento
per visualizzare meglio la sequenza Eventi


 MAssimiliano Amendola            
www.accessgroup.it
-- 
